Macro com Sortfield do vba dando erro no LO

perguntadas 2020-01-14 20:49:20 +0100

updated 2020-01-14 21:22:47 +0100

Olá, tenho uma macro que estava funcionando no Excel, porém, no LO calc, quando a rodo, dá o erro "erro de execução basic 423. Sort". A macro é para percorrer todas minhas planilhas e classificar as linhas por ordem alfabética. Uma parte dela está abaixo (o restante é igual a essa parte, so mudando os nomes das planilhas). Alguém saberia dizer o que há de errado e como arrumar?

Option VBASupport 1
Sub classifica_por_ordem_alfabetica()
'comando para classificar todas as planilhas por ordem alfabetica

Cadastro = Sheets("CADASTRO PACIENTE").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("CADASTRO PACIENTE").Sort
        .SortFields.Add Key:=Range("A1"), Order:=xlAscending
        .SortFields.Add Key:=Range("K1"), Order:=xlAscending
        .SetRange Range("A1:M" & Cadastro)
        .Header = xlYes
        .MatchCase = True
        .Orientation = xlTopToBottom
        .Apply
    End With
Sheets("CADASTRO PACIENTE").Sort.SortFields.Clear

End sub

OBS: Me viro muito bem no vba, mas comecei esse mês um projeto no LO, estou me batendo ainda. Vi um tópico semelhante, mas não consegui ver como corrigir meu código. Agradeço qq ajuda!

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @pedromed, seja bem vindo ao Grupo.

Acione o gravador de Macros e execute os procedimentos, no final salve a macro.

É uma maneira de montar a macro.

-----------------------------------------------------------------------------

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Não use Adicionar resposta para comentário. Grato.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-01-14 21:37:28 +0100 )editar