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

[KaKaBeCuDo]

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]

@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]

 

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]

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]

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]

@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]

@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]

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]

@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]

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

 

Selection.Insert Shift:=xlDown

 

[Midori]

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

[KaKaBeCuDo]

@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]

@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]

@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

 

ALTERANDO QUALQUER CÉLULA (agora alterei a célula T77)

[KaKaBeCuDo]

@Midori Nenhuma ideia do que possa causar esse erro de depuração? Muito estranho..... 

Acontece com você também? Utilizando o arquivo que te mandei no último post?

[Midori]

@KaKaBeCuDo Aqui não acontece esse erro. Pode ser algo com o seu Excel.