otomatik sıralama

[emre67z]

arkadaşlar merhaba,

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

bu kod ile sadece belirli bir aralık sıralanıyor(Büyükten küçüğe) G sütünü sıralıyor
ben ise kendi aralığımı seçip çalıştır dediğimde sıralasın istiyorum. bunu nasıl yapabiliriz.

 

[PLİNT]

Merhaba
Aşağıdaki kodları deneyin

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

 

[emre67z]

Merhaba
Aşağıdaki kodları deneyin

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

Çok Geç dönüş yapabildim ama, teşekkür ederim zaman ayırdığınız için. İşimi kolaylaştırdı hayli.