sıralama makrosu

[ahmetozbey]

b5:b1000 arasındaki isimleri a-z sıralayack makro yapmak istiyorum yardımcı olursanız sevinirim

 

[Orion1]

Range("B5:B1000").Sort Range("B5")

 

[Tasarım]

b5:b1000 arasındaki isimleri a-z sıralayack makro yapmak istiyorum yardımcı olursanız sevinirim

[FONT="Tahoma"]Range("B5:B1000").Select
    Selection.Sort key1:=Range("B1"), order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom[/FONT]