Bul Makrosunda Hata

[teknadir]

Ekte gönderdiğim dosyada "Sayfa5" adlı sayfada "KİTAP ALIŞVERİŞ" adlı düğme ile açılan formda commandbutton ile textboxa girilen değeri "ÜYELER" sayfasında aratmak ve alttaki textboxlara veri getirmek istiyorum. Arama yapılıyor, veriler geliyor ancak;
Üyeler sayfasında B sütununda aşağıdan yukarıya doğru textboxa girilen değerin geçtiği ilk satırdaki bilgiler geliyor. Yani textboxa 5 girdiğimizde 5 numaralı öğrenci değil de B sütununda aşağıdan yukarıya doğru içinde 5 rakamı bulunan ilk öğrencinin bilgileri geliyor. Bu hatayı nasıl düzeltebiliriz.

 

[halit3]

Ekte gönderdiğim dosyada "Sayfa5" adlı sayfada "KİTAP ALIŞVERİŞ" adlı düğme ile açılan formda commandbutton ile textboxa girilen değeri "ÜYELER" sayfasında aratmak ve alttaki textboxlara veri getirmek istiyorum. Arama yapılıyor, veriler geliyor ancak;
Üyeler sayfasında B sütununda aşağıdan yukarıya doğru textboxa girilen değerin geçtiği ilk satırdaki bilgiler geliyor. Yani textboxa 5 girdiğimizde 5 numaralı öğrenci değil de B sütununda aşağıdan yukarıya doğru içinde 5 rakamı bulunan ilk öğrencinin bilgileri geliyor. Bu hatayı nasıl düzeltebiliriz.

Bunu denermisiniz.

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Lütfen öğrencinin numarasını giriniz !", vbCritical
TextBox1.SetFocus
Exit Sub
End If

Set Sh = Sheets("ÜYELER")
With Sh.Range("B:B")
Set d = .Find(What:=TextBox1.Text, After:=.Cells(.Cells.Count), LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
Me.Controls("TextBox3") = Sh.Cells(d.Row, 2)
Me.Controls("TextBox4") = Sh.Cells(d.Row, 3)
Me.Controls("TextBox5") = Sh.Cells(d.Row, 4)
Me.Controls("TextBox6") = Sh.Cells(d.Row, 5)
MsgBox "Aradığınız kayıt bulunmuştur.", vbInformation
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
Else
MsgBox "Aradığınız kayıt bulunamamıştır !", vbCritical
End If
End With
Set Sh = Nothing
End Sub

 

[teknadir]

Teşekkürler...

 

[halit3]

Teşekkürler...

iyi çalışmalar