Userform Düşeyara Fonksiyonu

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


         Userform üzerindeki combobox (açılır kutu) kontrolünden seçilen değere göre textboxlara veri getirmek için DÜŞEYARA (vlookup) fonksiyonunu VBA kodlar içinde kullanıyoruz.
Farklı bir userform örneği.


Textbox kontrollerini veri doldurmak için kullandığımız "Get Data" butonu kodları şu şekilde :
Private Sub CommandButton1_Click()
Dim Veri As Worksheet
Set Veri = Worksheets("Sheet1")
On Error Resume Next
TextBox1 = WorksheetFunction.VLookup(ComboBox1, Veri.Range("A2:D65536"), 2, 0)
TextBox2 = WorksheetFunction.VLookup(ComboBox1, Veri.Range("A2:D65536"), 3, 0)
TextBox3 = WorksheetFunction.VLookup(ComboBox1, Veri.Range("A2:D65536"), 4, 0)
End Sub


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