sıralama

[okavut]

sutunları sıralama (h9:h28 arası)
siteden bir kaç kod aldım ama yapamadım

 

[Emir Hüseyin Çoban]

Merhaba, aşağıdaki kodları dener misiniz.

Dosyanız üzerinde çalışmasını yaptım ancak şuanda ekleyemiyorum.

Sub TutarAdanZye()
    Range("B8:H28").Select
    ActiveWindow.SmallScroll Down:=-36
    Selection.Sort Key1:=Range("H9"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
Sub TutarZdenAya()
    Range("B8:H28").Select
    Selection.Sort Key1:=Range("H9"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
Sub Pozno()
    ActiveWindow.SmallScroll Down:=-6
    Range("B8:H28").Select
    ActiveWindow.SmallScroll Down:=-6
    Selection.Sort Key1:=Range("C9"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[okavut]

Sayın Hüseyinbey;
ilginize teşekkür ederim. tam istediğim gibi olmuş.
Herşey gönlünüzce olsun

 

[Emir Hüseyin Çoban]

Sayın Hüseyinbey;
ilginize teşekkür ederim. tam istediğim gibi olmuş.
Herşey gönlünüzce olsun

Rica ederim Sy Okavut, iyi çalışmalar.