Boa tarde,
Tenho uma planilha da qual preciso classificar varias linhas e colunas separadas.
Queria fazer um macro para que classificasse sempre as linhas e colunas que estivessem selecionadas na planilha.
Sempre com os mesmos filtros das colunas e ordem.
As colunas sempre serão as mesma para classificar, e as linhas seriam as que estivessem selecionadas na planilha.
Sub Teste()
'
' Teste Macro
'
'
ActiveWorkbook.Worksheets("Não Validados").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Não Validados").Sort.SortFields.Add Key:=Range( _
"F22:F57"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Não Validados").Sort.SortFields.Add Key:=Range( _
"G22:G57"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Não Validados").Sort.SortFields.Add Key:=Range( _
"I22:I57"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Não Validados").Sort
.SetRange Range("A22:J57")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Início 