Excel Macro apresentando erro ao incluir/excluir conteúdo de células

KaKaBeCuDo · 14 de julho de 2020

Olá amigos, bom dia!! Nesse arquivo em anexo, os "Botões" Inserir Parte e Excluir Parte apresentam erro na macro quando digitamos algo em qualquer célula desbloqueada.
Também o botão Excluir Parte que está na linha 30 ele apaga mais linhas do que o necessário - o objetivo é só apagar 2 linhas caso haja uma "2ª Parte" inserida anteriormente.

Se alguém puder me ajudar, fico muito grato!!

Quadro Anúncios - SET_2020.zip

Midori · 14 de julho de 2020

@KaKaBeCuDo O erro acontece em ExcluirLinhaSemana1 quando a célula/linha que tem a REFERÊNCIA X é excluída.

Nessa sub o correto não seria "Cells([Z:Z].Find " em vez de "Cells([X:X].Find"?

KaKaBeCuDo · 14 de julho de 2020

adicionado 8 minutos depois

43 minutos atrás, Midori disse:

@KaKaBeCuDo O erro acontece em ExcluirLinhaSemana1 quando a célula/linha que tem a REFERÊNCIA X é excluída.

Nessa sub o correto não seria "Cells([Z:Z].Find " em vez de "Cells([X:X].Find"?

Olá @Midori boa tarde!! Acredito que seja "Cells([Z:Z]).Find" mesmo.

Poderá perceber que na Célula Z30 temos escrito REFERÊNCIA. Essa célula serve de base para as macros InserirLinhaSemana1 e ExcluirLinhaSemana1. A intenção dessas duas Macros é encontrar a palavra "REFERÊNCIA" na Coluna Z e clonar as linhas +2 e +3 a partir dessa referência. Essas duas novas linhas serão incluídas nas linhas + 4 e + 5 a partir da referência.

Na célula X69 temos escrito também REFERÊNCIA - servindo para as outras duas macros desta planilha (InserirLinhaSemana2 e ExcluirLinhaSemana2). Mesmo esquema mencionado acima!

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

Insira qualquer valor em uma célula desbloqueada e tente clicar no Botão "Inserir Parte". Vai apresentar erro na macro

Midori · 14 de julho de 2020

47 minutos atrás, KaKaBeCuDo disse:

Insira qualquer valor em uma célula desbloqueada e tente clicar no Botão "Inserir Parte". Vai apresentar erro na macro

Inseri um valor na célula T71 da planilha NVMC1, cliquei no botão e não apresentou nenhum erro.

KaKaBeCuDo · 14 de julho de 2020

1 hora atrás, Midori disse:

Inseri um valor na célula T71 da planilha NVMC1, cliquei no botão e não apresentou nenhum erro.

Estranho, por que para mim continua aparecendo erro. Vou anexar o print para você dar uma analisada...

Midori · 14 de julho de 2020

@KaKaBeCuDo Teste desta forma, veja se assim a inserção é feita,

Sub InserirLinhaSemana_Teste()
    Dim L   As Long
    
    L = [X:X].Find("REFERÊNCIA").Row
    
    ActiveSheet.Unprotect
    
    Rows(L + 2 & ":" & L + 3).Copy
    Rows(L + 2 & ":" & L + 3).Insert Shift:=xlDown
    Cells(L + 4, 19) = "2ª Parte"
    
    Application.CutCopyMode = xlCut
    ActiveSheet.Protect
End Sub

KaKaBeCuDo · 14 de julho de 2020

@Midori , Muito Obrigado! Ficou perfeita a sua sugestão....

Porém, infelizmente o erro ainda continua. Bem estranho! Se as células em CINZA estão vazias, a Macro roda liso. Mas se eu adiciono uma informação, ela apresenta o erro...

KaKaBeCuDo · 16 de julho de 2020

Em 14/07/2020 às 16:15, Midori disse:

@KaKaBeCuDo Teste desta forma, veja se assim a inserção é feita,


Sub InserirLinhaSemana_Teste()
    Dim L   As Long
    
    L = [X:X].Find("REFERÊNCIA").Row
    
    ActiveSheet.Unprotect
    
    Rows(L + 2 & ":" & L + 3).Copy
    Rows(L + 2 & ":" & L + 3).Insert Shift:=xlDown
    Cells(L + 4, 19) = "2ª Parte"
    
    Application.CutCopyMode = xlCut
    ActiveSheet.Protect
End Sub

@Midori Bom Dia.... Tem alguma ideia de porque ainda apresenta erro ao preencher a célula T71?

Veja o print abaixo...

Midori · 16 de julho de 2020

@KaKaBeCuDo Tente fazer esse procedimento de inserção manualmente (sem macro). Se der certo faça novamente com o gravador de macro ativado, depois desative a gravação e execute o código gerado. Veja se nesses testes dá algum erro.

KaKaBeCuDo · 16 de julho de 2020

@Midori Fiz o procedimento aqui manualmente, e apresentou erro na mesma linha da sub:

Selection.Insert Shift:=xlDown

Midori · 16 de julho de 2020

@KaKaBeCuDo A inserção manual sem macro deu certo?

KaKaBeCuDo · 16 de julho de 2020

@Midori A inserção manual sem macro deu certo. Vou te explicar o que fiz para ver se é o caminho correto:

-Selecionei a coluna X

-Procurar "REFERÊNCIA"

-Avancei 1 célula para baixo

-Selecionei as duas linhas desejadas e copiei

-Inseri a linha copiada com Ctrl+Shift+"+"

Midori · 16 de julho de 2020

@KaKaBeCuDo Vi agora que na outra imagem que você postou da planilha não tem as células da REFERÊNCIA. Então vai dar erro mesmo, mas normalmente a mensagem é de Erro 91...

Esse erro acontece mesmo com as REFERÊNCIAS nas colunas X e Z?

KaKaBeCuDo · 16 de julho de 2020

@Midori Sim. Na verdade, as células estão na planilha sim, porém estavam com cor da fonte branca (para não aparecer).

O erro acontece mesmo com as células nos lugares. O que é muito curioso é o fato da Macro funcionar normalmente antes de alterar qualquer célula. Mas depois de qualquer modificação, apresenta o erro!!! kkkkkk

SEM INCLUIR / MODIFICAR NADAQuadro Anúncios - SET_2020.zip