Isim bulmak

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim dosyamda User formumda ad soyad ararken aydı ad soyad olanları ayırt edebilmek için kurum numarasıylada arama yapabilmek istiyorum ekledim ama çalıştıramadım yardım ederseniz sevinirim.

 

[İhsan Tank]

merhaba kod sayfasına ekleyiniz

Private Sub TextBox10_Change()
On Error Resume Next
Sheets("BİLGİLER").[C2:C65536].Find(TextBox10.Value).Activate
TextBox1 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 2).Value
TextBox3 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 2).Value
TextBox4 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 4).Value
TextBox5 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 5).Value
TextBox6 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 6).Value
TextBox7 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 7).Value
TextBox8 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 8).Value
TextBox9 = Sheets("BİLGİLER").Cells(ActiveCell.Row, 9).Value
End Sub

örnek ektedir inceleyiniz