Muleskin57
New Member
- Joined
- Dec 22, 2016
- Messages
- 23
I have the following macro that I want to run using the current active range (which I've already defined with another macro). What can I substitute for the range definitions to make this dynamic?
Sub test()
'
' test Macro
'
'
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Add Key:=Range("G3:G83"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Add Key:=Range("H3:H83"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Add Key:=Range("A3:A83"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LOG").Sort
.SetRange Range("A2:O83")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sub test()
'
' test Macro
'
'
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Add Key:=Range("G3:G83"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Add Key:=Range("H3:H83"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("LOG").Sort.SortFields.Add Key:=Range("A3:A83"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LOG").Sort
.SetRange Range("A2:O83")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With