Aynı Kayıtlardan Ãkincisini Bulma Promlemi
Arkadaşlar veri tabanımdaki kayıtları
Arkadaşlar veri tabanımdaki kayıtları
şeklinde aratıyorum.Bu şekilde her seferinde 1. kayıta gidiyor.İkinci kayıta gitmek için bayağı uğraştım ama sonuç nafile.Dim plaka As Range
For Each plaka In Range("f1:f" & WorksheetFunction.CountA(Range("f1:f1500")))
If StrConv(plaka.Value, vbUpperCase) = StrConv(Txtplaka.Value, vbUpperCase) Then
If plaka <> Txtplaka Then
GoTo soralim
End If