Este fórum está sendo desativado

[CAMILOALVES]

Boa Tarde!
O objetivo é, copiar o dado digitado na célula “C10” da planilha “Cadastro Horário” para a célula “N7” da planilha “CALENDÁRIO”, tentei até fazer uma macro, porém está dando bug.
Anexo planilha para se possível fazer análise do bug.
OBS: Caso tenham uma solução melhor, aceitamos sugestão
Desde Já Agradeço

[mucascosta]

Veja se ajuda:

Public Sub HORARIO()
Plan30.Cells(7, 14) = Plan87.Cells(10, 3)
End Sub

[CAMILOALVES]

Prezado mucascosta - 20 Abr 2021 às 16:59
Primeiramente Muito Obrigado Por dispor de seu tempo para ajudar-me.
Então, É isso mesmo, só que tentei replicar sua solução para as demais células ("C11", "C12", "C13") e não obtive êxito.
Se Possível, daria para Você Verificar?
Desde Já Agradeço.
OBS: Anexo novamente a planilha já com a sua solução para célula "C10".

[mucascosta]

Vc pode vincular em um único botão para copiar as 4 informações...

Public Sub HORARIO()
Plan30.Cells(7, 14) = Plan87.Cells(10, 3)
Plan30.Cells(8, 14) = Plan87.Cells(11, 3)
Plan30.Cells(12, 14) = Plan87.Cells(12, 3)
Plan30.Cells(13, 14) = Plan87.Cells(13, 3)
End Sub

[osvaldomp]

#
Prezado, CAMILOALVES - 20 Abr 2021 às 17:30.

E se você utilizar somente um botão para rodar a macro abaixo e replicar os 4 horários de uma vez, seria viável?

Código: Selecionar todos

Sub ReplicaHoras()
 Sheets("CALENDÁRIO").[N7:N8].Value = [C10:C11].Value
 Sheets("CALENDÁRIO").[N12:N13].Value = [C12:C13].Value
End Sub

[osvaldomp]

Vc pode vincular em um único botão para copiar as 4 informações...

@mucascosta foi de Ferrari e eu de Fusca

[CAMILOALVES]

Boa tarde!
Prezados mucascosta - 20 Abr 2021 às 18:14 e osvaldomp - 20 Abr 2021 às 18:28.
Primeiramente Gostaria de agradecê-los pela dedicação, paciência e ensinamento.
Dizer também que o compartilhamento de conhecimento só enobrece o Homem.
Ambas as soluções funcionaram, sendo úteis inclusive para futuras aplicações.
Atenciosamente.