- 10 Fev 2017 às 08:18
#20004
Não consegui responder ao tópico anterior, porisso poste um novo.
Agradeço Babdallas mas não é disso que preciso.
Tenho que classificar os valores em ordem crescente por nome e não por ano.
De qualquer modo, já resolvi o problema.
Se alguém também tiver essa dúvida, aqui vai:
Sub ClassLinhas()
Dim myRow As Range
For Each myRow In Selection.Rows
myRow.Sort myRow.Cells(1), xlAscending, Header:=xlNo, Orientation:=xlSortRows
Next myRow
End Sub
Muito obrigado assim mesmo
Agradeço Babdallas mas não é disso que preciso.
Tenho que classificar os valores em ordem crescente por nome e não por ano.
De qualquer modo, já resolvi o problema.
Se alguém também tiver essa dúvida, aqui vai:
Sub ClassLinhas()
Dim myRow As Range
For Each myRow In Selection.Rows
myRow.Sort myRow.Cells(1), xlAscending, Header:=xlNo, Orientation:=xlSortRows
Next myRow
End Sub
Muito obrigado assim mesmo