EXCELer

Há dias, num newsgroup, colocaram a questão de saber como se poderia ordenar um range dinâmico em termos de linhas, com o tipo de ordenação na horizontal (por linha) e da direita para a esquerda.

Tomemos o seguinte exemplo demonstrativo da pretensão e do consequente resultado:

O Código:

Sub SortRow()
'JRod
'
'Copyright 2007
   Dim R, RowNum As Long
   RowNum = ActiveSheet.UsedRange.Rows.Count
   For R = 2 To RowNum + 1
    Range("A" & R & ":E" & R).Sort key1:=Range("A" & R), _
        Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlLeftToRight
   Next R
End Sub

Tópicos relacionados:

• Determine the "real" UsedRange

• Lastcell, Reset Last Used Cell (by David McRitchie)

• UsedRange Property [Excel 2003 VBA Language Reference]

• Reset UsedRange in Excel (by Mark Jerzykowski)

• Some notes on sorting in Excel (by David McRitchie)

• VB Helper (by Rod Stephens)