Xaleluia

Crudo: eu ja tinha tentado fazer isso mas não tinha dado certo, o erro é de compilação.

Não funcionou aqui, ficou da seguinte maneira: Public Sub Listar_Mapeamentos_Pendentes() Dim x, y, z, i, a, b, treinamento As Integer Dim curso, gerencia As String ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A1:A6") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub . . . . Ao acionar o botão apareceu mensagem "Erro de compilação: Erro de sintaxe". Estou usando o Excel 2003 SP3.

Ja procurei no fórum e não encontrei nenhum código que funcionasse, provavelmente eu não estou sabendo utilizar ja que comecei a programar em vba a pouco tempo. Meu problema acredito seja simples, eu coloquei um Botão na minha Plan1 e quando ele é acionado ele precisa buscar os dados na Plan7. Porém, antes que o algorítimo comece, ele precisa classificar a Plan7 por Coluna A, em seguida por Coluna D e depois por Coluna C. Public Sub Listar_Mapeamentos_Pendentes() Dim x, y, z, i, a, b, treinamento As Integer Dim curso, gerencia As String . . . . . End Sub A classificação deve ser feita via VBA pois a planilha precisará ser reclassificada em outras rotinas. Agradeço a ajuda de todos.