Soru textbox değerini düşey ara labele yaz

[zulfuernek]

textbox1 yazdığm değere karşılık gelen sayıyı kod listesi sayfasında a sütununda düşey arayacak
label 1 e b sütunundaki karşılık gelen değeri yazacak

 

[Korhan Ayhan]

CTRL+F işlevinin makro kodunu kullanabilirsiniz.

Private Sub TextBox1_Change()
    Dim Bul As Range
    Label1.Caption = ""
    If TextBox1 <> "" Then
        Set Bul = Sheets("Kod Listesi").Range("A:A").Find(TextBox1, , , xlWhole)
        If Not Bul Is Nothing Then Label1.Caption = Bul.Offset(0, 1)
    End If
End Sub

 

[zulfuernek]

@Korhan Ayhan hocam emeğinize sağlık. mükemmel oldu. bir sorum daha olacak CTRL + F işlevinin kodu demişsiniz. ancak böyle ikili veya üçlü tuşların kombinasyonunu nasıl tesbit edebiliriz? yani makro kaydet gibi ?