Veri özetleme

[HAKANP]

Herkese kolay gelsin,

Ekteki listeye göre a,b,c,d sütünlarını tarayarak alt satırlara tüm satır bilgilerini dikkate alıp, aşağıya doğru karşılaştırma yaparak birbirinin aynısı kayıtlar var ise, sadece bir tek kaydı bir sonraki sayfaya atarak özetleyecek bir koda ihtiyacım var.
Örnek dosya ektedir. Yanlız sizlerden ricam dosyaları zip,rar olarak EKLEMEYİNİZ.

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub TEK()
    Range("B3:D21").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sayfa2.Range("B2"), Unique:=True
End Sub

 

[HAKANP]

Seçimi genişleterek uyguladık. Çalışıyor teşekkürler