değişken listedekileri sırala

[feridici_genc]

merhaba..
sorum şu olacak,

a stünunda aşağı doğru isimler sıralı olsun diyelim.
osman
mehmet
osman
ahmet
osman
zülküf
aydın
osman
izmir
manisa
manisa
aydın
aydın
manisa
manisa
vs...

bu stündaki mükerrerlerin dışında ki isimlerin listesini FORMÜL ile nasıl bulabilirim.
yani öyle bir formül olacak ki yinelenenler yazılmayacak, tablo aşağıdaki gibi görülecek.
osman
mehmet
ahmet
zülküf
aydın
izmir
manisa

örnek dosya: http://s3.dosya.tc/server20/tGUXrv/deneme.xlsx.html
teşekkürler..

 

[Murat OSMA]

Dizi formülüdür Ctrl + Shift + Enter ile girilmelidir.

[FONT="Trebuchet MS"]=EĞERHATA(İNDİS(A6:A20;KÜÇÜK(EĞER(KAÇINCI(A6:A20;A6:A20;0)=SATIR(DOLAYLI("1:"&SATIRSAY(A6:A20)));KAÇINCI(A6:A20;A6:A20;0);"");SATIR(DOLAYLI("1:"&SATIRSAY(A6:A20)))));"")[/FONT]

 

[feridici_genc]

murat bey;
Ctrl + Shift + Enter yaparak girdim ama sadece tek hücrede "osman" çıktı?

 

[Murat OSMA]

Şöyle yapın;

• D6: D20 aralığını seçin.
• F2'ye basın.
• Ctrl + Shift + Enter'a basın.

Ayrıca şunu da belirteyim; Gelişmiş Filtre'den veya Yinelenenleri Kaldır'dan da benzersiz verileri elde edebilirsiniz.

 

[feridici_genc]

teşekkür ederim çok saolun.
bu formülü 500 satıra yayabilirmiyim?

 

[Murat OSMA]

D6: D500 aralığını seçip aynı işlemi yapabilirsiniz.
Dediğim gibi ayrıca diğer alternatifleri de kullanabilirsiniz..

Ya da bu KTF'yi deneyin;

[FONT="Trebuchet MS"]Function Benzersiz(ByVal Aralik As Range, ByVal i As Integer) As String
    Application.Volatile
    Dim Benzemez As New Collection
    For Each Alan In Aralik
        On Error Resume Next
        Benzemez.Add Alan, CStr(Alan)
    Next Alan
    If i > Benzemez.Count Then
        Benzersiz = ""
            Else
        Benzersiz = Benzemez(i)
    End If
End Function[/FONT]

Hücrede kullanımı:

[FONT="Trebuchet MS"]=Benzersiz($A$6:$A$20;SATIR()-5)[/FONT]

 

[feridici_genc]

çok saolun murat bey,
amma velakin ileride dolabilecek şuan boş olan hücreleri kapsatarak yaptığımda boş çıkartıyor.
örneğin elimde 9999 satırlık bir tablo var. 106 satırı dolu. yaptığınız formülü 106 satır ile sınırlandırırsam sorun yok ama 9999 satıra kadar indirirsem boş çıkartıyor.
F5:F106 yaparsam sorun yok ama F5:F9999 yaptığımda 106 . satırdan sonrası boş olduğundan dolayı sonuç boş oluyor.

 

[Murat OSMA]

Benden bu kadar, iyi günler.

 

[feridici_genc]

yinede saolun. elinize sağlık.
makro kullanamıyoruz işyerinde o yüzden makrolu olan alternatifi değerlendiremedim.
boş olan hücrelere nokta koyarak denendim oldu ama noktalardan biri silinir se yine boş sonuç veriyor.

 

[feridici_genc]

yardım edebilecek biri varmı ?