Excel Makro Filtreleme Sorunu

[kkkazan]

Arkadaşlar merhaba,

A1 ile AA1 arasında bir başlık altında bir veri girişi yaptım S1 de tarih alanı var ve ben günün sonunda bu tarih alanına bir butonla küçükten büyüğe sıralama yaptırmak istiyorum.
Aşağıdaki Kod'u buton içine ekledim çalışıyor fakat Descending olarak sadece Ascending yaptığımda , hariç tuttuğum halde başlığıda sona yolluyor , başlığı yani A1: AA1 Satırını koruma altına nasıl alabilirim aşağıdaki kodun içerisinde? Yardımlarınız için şimdiden teşekkür ederim.

Sub Button4_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("A2:AA2").Sort key1:=Range("S2"), ORDER1:=xlAscending
Range("A65535").End(xlUp).Offset(1, 0).Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[hamitcan]

Makro Kaydet yöntemi ile basit bir kod hazırladım. Kendinize göre uyarlayın.

Sub Sirala()
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("A1:B4")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[kkkazan]

Makro Kaydet yöntemi ile basit bir kod hazırladım. Kendinize göre uyarlayın.

Sub Sirala()
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("A1:B4")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Emeğinize sağlık fakat bu işlem de uyarlanacak tek alan A1:B4 dür fakat ben sıralamayı A1 : AA1 arasında S1 deki hücreye göre birde aşağıdan yukarıya doğru yani olarak yapmak istiyorum ,

 

[hamitcan]

Aralığı kendinize göre uyarlayabilirsiniz. Yalnız sıralama yapacağınız alanda başlıkların var olduğunu(
.Header = xlYes)

belirtmelisiniz. Bu sayede sıralamaya dahil olmayacaklardır.

 

[kkkazan]

İlginiz için teşekkür ederim makro kaydını kullanarak çözdüm.