belirlenen tarihteki verileri listele yinelenenleri kaldır

[muratogur]

Merhabalar;
Arkadaşlar Kitap1 de bir tablom var. Kitap2 de ise tarih ve bir adet buton. Kitap2 deki butona bastığımda B3 satırında yazan tarih üzerinden Kitap1 deki tablo üzerinde tarama yaparak, yinelenenler kaldırılmış bir şekilde Kitap2 Sayfa1 B4 satırından itibaren aşağıya doğru yazdırılabilir mi?
Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Listele()
 
    Dim d, _
        l, _
        Deg, _
        i   As Long, _
        Tar As Date, _
        Dosya As String
    
    Application.ScreenUpdating = False
    
    Tar = Range("B3")
    Dosya = ThisWorkbook.Path & Application.PathSeparator & "Kitap1.xlsx"
    Workbooks.Open Filename:=Dosya
    Set d = CreateObject("Scripting.Dictionary")
        
    For i = 5 To Cells(Rows.Count, "B").End(3).Row
        If Cells(i, "B") = Tar Then
            Deg = Trim(Cells(i, "C"))
            If Not d.exists(Deg) Then d.Add Deg, vbNull
        End If
    Next i
    
    ActiveWorkbook.Close
    
    l = d.keys
    
    Range("B4").Resize(UBound(l) + 1, 1) = Application.WorksheetFunction.Transpose(l)
    
End Sub

 

[muratogur]

Necdet Bey;
İlginize teşekkürler; ancak çalıştıramadım.

 

[Necdet]

Merhaba,

"çalıştıramadım" demekle doğru dürüst bir bilgi vermiş olmuyorsunuz.

"Kitap2 deki bastığım butona" dediğiniz için kodları hangi dosyaya kopyalayacağınızı bildiğinizi düşünerek açıklama yapmamıştım, biliyorsunuz diye.

Kodları Kitap2 dosyasında bir modüle kopyalayıp çalıştırınız. Kitap2 ve kitap1 aynı dizin içerisinde olmalı.

 

[muratogur]

Necdet Bey;
Uygulama sırasında küçük bir noktayı atlamışım. Verdiğiniz kodlar sorunumu çözdü. Sizi biraz gerdim galiba. Yardımlarınız için teşekkürler.