Página 1 de 1

Macro Copiar / Colar

Enviado: 20 Abr 2021 às 15:42
por 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

Re: Macro Copiar / Colar

Enviado: 20 Abr 2021 às 15:59
por mucascosta
Veja se ajuda:

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

Re: Macro Copiar / Colar

Enviado: 20 Abr 2021 às 16:30
por 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".

Re: Macro Copiar / Colar

Enviado: 20 Abr 2021 às 17:14
por 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

Re: Macro Copiar / Colar

Enviado: 20 Abr 2021 às 17:28
por 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

Re: Macro Copiar / Colar

Enviado: 20 Abr 2021 às 17:30
por osvaldomp
mucascosta escreveu: 20 Abr 2021 às 17:14 Vc pode vincular em um único botão para copiar as 4 informações...
@mucascosta foi de Ferrari e eu de Fusca :(

Re: Macro Copiar / Colar

Enviado: 22 Abr 2021 às 14:48
por 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.