textbox işlemi

[ogoktas]

merhaba,
ekli dosyada buluan text box'a isim girdiğimde soyismi, numarası ve numarasının ilk2 karakterini Sheet1'den bularak,
textbox2,textbox3 ve textbox4'e aktarılmasını istiyorum. benim için en önemli sey numaranın ilk iki karakteri için left fonksiyonun tanımlanması.
teşekkürler. iyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim k As Range
TextBox2.Text = "": TextBox3.Text = "": TextBox4.Text = ""
With Sheets("Sheet1")
    Set k = .Range("A3:A" & .Cells(65536, "A").End(xlUp).Row).Find _
    (TextBox1.Text, , xlValues, xlWhole)
    If Not k Is Nothing Then
        TextBox2.Text = k.Value
        TextBox3.Text = k.Offset(0, 1).Value
        [B][COLOR="Red"]TextBox4.Text = Left(k.Offset(0, 2).Value, 2)[/COLOR][/B]
    End If
End With
End Sub