userform'da arama makro uyarlama

[İhsan Tank]

selam arkadaşlar benim çalışma sayfamda bulunan rehber sayfasındaki ara butonundaki user formun textbox1'e bir makro ekledim yalnız istediğim bilgileri çıkartmıyor. Benim istediğim userform2'ye sayfada bulunan bilgilerin gelmesi dosyayı ekliyorum yardımlarınızı bekliyorum
makro'yo gönderiyorum
Private Sub TextBox1_Change()
On Error Resume Next
Satırno = Sheets("REHBER").[A2:A65536].Find(TextBox1.Value).Row
TextBox2 = Sheets("REHBER").Cells(Satırno, 3).Value
End Sub

 

[Orion1]

Getiriyor ya.
A sütunndaki veri arayıp buluyor .bulduğu satır listeliyor .Siz başka bir sütunda arama yapmış olmalaısınız.Ama kodlarınız a sütununda arama yapacak şekilde yazılmış.İçerir şeklinde arama yapıyor.

 

[Skorpiyon]

Sayın cılgın86'lı,

Aşağıdaki şekilde bir deneyin.

Private Sub TextBox1_Change()
On Error Resume Next
Sheets("REHBER").[A2:A65536].Find(TextBox1.Value).Activate
TextBox2 = Sheets("REHBER").Cells(ActiveCell.Row, 3).Value
End Sub

 

[Orion1]

Ayrıca rehber sayfasında ki userformunuzda 1 adet textbox var.

 

[İhsan Tank]

Sayın cılgın86'lı,

Aşağıdaki şekilde bir deneyin.

Private Sub TextBox1_Change()
On Error Resume Next
Sheets("REHBER").[A2:A65536].Find(TextBox1.Value).Activate
TextBox2 = Sheets("REHBER").Cells(ActiveCell.Row, 3).Value
End Sub

hocam öncelikle size daha sonra evren gizlen hocama ve bütün uzmaqn arkadaşlara teşekkür ederim
bir de şöyle bir şey geldi aklıma ben bu yaptığım çalışmayı ortak paylaşıma ekleyip arayanlarda yararlansa uygun olur mu_?