İsimleri Alfabetik Sıralama

[airborne]

Sayfa1 de A sütununda aşağıdaki gibi İsimlerim var bunları yine A sütununda nasıl alfabetik sıraya makro ile dizilebilir.

Ahmet Fevzi ADAR
İdris AGIL
Mehmet AYHAN
Kemalettin Sinan BÖR
ihsan DURHAT
İrfan GERÇEK
Halil İbrahim ŞAN
Hamza KAYA
Osman LİMON
Yunus ÖZDEMİR
Faruk SOĞANCI
Lütfi SUNA
Fahrettin ÖZTURGUT
Celal TUZTURK
Yahya TURKER
Semra UZUNOVA
Orhan ÜNAL

Mesela , 1. Sırada Ahmet Fevzi ADAR
2. Sırada Fahrettin ÖZTURGUT

eğer Ali ÜNAL varsa 2. Sıraya Ali ÜNAL gelecek şekilde

 

[Ali]

A1:A20 aralığında verileriniz var diyelim

Sub Makro1()
Range("A1:A20").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

 

[Necdet]

Merhaba,

Alternatif B1 hücresindeki değere göre sıralama şekli değişir.

1. Küçükten Büyüğe
2. Büyükten Küçüğe

Public Sub Sirala()
Range("A2:A" & [A65536].End(3).Row).Sort Key1:=[A2], order1:=[B1]
End Sub

 

[airborne]

çok teşekkür ederim sayın ali. Allah Razı olsun