son veri problemi

[Barons]

Merhaba

Ekli dosyada Ara komutu ile sistem no arıyorum ancak nedense son veriyi (45 sayısı) bulamıyor.Sistem no'ya 45 rakamı girdiğimde sol ve sağındaki verileribulduramıyorum.
(Ayrıca yakın değil tam veriyi bulsun istiyorum.Bu açıdan bir sorun gözükmüyor ama yinede daha iyi bir yöntem varsa ve bilgilendirirseniz çok sevinirim.)

Teşekkürler

 

[algil]

Sn Barons,
Kodonuzda aşağıdaki değişikliği yapınız.

Private Sub CommandButton3_Click()
Dim bak As Range
    For Each bak In Range("D2:D" & WorksheetFunction.CountA(Range("D2:D65000")) + 1)
    If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
    bak.Select
    TextBox2.Value = ActiveCell.Offset(0, -1).Value
    TextBox3.Value = ActiveCell.Offset(0, 1).Value
    TextBox4.Value = ActiveCell.Offset(0, 3).Value
    Exit Sub
    End If
    Next bak
    MsgBox "Aradığınız numarada beyanname bulunamadı"
End Sub

 

[Barons]

Çok teşekkürler...istediğim olmuş elinize sağlık