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.