Página 1 de 1
Macro Copiar / Formula
Enviado: 10 Jun 2021 às 10:45
por CAMILOALVES
Bom Dia
Na Planilha “Inserir Pendencia PR” contém um botão “INSERIR” que possui uma rotina (macro) que deveria estar copiando as fórmulas das células “Q7” e “S7” para colunas 17 (Pendente?) e 19 (ano_AUX) respectivamente para a planilha “Registro Pendencia PR” sempre que houver uma nova inclusão de dados através da planilha “Inserir Pendencia PR” .
Peço ajuda na análise, pois a referida rotina (macro) não dá mensagem de erro, simplesmente não copia as fórmulas para linha posteriores.
Desde já agradeço
Re: Macro Copiar / Formula
Enviado: 10 Jun 2021 às 14:15
por osvaldomp
Salve, @CAMILOALVES .
Me parece que você quer copiar as fórmulas de Q7 e S7 da planilha Registro e colar na última linha da própria planilha, que foi recém preenchida pelo código. É isso?
A propósito, na fórmula em Q7 ~~~> =SE(B7="";"";SE(E(L7="";M7="";N7="");"SIM";SE(OU(L7<>"";M7<>"";N7<>"");"NÃO"))) o último SE é desnecessário,
então pode ser simplificada para ~~~> =SE(B7="";"";SE(E(L7="";M7="";N7="");"SIM";"NÃO"))
Ainda, confirme pois ao final o seu código chama este outro CopiaColaFórmulasPR que aparentemente não tem utilidade nessa situação.
Re: Macro Copiar / Formula
Enviado: 10 Jun 2021 às 14:47
por CAMILOALVES
Prezado osvaldomp - 10 Jun 2021 às 15:15, Boa tarde!
Grato por dispor seu tempo para me orientar e ajudar.
Então..
A ideia é essa mesmo, copiar as fórmulas das células "Q7" e "S7" até a última linha preenchida, por isso a rotina: Call CopiaColaFórmulasPR está agregada na macro, porém a referida macro (CopiaColaFórmulasPR) não está atendendo ao proposto, sendo assim, se possível, peço analisar o que há de errado com ela (CopiaColaFórmulasPR) .
Desde já agradeço
OBS: Já fiz a simplificação da fórmula da célula "Q7" conforme sugerido por Você.
Abraços
Re: Macro Copiar / Formula
Enviado: 11 Jun 2021 às 14:00
por osvaldomp
CAMILOALVES escreveu: ↑10 Jun 2021 às 14:47
... porém a referida macro (CopiaColaFórmulasPR) não está atendendo ao proposto, sendo assim, se possível, peço analisar o que há de errado com ela ...
Nada de errado com ela, o erro é tentar aproveitá-la, pois como comentei antes, ela não pertence a este jogo.
Instale uma cópia do código baixo no lugar do existente. Ele replica os dados, as fórmulas e limpa os dados de origem.
Código: Selecionar todosSub lsIncluirNCPR()
Dim k As Long, c As Range, LR As Long
LR = Sheets("Registro Pendencia PR").Cells(Rows.Count, 1).End(3).Row + 1
For Each c In Range("C9:C13,D13,C14,C16:C17,C15,C18,W1:Y1,C19:C20")
Sheets("Registro Pendencia PR").Cells(LR, k + 1) = c.Value: k = k + 1
Next c
Sheets("Registro Pendencia PR").[Q7].Copy Sheets("Registro Pendencia PR").Cells(LR, 17)
Sheets("Registro Pendencia PR").[S7].Copy Sheets("Registro Pendencia PR").Cells(LR, 19)
[C10:C18] = ""
End Sub
Re: Macro Copiar / Formula
Enviado: 11 Jun 2021 às 16:11
por CAMILOALVES
Prezado osvaldomp - 11 Jun 2021 às 15:00, Boa Tarde!
Bingo!
Obrigado por dedicar seu tempo para ajudar-me.
Meu respeito e minha admiração.
DEUS continue lhe dando sabedoria.
Atenciosamente.
Re: Macro Copiar / Formula
Enviado: 11 Jun 2021 às 19:08
por osvaldomp
Salve,
@CAMILOALVES .
Que bom que você resolveu a sua demanda.
God bless you too!
