Find komutuyla arama yaparken BİR SONRAKİ ni buldurmak

[ÖmerFaruk]

Merhaba,
A sütunundaki değere göre FIND komutunun ilk bulduğunu ya da bir sonraki bulacağı veriyi aramak istiyorum. Ancak yapamadım. Kod hata veriyor.

Set RKNo=Worksheets("RUHSAT").Columns("G").Find(KNo, , xlValues, xlWhole)
If Cells(k, 1) = 991 Then
Set RuhsatKapi = Worksheets("RUHSAT").Columns("G").FindNext(RKNo)
End If

FindNext satırında hata veriyor. Yazım hatası mı yapıyorum yoksa FindNext i yanlış mı kullanıyorum.

 

[askm]

Örnek dosyanızı ekleyerek ya da https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-findnext-method-excel linki inceleyerek yardım alabilirsiniz.

 

[Necdet]

Merhaba,

VisiualBasic yardımından Find :

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Kodları inceleyiniz, kendinize uyarlayınız.

 

[ÖmerFaruk]

İlginiz için teşekkürler. Hatamı buldum. FindNext kullanımında hatam yokmuş. Basit olan sorguyu yanlış yapıyormuşum.