Este fórum está sendo desativado

[matheusroliv]

Bom dia,
Gostaria de saber o que está de errado em minha macro, segue o código:

Sub classificar()

ThisWorkbook.Sheets("Parcelas e Meta de Quebra").Select
Sheets("Parcelas e Meta de Quebra").Select
Sheets("Parcelas e Meta de Quebra").Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight).End(xlToRight).End(xlToRight).End(xlToRight).End(xlToRight).End(xlToRight).End(xlToRight).End(xlToRight).End(xlToRight).End(xlToRight)).Select
With ActiveWorkbook.Worksheets("Parcelas e Meta de Quebra").Sort
.SortFields.Clear
.SortFields.Add Key:=ThisWorkbook.Sheets("Parcelas e Meta de Quebra").Range("A5:A10"), _
SortOn:=xlSortOnValures, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A5:A10")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

O seguinte erro "O método Sort do objeto _worksheet falhou" está na "With ActiveWorkbook.Worksheets("Parcelas e Meta de Quebra").Sort"

Gostaria de aproveitar, como faço para o range de seleção ser tudo o que estiver na coluna A por exemplo, já que esta planilha estará mudando todo dia e eu sempre vou precisar classificar tudo.

[Jimmy]

Olá Matheus,

Poderia postar a planilha para que possamos estudar o erro?

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan

[matheusroliv]

Boa tarde,

Não posso enviar a planilha por conter dados confidenciais da empresa bancários.

Mas, vou tentar explicar melhor o erro:

Código: Selecionar todos

Sub TESTE()
 Range("A5:BC300").Select
    ActiveWorkbook.Worksheets("Parcelas e Meta de Quebra").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Parcelas e Meta de Quebra").Sort.SortFields.Add Key:=Range( _
        "A5:A300"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Parcelas e Meta de Quebra").Sort
        .SetRange Range("A5:A300")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Estou depurando, e está parando em "ActiveWorkbook.Worksheets("Parcelas e Meta de Quebra").Sort.SortFields.Clear"
Com o seguinte erro "O metodo Sort do objeto worksheet falhou"

Obrigado

[Jimmy]

Matheus,

O código em si não tem problema, mas pode apresentar erro dependendo das condições da planilha, dos dados, etc.

Por exemplo, pode dar erro numa planilha protegida, ou nome da planilha digitado errado, etc. Esses 2 exemplos não se aplicam a você, pois a mensagem é outra, mas estou apenas mostrando que só com o código o máximo que se faz é dar palpites e jogar com a sorte.

Tente fazer uma cópia da planilha, de tamanho reduzido, e com os textos e valores alterados, pra poder enviar.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan