Kod:
Dim i As Range
For Each i In Range("a1:a" & Range("a65536").End(3).Row)
If CStr(i.Value) = CStr(ComboBox1.Value) Then
i.Select
TextBox1 = i.Offset(0, 1).Value
TextBox2 = i.Offset(0, 2).Value
'Buraya Geri kalanını devam edersiniz
Exit For
End If
Next i