Bul ve listele

[okkoc]

Arkadaşlar örnek dosyayı ekledim.
Sorum şu;
Bir çalışma kitabının içindeki farklı sayfalarda istenen kritere gore arama yapılıp istenilen bilgilerin ayrı bir sayfada alt alta listelenmesidir.
Farklı çözüm yollarıda önerilebilir.
İlgilenenlere şimdiden teşekkürler.

 

[Murat OSMA]

Şu kodları kullanabilirsiniz;

Sub Bul_ve_Listele()
    Dim syf As Worksheet, Rky As Range
    Range("A2:A1000").ClearContents
    For Each syf In ThisWorkbook.Worksheets
        If syf.Name <> "LİSTELE" Then
            Set Rky = syf.Columns(2).Find(Range("A1").Value, , , 1)
            If Not Rky Is Nothing Then
                Range("A65536").End(3)(2, 1) = syf.Range("A2").Value
            End If
        End If
    Next syf
    Set Rky = Nothing: Set syf = Nothing
End Sub

 

[okkoc]

Tam isabet. Teşekkürler arkadaşım.

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[okkoc]

Bir soru daha sorayım.
Malzeme adı tek kelime değilse,
Örneğin "KARA KAPLI DEFTER" şeklinde ise.
Tek bir kelime ile örneğin "KARA" ile sorguladığımda cevap alabilmem için hangi kodu yazmalıyım?
Şimdiden Teşekkürler.