Yinelenenleri filtrele

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel sayfamın G sütununda isimler var, butona bastığımda bu sütundaki isimlerin tek olarak filtrelenmesini istiyorum.

Excel sayfasının kendisinde, forumda ve net'te araştırdım hep yinelenenleri kaldır var.

Yardım edecek arkadaşlara şimdiden teşekkür ederim.


http://dosya.co/8lsi4jevwvjx/Yinelenen_değerleri_filtrele.xlsm.html

 

[Ömer BARAN]

Merhaba.

M sütununda yaptığınız açıklama ve örnek bir miktar tereddüt oluşturuyor;
-- Belirtmemişsiniz ama alfabetik bir sıralama istediğiniz gibi bir izlenim var.
-- G sütununa filtre mi istiyorsunuz yoksa M sütununa tekrarsız bir liste mi?

Yukarıda belirttiğim çekinceleri yok sayarak; aşağıdaki kod'u bir deneyin bakalım. Umarım istediğiniz budur.
Kod'u ilgili sayfanın kod bölümüne uygulayınız.

Veri yığınının çok olabileceğini düşünerek, For...Next döngüsü (satır-satır işlem) yerine L sütununu yardımcı sütun olarak kullanmak istedim.
.

[B]Sub ÖZEL_FİLTRE_BRN()[/B]
Range("A1:L1").AutoFilter
Range("A1:L1").AutoFilter Field:=1
With Range("L2:L" & [G65536].End(3).Row)
    .Formula = "=IF(COUNTIF($G$2:G2,G2)=1,""x"","""")": .Value = .Value
End With
Range("A1:L1").AutoFilter Field:=12, Criteria1:="=x"
Columns("L:L").ClearContents
[B]End Sub[/B]

 

[ASLAN7410]

Sayın Ömer Bey çok teşekkür ederim, ellerinize sağlık tam istediğim gibi oldu, Allah razı olsun.

Hayırlı çalışmalar hayırlı geceler dilerim.

 

[Ömer BARAN]

Estağfurullah.

Tek bir uyarım olacak, filtrenin L sütununa uygulandığına dikkat ediniz.
.

 

[ASLAN7410]

Tamam Ömer Bey uyarılarınız için teşekkür ederim, dikkat ederim.