Sayfa 2 deki verileri getirsin

[polis-53]

merhaba arkadaşlar ekte gönderdiğim dosyada userform üzerindeki combobox a Sayfa2 deki A2:A20 deki verileri getiriyorum TextBox a da ComboBox a seçilen veri Sayfa2 deki B2:B20 deki karşılık gelen veriyi getirsin istiyorum inanın çok üğraştım beceremedim ilk seçileni getiriyor diğer seçimlerde TextBox hep aynı kalıyor bi bakarsanız çok sevineceğim şimdiden çok teşekkür ederim kalın sağlıcakla

 

[Orion1]

dosyanız ektedir.

Private Sub ComboBox1_Click()
Dim k As Range
Set k = Sheets("Sayfa2").[A2:A65536].Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        TextBox1 = k.Offset(0, 1).Value
        Else
        TextBox1.Value = ""
    End If
Set k = Nothing
End Sub

 

[polis-53]

Çok teşekkür ederim ALLAH yar ve yardımcın olsun.