Sayfada buluncaya kadar ara

[oydemir]

Sıralı arama konusunda yardım talep ediyorum.
Elimdeki Excel dosyasında aranan sayfasında A Kolonundan Q Kolonuna kadar veriler var. Sonuc Sayfasında A kolonu aranan değerler var.
Benim talep ettiğim sonuç sayfasındaki A kolonundaki değeri Aranan sayfasında a:Q kadar arayacak bulduğunda Karşılığı olan Y kolonundaki değeri sonuç sayfasında b kolonuna yazması. Eğer aranan sayfasındaki değer Sonuç Sayfasında A KOLONUNDAN Q kolonuna kadar olan kısmında yok ise Sonuc sayfasındaki değerin karşısına bulunamadı yazması. Yardımlarınız için teşekkür ederim.

 

[volki_112]

Sıralı arama konusunda yardım talep ediyorum.
Elimdeki Excel dosyasında aranan sayfasında A Kolonundan Q Kolonuna kadar veriler var. Sonuc Sayfasında A kolonu aranan değerler var.
Benim talep ettiğim sonuç sayfasındaki A kolonundaki değeri Aranan sayfasında a:Q kadar arayacak bulduğunda Karşılığı olan Y kolonundaki değeri sonuç sayfasında b kolonuna yazması. Eğer aranan sayfasındaki değer Sonuç Sayfasında A KOLONUNDAN Q kolonuna kadar olan kısmında yok ise Sonuc sayfasındaki değerin karşısına bulunamadı yazması. Yardımlarınız için teşekkür ederim.

sonuç sayfasında gelecek bazı değerleri manuel olarak yazıp dosyayı tekrar yükler misiniz. Daha net anlaşılır.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu "Sonuç" sayfasının kod kısmına kopyalayıp çalıştırın.

Sub Test()
    Dim Bul As Range
    Dim Bak As Long
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Set Bul = Worksheets("aranan").Range("A:Q").Find(what:=Cells(Bak, "A").Text, lookat:=xlWhole)
        If Bul Is Nothing Then
            Cells(Bak, "B") = "Bulunamadı"
        Else
            Cells(Bak, "B") = Worksheets("Aranan").Cells(Bul.Row, "Y")
        End If
    Next
    MsgBox "Tamamlandı.", vbExclamation
End Sub

 

[oydemir]

teşekkürler düşeyara ile yaptım.

 

[oydemir]

çok teşekkür ederim harikasınız emeğinize sağlık