Saturday, September 5, 2015

Userform Düşeyara Fonksiyonu

Userform İçinde Düşeyara Fonksiyonu- Vlookup On Userform

         Userform üzerindeki combobox dan seçilen değere göre textbox lara veri getirmek için düşeyara (vlookup) fonksiyonunu Vba kodlar içinde kullanıyoruz.
Değişik bir örnek:

1 comment:

  1. hello sir, i have a problem about automatic invoice number when I save. I apply in the textbox always fail.
    Maybe you can help.
    thank you

    Sub nextInvoice()
    OldInvoice = Worksheets("Pengeluaran").Range("A2").Value

    LefDate = Left(OldInvoice, 5)
    CurrDate = UCase(Format(Date, "MMMYY"))
    If LeftDate = CurreDate Then
    Texbox1 = Worksheets("Pengeluaran").Range("A2").Value = CurrDate & Format(Right(OldInvoice, 3) + 1, "000")
    Else
    TextBox1 = Worksheets("Pengeluaran").Range("A2").Value = CurrDate & "001"

    End If
    End Sub

    ReplyDelete