Arama yaparken bir alttakini aramıyor

[YASINT]

Selam Arkadaşlar, makro "aranan" sayfasının ilk hücresindeki veriyi "Kod1" sayfasında aratıyorum ama "aranan" sayfasının ikinci ve üçüncü hücresindeki verileri aramıyor. Bunu nasıl yapabilirim. For Next döngüsünü kullanmaya çalıştım ama olmadı bir el atarsanız sevinirim. Dosya Ekte. Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Çalışmanızdaki kodları silip aşağıdaki kodu denermisiniz.

Sub ARA()
    Application.ScreenUpdating = False
    Set S1 = Sheets("Aranan")
    Set S2 = Sheets("Bulunan")
    S1.Select
    For X = 3 To Sheets.Count
    For Y = 2 To [A65536].End(3).Row
    Set Bul = Sheets(X).Cells.Find(S1.Cells(Y, 1))
    If Not Bul Is Nothing Then
    Adres = Bul.Address
    Do
    Satır = Bul.Row
    Sheets(X).Rows(Satır).Copy S2.Rows(S2.[E1] + 1)
    Set Bul = Sheets(X).Cells.FindNext(Bul)
    Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    Next
    Next
    S2.Select
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[YASINT]

Çok Teşekkür Ederim Sayın Cost_Control Ellerin Dert Görmesin.