Makro ile alfabetik sıralama

[hexe]

Selam Arkadaşlar,
Excelde bir liste yaptım bu listeyi alfabetik olarak yapmak istiyorum.Yardımlarınız için şimdiden teşekkürler

 

[dEdE]

Mrb.,
Listenizin A sutununda olduğunu ve A-z şeklinde sıraladığınızı varsayarsak;

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

işinizi görür.
Kolay gelsin

 

[hexe]

Selam dede,

ekte bir örnek gönderiyorum.A2 B2 C2 birbirine bağlantılı yani aynı firmaya ait.190 satır var.Benim istediğim bu firmalar alfabetik sıraya göre olsun.Dediğin kodu uyguladım ama hiç bir şey olmadı.yada ben beceremedim

 

[Necdet]

Levent Bey'in çalışmasından

Sub sirala()
[a2:z65536].Sort Key1:=[a2], Key2:=[b2]
End Sub

 

[hexe]

Teşekkür ederim
iyi akşamlarrr