Problema erro 438 com ListObjects  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Problema erro 438 com ListObjects

Mensagempor LuccasMB » Sex Mai 17, 2019 4:45 pm

Boa tarde, eu estou desenvolvendo uma solução e tenho uma planilha rodando perfeitamente na minha máquina, com Windows x64 e Office 2016 x84.
Desinstalei de outra máquina que possui Windows x64 o Office 2016 x64 e instalei o Office 2016 x84.
Quando tento executar o código nesta outra máquina ocorre o erro 438. O erro se encontra em:
Código: Selecionar todos
ActiveWorkbook.Worksheets("Listagem").ListObjects("Listagem").Sort.SortFields. _
        Add2 Key:=Range("Listagem[Cód.]"), SortOn:=xlSortOnValues, Order:= _
        xlDescending, DataOption:=xlSortNormal


Já pesquisei muito e posso estar deixando passar algo, me desculpe se o tópico é repetido, mas diversas soluções que eu tentei falando sobre mscomctl.ocx (imaginando que fosse esse o problema) e nada faz funcionar nesta outra máquina. Eu estou começando a não entender o problema pois eu consigo inserir uma ListView em um formulário nessa nova máquina.

Código: Selecionar todos
Sub organizarlistagem()
    Range("A2:L10000").Activate
    ActiveWorkbook.Worksheets("Listagem").ListObjects("Listagem").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Listagem").ListObjects("Listagem").Sort.SortFields. _
        Add2 Key:=Range("Listagem[Cód.]"), SortOn:=xlSortOnValues, Order:= _
        xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Listagem").ListObjects("Listagem").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Agradeço desde já a atenção e a quem puder me ajudar.
LuccasMB
Membro
Membro
 
Mensagens: 2
Registrado em: Sex Mai 17, 2019 4:31 pm
Has thanked: 1 time
Have thanks: 0 time

{ SO_SELECT }

Re: Problema erro 438 com ListObjects

Mensagempor wagner » Sex Mai 17, 2019 8:22 pm

LucasMB,

Boa noite!

Seja muito bem vindo (a) ao fórum.

DICAS para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Algumas solicitações especiais que pedimos, por gentileza, ficar atento:
1 - Não inserir no titulo de suas postagens expressões como Help, Ajuda, etc. O título deve ser um resumo da sua necessidade para que outras pessoas que tenham a mesma dúvida possam efetuar a pesquisa e achar como foi resolvido.
2 - Não insira em suas mensagens frases todas escritas em letras maiúsculas. Isso, na Internet, é compreendido como gritos e muitos usuários sequer respondem somente por esse fato!
3 - Insira sempre um arquivo exemplo compactado com .ZIP aqui mesmo no fórum. Existe, logo abaixo da caixa de mensagens, uma aba chamada "Adicionar um anexo" para essa finalidade. O arquivo exemplo deve ser pequeno, com apenas 5 linhas no máximo, compactado com .ZIP e ter o mesmo layout (nome do arquivo, nome das abas/guias/folhas, mesma linha/coluna onde os dados se iniciam) do arquivo original. Links de arquivos enviados para sites de compartilhamento de arquivos, muitas vezes são bloqueados pelas empresas, por conterem muitos vírus. Alguns usuários que acessam o fórum a partir de empresas não conseguem baixar tais arquivos.
4 - Não utilize a ferramenta CITAR para inserir o inteiro teor das mensagens que lhe são encaminhadas como resposta. Citações, se estritamente necessárias ao entendimento da mensagem que você quer enviar, devem ser apenas de pequenos trechos das mensagens.
5 - Se for postar códigos VBA aqui no fórum, utilize a ferramenta CODE localizada logo no início da caixa de mensagens (quinto botão da esquerda para a direita). As linhas de código devem ficar entre as palavras "CODE e /CODE".
6 - Agradeça sempre às pessoas que lhe responderam e às mensagens que atenderam a necessidade de sua demanda. Esse agradecimento deve ser clicando na mãozinha que fica localizada ao lado da ferramenta CITAR. Lembre-se: o fórum é gratuito e esse é o único incentivo para as pessoas que prestam ajuda. Você pode agradecer a quantos usuários quiser.
7 - O título ou o texto das mensagens postadas não devem ser escritos todo em letras maiúsculas. Na internet, tudo escrito em letras maiúsculas é interpretado como gritos e muitos usuários sequer olham para esse tipo de mensagem.
8 - Não Utilize o Botão CITAR para efetuar as suas respostas. Para fazer isso use apenas o Botão RESPONDER.

Quanto a sua demanda, já tentou usar o gravador de macros para gravar esse trecho que está dando problema na máquina onde ocorreu esse erro?
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
LuccasMB (Seg Mai 20, 2019 8:09 am)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5462
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 98 times
Have thanks: 2321 times

Re: Problema erro 438 com ListObjects  [Resolvido]

Mensagempor LuccasMB » Seg Mai 20, 2019 1:21 pm

Resolvi meu problema da seguinte forma. Ainda não sei o porque do código anterior não funcionar em outros computadores, testei mais de 1 com mesmas configurações.

Mas substitui meu código por esse e funcionou perfeitamente.

Código: Selecionar todos
Sub organizarlistagem()
    Sheets("Listagem").Activate
    Dim DataRange As Range
    Set DataRange = ActiveSheet.UsedRange
    DataRange.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes
End Sub
LuccasMB
Membro
Membro
 
Mensagens: 2
Registrado em: Sex Mai 17, 2019 4:31 pm
Has thanked: 1 time
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 5 visitantes