Boa noite,
Veja se este exemplo de código te ajuda:
Sub Classificar()
[B6:J505].Sort Key1:=[B6], Order1:=xlAscending
[AA6:AA505].Sort Key1:=[AA6], Order1:=xlAscending
[AD6:AD505].Sort Key1:=[AD6], Order1:=xlAscending
End Sub
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/09/2011 8:02 pm