Combobox sicil no TextBox a Adını yazsın

[polis-53]

Merhaba arkadaşlar aşağıda gönderdiğim kod da combobox a K sutunundaki sicil noları alıyorum seçilen sicil no L sutununda karşılığı hangi isimse o ismi TextBox a yazsın istiyorum.
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Range("K65536").End(3).Row
ComboBox1.AddItem Cells(i, "K")
Next i: i = Empty
End Sub
iyi çalışmalar.

 

[Civan Jack]

K sütununu değil T sütununu alıyor görünüyorsunuz. Kodlarda K harfi bile yok.
googlea comboboxa göre textboxa veri alma yazın

 

[fireman64]

Private Sub ComboBox1_Change()
Dim bul As Range
For Each bul In Worksheets("sayfa1").Range("k1:l" & [k65536].End(3).Row)
If bul.Value = ComboBox1.Text Then
TextBox1.Value = bul(1, 2).Value
End If
Next bul
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Range("K65536").End(3).Row
ComboBox1.AddItem Cells(i, "K")
Next i: i = Empty
End Sub

 

[polis-53]

Teşekkürler sayın fireman64 çok sağolun
iyi çalışmalar.