Arquivo corrompido... por favor poste novamente.

Desmarque o resolvido ou crie um novo tópico. Quem sabe alguém dá uma outra solução para esse problema. Abrç!

Até dá , mas acho que vai perder um pouco de sentido a rotina... De qualquer forma, segue: Option Explicit Sub Verificar_e_apagar() Dim ul, ul2, i...

Kkk meu amigo. A não ser que alguém consiga te ajudar de uma maneira mais eficiente, eu te aconselho a rodar a macro e esquece-la por pelo menos uns 4...

Segue conforme pedido: Option Explicit Sub Add_Rows() Dim ul, i, qtd_linhas As Long Dim ws As Worksheet Dim cel As Variant Dim tabela As Range Appl...

Trava de demorar para executar ou trava de dar erro? quantas linhas são? Se o problema for apenas demora, isso é natural pois a rotina percorre lin...

Depende.. se essa busca por sheet estiver num loop e considerando que a macro já funcionava corretamente, bastaria adicionar um On error resume next n...

Segue:

É para apagar apenas os números ou a linha inteira? Se for apagando a linha, segue resolução: Option Explicit Sub Verificar_e_apagar() Dim ul, ul2,...

Fiz uns testes aqui e nem tudo são flores.. Algumas considerações: 1- Seria mais indicado para puxar uma tabela de dados que é atualizada com frequ...

Você pode cirar uma conexão de Dados via fonte ODBC. Guia "Dados" > "De outras Fontes" > "Do assistente de conexão de...

Fiquei curioso... De onde surge essa string de mais de 30 mil caracteres? Não haveria uma forma de simplificá-lo?

Range("A50").Value = Range("A50").Offset(-1,0).Value +1

Poste seu arquivo por favor...