macro ile verilerde sıralama yapmak

[mersilen]

selamlar
aşağıdaki tabloda a20:ah46 arasını w20:w46 arasındaki verilere göre alfabetik olarak sıralama yapacak
takiben w sütunundakileri b20:b46 dakilere göre kendi içinde sıralama yapan macro koduna ihtiyacım var
teşekkürler

 

[Emir Hüseyin Çoban]

Merhaba, önce W sütununa göre daha sonra B sütununa göre mi sıralamak istiyorsunuz?
Öyle ise aşağıdaki kodları deneyiniz.

Sub sirala_20()
    Range("A20:AH46").Select
    Selection.Sort Key1:=Range("W20"), Order1:=xlAscending, Key2:=Range("B20" _
        ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
End Sub

 

[mersilen]

hüseyin bey teşekkürler
sorunsuz çalışıyor