TextBox "bul" ilk satırın haricinde bulamıyor...

[abhaz]

textboxa şu kodları yazdığımızda sadece çalışma sayfasının ilk satırındaki buluyor diğer satırları bulmuyor.

acaba hata nerede?

işte kod

Private Sub CommandButton1_Click() 'bul
On Error Resume Next
Sheets("bilgi").Select
For Each hucre In Range("g3:g" & WorksheetFunction.CountA(Range("g3:g65000")))

If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox112.Value, vbUpperCase) Then

hucre.Select
End If
Next
st = ActiveCell.Row
For i = 1 To 40
Controls("textbox" & i) = Cells(st, i + 1).Value
Next
End Sub

 

[abhaz]

ve birde kayıt yoksa "aradığınız kayıt bulunamadı" mesajını nasıl yapabiliriz?

 

[abhaz]

kodları inceleyip sorunu bulan arkadaş yokmu?

 

[programer]

Dostum ekteki örneği incelermisin