Benzersiz kayıtları hatalı süzüyor.

[tufan03]

Ekli dosyada bulunan tablodaki C sütununda bulunan benzersiz kayıtları hatalı süzüyor. Süzülen ilk iki veri benzer, hata nerede. Selamlar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

ActiveSheet.Range("C2:C1500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("K2"), Unique:=True

 

[tufan03]

Sayın Leventm yukardaki dosya üzerinde denedim hata veriyor. K3 hücresi bir adla tanımlanmış onuda silemiyorum,birçok ad tanımlamaları var nasıl oldu siliyorum,tekrar çıkıyor acaba ondanmı kaynaklanıyor? Velhasılı sizin kod hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Dosyanızdaki K sütunundaki verileri silip Sn. leventm beyin önerdiği kodu çalıştırın.

 

[tufan03]

Yaptım malesef istediğim gibi olmadı

 

[Korhan Ayhan]

Selamlar,

Bende K sütununda veri varken denediğimde olmamıştı. Fakat K sütununu seçip DELETE tuşuna bastım ve SN. leventm beyin önerdiği kodu çalıştırdım. Benzersiz kayıtları süzüp kopyaladı.