Gelişmiş filtrelemede problem

[NaShi]

üstatlar değişik bir sorunum var kısaca özetlemek gerekirse

bir sütun daki mükerrer kayıtları başka bir sütuna gelişmiş filtreleme ile aktarıyorum fakat en üste gelen kayıt hep iki kez yazıyor örneğin

A gelişmiş filtre ile sonrası B
akk akk
akk akk
akk bkk
akk
bkk
bkk
bkk

neden böyle oluyor nerede hata yapıyorum.

 

[Ömer]

Merhaba,

Tabloda başlık satırı kullanmadığınız için ilk hücreyi başlık olarak kabul ediyor. Başlık satırı eklerseniz bu sorunla karşılaşmazsınız.

 

[NaShi]

Benim bunu asıl kullandığım yerde başlık satırı vardı ve aynı sorun oluyordu, şimdi denedim yine olmuyor.

 

[Mahir64]

Merhaba,

Eklediğiniz resim ile dosya uyuşmuyor. Dosyanızda başlıklar yok, B1 hücresine BAŞLIK yazın ve tekrar deneyin.

 

[NaShi]

ekteki dosyayı dediğiniz gibi güncelledim bi bakabilirmisiniz şimdi

 

[Mahir64]

Merhaba,

 

[NaShi]

sağolun hocam, anladığım kadarıyla gelişmiş filtreleme yapmak için her iki sütununda başlığının aynı olması gerekiyor, benim yaptığım gibi birisi liste 1 diğeri liste 2 şeklinde olursa olmuyor.

 

[Ömer]

Başlığın aynı olmasından ziyade, yeni liste oluştururken eski başlığı da alarak sıralama yapar. Bu yüzden başlık kullanmadığınız zaman ilk hücreyi başlık olarak varsayar diye yazmıştım.

Elle değilde, otomatik olarak başlığın farklı olmasını istiyorsanız makro yardımıyla bu işlemin tümünü gerçekleştirmenizi tavsiye ederim.

Makro Örneği:

A Sütunudaki verileri C sütununa benzersiz aktarır. Aktardıktan sonra C1 hücresindeki başlık adını "Liste2" olarak değiştirir.

Sub Gelsm_filtre()
 
    Dim son As Long
 
    Range("C:C").Clear
    son = Cells(Rows.Count, "A").End(xlUp).Row
 
    Range("A1:A" & son).AdvancedFilter xlFilterCopy, , Range("C1"), True
 
    Range("C1") = "[COLOR=blue]Liste2[/COLOR]"
 
End Sub