Userformda "bul" butonu istediğim gibi çalışmıyor

[abhaz]

ekli dosyadaki userformda getir butonu sadece ilk satırda kayıtlı olan veriyi buluyor. mesela ikinci satırdaki 111 sicil numarasını sorgulayınca bulamıyor. sanırım makro hatalı ama bulamadım hatayı.

birde bu makroya eğer aranılan veri yok ise "Aradığınız kayıt bulunamadı" mesaj kutusunu nasıl ekleriz?

teşekkürler...

 

[veyselemre]

Kodlarınızı aşağıdaki şekilde düzenleyin,
[vb:1:5ae6d15808]Private Sub CommandButton1_Click() 'bul
On Error Resume Next
Sheets("bilgi").Select
For Each hucre In Range("g3:g" & Range("g3").End(xlDown).Row)

If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox112.Value, vbUpperCase) Then
hucre.Select
GoTo git:
End If

Next
MsgBox "Aranan Kayıt Bulunamadı"
git:
st = ActiveCell.Row
For i = 1 To 40
Controls("textbox" & i) = Cells(st, i + 1).Value
Next
End Sub[/vb:1:5ae6d15808]

 

[abhaz]

teşekkürler...