Gelişmiş Filtre Kodu

[alihaydaryurtsever]

arkadaşlar
Excellde olan gelişmiş filtreleme fonksiyonun makrosunu yazmak istiyorum. amacım 6 sütundan ve maksimum 2000 satırdan oluşan oluşan bir listedeki tekrar eden her satırdan sadece 1 tanesini yazıp diğerlerini yok eden bir kod yazmak

 

[Korhan Ayhan]

Merhaba,

2007 ve üstü versiyonda VERİ menüsünden "YİNELENENLERİ KALDIR" seçeneği ile rahatlıkla yapabilirsiniz.

2003 versiyonda gelişmiş filtre ile A-F sütunları arasındaki veriyi I sütununa aşağıdaki kod ile aktarabilirsiniz.

Sub Makro1()
    Range("A1:F" & Rows.Count).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I1"), Unique:=True
End Sub