Otomatik Sıralama Revize

[emre67z]

Merhaba arkadaşlar,

@PİLİNT arkadaşımızın yardımcı olduğu kod aşağıda mevcuttur,

Seçili alanı büyükten küçüge olarak sıralamaktadır.

Sub Makro2()
'
' Makro2 Makro
'
' Klavye Kısayolu: Ctrl+İ
'
ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Add Key:=ActiveCell, _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Liste").Sort
.SetRange Range(Selection.Address)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub



Ancak bu kodu sadece adı "liste" olan sayafa çalıştırabilmekteyim. makroyu herhangi bir sayfada çalıştıracak şekilde düzenleme yapılabilir mi?

 

[Korhan Ayhan]

Şu bölümleri ActiveWorkbook.Worksheets("Liste") aşağıdaki gibi değiştirip deneyiniz. (Hepsini değişitiriniz)

ActiveSheet