Farklı Sayfalardaki Verileri Aynı Sayfada Listelemek

[baydeniro]

Merhaba Arkadaşlar,

Dosyadaki tüm sayfaların C sütununda bulunan Ürün tanımlarını LİSTE sayfasına sıralanması mümkün mü ?

Örnek dosya linki : https://yadi.sk/i/Sgn9DDiyxjRlFg

 

[veyselemre]

Sub test()
    Sheets("Liste").Select
    Range("B5:B" & Rows.Count).ClearContents
    With CreateObject("Scripting.Dictionary")
        For Each sh In ThisWorkbook.Worksheets
            If sh.Name <> "LİSTE" Then
                son = sh.Cells(Rows.Count, 3).Row
                If son > 3 Then
                    For i = 4 To son
                        ky = sh.Cells(i, 3)
                        If ky <> "" Then .Item(ky) = Null
                    Next i
                End If
            End If
        Next sh
        kys = .keys
        For i = 0 To UBound(kys)
            Cells(i + 5, "B") = kys(i)
        Next i
    End With
End Sub

 

[baydeniro]

veyselemre üstadım yine muhteşem bir kod. Çok makbule geçti, çok işime yarayacak. Sağolun, varolun, sağlıcakla kalın.