Alfabetİk Siralama

[umitumit]

A SÜtunundakİ Verİlerİ C SÜtununa Alfabetİk Siralama İstİyorum.
DÜŞeyara İle Denedİm, BaŞaramadim

 

[Ali]

Fonksiyonlar kısmına sorduğunuz için cevabını fonksiyon ile hazırladım
D-E sütunlarındaki formüller A sütunundaki verilerinizi benzersiz olarak ayıklar.F-G sütunlarındaki formüller ise D-E sütunlarında benzersiz olarak ayıklanmış listeyi alfabetik olarak sıralar.

 

[umitumit]

teşekkür ederim. kendi sayfama uygulamaya çalışacağım.
herhalde bi problem çıkmaz...

 

[Merhum İdris SERDAR]

A SÜtunundakİ Verİlerİ C SÜtununa Alfabetİk Siralama İstİyorum.
DÜŞeyara İle Denedİm, BaŞaramadim

Bir de ektekine bakın.



..

 

[Haluk]

Ben olsam;

Data >> Filter >> Advanced filter (Unique records) + Copy To: ... yaptıktan sonra A-Z ile sıralarım. (Toplam süre : 2-3 saniye)

 

[Merhum İdris SERDAR]

Ben olsam;

Data >> Filter >> Advanced filter (Unique records) + Copy To: ... yaptıktan sonra A-Z ile sıralarım. (Toplam süre : 2-3 saniye)

Sayın Haluk,

En doğrusu da söylediğiniz şekilde olması bence.

..

 

[azize]

A SÜtunundakİ Verİlerİ C SÜtununa Alfabetİk Siralama İstİyorum.
DÜŞeyara İle Denedİm, BaŞaramadim

eğer fonksiyon istemeden yapmak isterseniz . gerçi siz öyle yapmak istersiniz ama bildiğim yöntemi söyleyeyim. kopyala yapıştır deyip veri menüsünden sırala deyip yapabilrisiniz.
saygılarımla kolay geslin

 

[Seyit Tiken]

Alternatif teşkil edebilir. A ve B sütunlarına göre düzenlenmiştir.

Sub Düğme1_Tıklat()
On Error Resume Next
Range("A1:A1000").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B1"), Unique:=True
For a = [b65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("b1:b" & a), Cells(a, "b")) > 1 Then Rows(a).Delete
Next
[B1:B1000].Sort Key1:=Range("B1")
End Sub

 

[Ali]

Ben olsam;

Data >> Filter >> Advanced filter (Unique records) + Copy To: ... yaptıktan sonra A-Z ile sıralarım. (Toplam süre : 2-3 saniye)

Dediğiniz yöntem kısa tabiki arkadaş fonksiyon başlığı adı altında açınca fonksiyonla istiyor diye bir çözüm hazırlamıştım. Fenada olmamış hani..

 

[azize]

Ben olsam;

Data >> Filter >> Advanced filter (Unique records) + Copy To: ... yaptıktan sonra A-Z ile sıralarım. (Toplam süre : 2-3 saniye)

ben de onu anlatmıştım .. sizin anlatış tarzınız daha bilimsel olmuş saygılarımla..