Uma maneira seria: Sub ExcluiDiferentes() Dim rg As Range, c As Range For Each c In Range([G2], [G2].End(xlDown)) If c <> c(1, 2) T...

Bom dia, @decovioti Ao invés da imagem, anexe um arquivo Excel para que possamos trabalhar nele. De qualquer forma, não entendi a relação entre a pr...

Ainda funciona, hehehe. Mas pelo que acompanhei em outros casos com o mesmo problema, num momento ou em outro acaba dando algum problema. Se seu proje...

@willramires, boa noite Infelizmente quando isso acontece é sinal que o arquivo está corrompido e a ferramenta "Abrir e reparar" não corrige esse pr...

Bem vindo ao Planilhando, @acjunior Poste um modelo simplificado aqui, mas que reproduza o problema. Se tiver tabelas com muitas linhas de dados,...

@mestre, bom dia. O arquivo que vc anexou não tem vínculo nenhum, já veio só com os erros #REF. Teria que anexar o arquivo que exporta, não o já exp...

Mas os números que já existem na coluna E vão sumir? Se entendi direito, seria preencher a coluna D (TP) com o número que vem antes da barra (mesma ...

Olá, @midel O ideal seria vc anexar um arquivo com mais detalhes. Bem, o código abaixo varre o diretório indicado e coloca todos os nomes de arqui...

Boa noite, @evilmaax Não há nada na macro que seja exclusiva da versão 365, portanto deve-se investigar outros pontos. Sempre que possível, ev...

O colega @televisaos tem razão, @elias_r_c, aquele trecho é um loop infinito, pois como a variável contador não é atualizada dentro do loop, a única m...

Se vc mesmo desenvolveu ou encontrou a solução, não há problema em postar aqui a solução (isso é inclusive encorajado nos fóruns de discussão).

Olá, @mestre Como é feita essa exportação? Então onde estão os links? Em intervalos nomeados? Figuras? De qualquer forma, se forem links co...

Bom dia, @buscheric Coloque o modelo do Word na pasta de modelos ou numa pasta fixa qualquer de seu PC; No Módulo1, atualize o caminho + nome do ...

Bem vindo ao Planilhando, @DECOVIOTI Clonando resposta que postei no outro fórum: "Tem que dizer pro VBA pra substituir só palavras inteiras, usan...

Para o primeiro maior: =SEERRO(MAIOR(SE($P$5:$P$13=$U$4;$Q$5:$Q$13;"");1);"") É uma fórmula matricial, portanto finalize-a com CTRL SHIFT ENTER. ...