Çözüldü başka sayfadaki firmaları harf sırasına göre sıralatma

[mimargökmen]

excel üstadları başka bir sayfada gelir giderini tuttuğumuz firmaları diğer bir sayfada harf sırasına göre nasıl sıralatabilirim.
normalde
=EĞERHATA(İNDİS(Sayfa1!$A$3:$A$500;KAÇINCI(0;EĞERSAY($A$2:A2;Sayfa1!$A$3:$A$500);0));"")
bu formülü kullanıyorum, harf sırasına göre sıralatmıyor,

 

[mimargökmen]

sayfa 2'de a3 hücresine
=BENZERSİZ(SIRALA(SAYFA1!A3:A500)
bu formülü yazdım ama bazen hata veriyor, sebebi ne olabilir ?

 

[mühendisberke]

bence önce sıralama yapıp sonra veriden yinelenenleri kaldır yapmak ama sen bilirsin.

tablo yaptığın için tabloda direk sıralayabilirsin
ya da veri sekmesinde sıralama tuşundan alan seçip yapabilirsin
ama farklı bir durum olursa yapman gereken:
Sub a()
Columns("A:A").Select
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("A1:A500") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("A1:A500")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("A:A").Select
ActiveSheet.Range("$A$1:$A$500").RemoveDuplicates Columns:=1, Header:=xlNo
End sub

 

[mimargökmen]

berke bey çok teşekkürler,
yazdıklarınız sanırım makroyla ilgili ama makro bilmiyorum, formüle dökülebilirmi ?

 

[mimargökmen]

=EĞERHATA(İNDİS(Sayfa1!$A$3:$A$1000;KAÇINCI(KÜÇÜK(EĞER(EĞERSAY($A$2:A2;Sayfa1!$A$3:$A$1000&"")=0;EĞERSAY(Sayfa1!$A$3:$A$1000;"<"&Sayfa1!$A$3:$A$1000);"");1);EĞERSAY(Sayfa1!$A$3:$A$1000;"<"&Sayfa1!$A$3:$A$1000);0));"")

(formül a3 hücresine yazılacak)

çok güzel bir formül buldum yönetici korhan beyin yazdığı buraya ekliyorum,
a2 hücresine birşeyler yazmamak gerekiyor, o zaman formül çalışmıyor, oda olsa süper olacak, VERİ SÜZ deki listeyi aynen çıkartıyor