userformda textboxla arama yapılması ve sayfadaki verilerin diğer textboxlara geçmesi

[oornek1]

merhaba arkadaslar excel üzerindeki sayfa1de altı rakamlı sayılar içeren kodlar var ve her kodun birbirinden değişik adları var ve ücretleri var benim sorum şu textbox1'a altı rakamdan birini yazdığımda textbox2' ye ismini texbox3'e ise ücretini atması bunu nasıl yapabilirim. varsa VBA kodunu yazarsanız sevinirim. yardımcı olması için kodları ekte gönderiyorum.

 

[ozgretmen]

Dosya ekte...
Düzeltme :
Dosyadaki kodu aşğıdaki şekilde değiştiriniz.

Private Sub CommandButton1_Click()
On Error Resume Next
If WorksheetFunction.CountIf(Range("A2:A" & [A65536].End(3).Row), TextBox1.Value) = 0 Then
MsgBox " Bu Kod Numarasına Sahip Veri Bulunamadı."
Exit Sub
Else
If TextBox1.Value = "" Then
MsgBox " Kod Numarsı Giriniz "
Exit Sub
Else
Range("A2:A" & [A65536].End(3).Row).Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Select
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
End If
End If
End Sub

 

[oornek1]

hocam eline sağlık cok tesekkür ediyorum

 

[ozgretmen]

Kodu düzelttim.Değiştirir misin ?

 

[oornek1]

hocam yeni kodu ekledim hata veriyor

 

[ozgretmen]

Kodda bir hata yok...Bir daha dener misin ?