TC.NO'dan isim bulma

[seddur]

Merhabalar."A" sutununda isimler,"M" sutununda Tc.No'lar kayıtlı.Textbox1'e Tc.No yazdığımda Textbox2'ye ismi getirmesini istiyorum.Aşağıda yazdığım kod çalışmıyor.Yardımcı olabilirseniz sevinirim.
Dim i As Integer
For i = 15 To Sheets("Anasayfa").Range("A65536").End(3).Row
If Sheets("Anasayfa").TextBox1 = Sheets("Anasayfa").Cells(i, 13) Then
Sheets("Anasayfa").TextBox2 = Sheets("Anasayfa").Cells(i, 1)
End If
Next

 

[Orion1]

Buyurun.

Private Sub TextBox1_Change()
Dim k As Range
TextBox2.Value = ""
Set k = Range("M15:M" & Cells(Rows.Count, "M").End(xlUp).Row).Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then TextBox2.Value = Cells(k.Row, "A").Value
End Sub

 

[seddur]

Teşekkürler Orion1,çalışıyor.