Página 1 de 1

Deixar uma celula igual a outra somente na inserção de dados

Enviado: 13 Jul 2020 às 10:36
por mastellaro
Bom dia Pessoal!

Preciso de uma ajuda. Eu gostaria que minhas Colunas "R" fossem iguais as minhas colunas "Q", porém, somente quando "Q" fosse inserida. Em edições de "Q", "R" deverá permanecer intacta, vou exmplificar:

1 - Q2 recebeu a inserção da data 28/10/2020;
2 - R2 deverá receber a mesma data automaticamente;
3 - Q2 teve a data alterada de 28/10/2020 para 29/10/2020;
4 - R2 deverá continuar com a data 28/10/2020;

É possivel fazer isso?

Desde já agradeço.

Re: Deixar uma celula igual a outra somente na inserção de d

Enviado: 13 Jul 2020 às 11:21
por mucascosta
Veja o anexo...

Deixar uma celula igual a outra somente na inserção de dados

Enviado: 13 Jul 2020 às 13:35
por mastellaro
Amigo, agradeço seu retorno. Mas sou um cara leigo no excel, o que sei foi aprendendo sozinho...
Como posso ver o que voce implementou para aplicar na minha planilha?

Re: Deixar uma celula igual a outra somente na inserção de d

Enviado: 13 Jul 2020 às 19:15
por mucascosta
Private Sub Worksheet_Change(ByVal Target As Range)
'Evento Worksheet.Change(Excel)
'Ocorre quando as células da planilha são alteradas pelo usuário ou por um link externo

If Target.Column <> 17 Then Exit Sub 'Aqui diz que o evento só ocorrerá na coluna Q(17)
If Target.Offset(, 1).Value = "" Then 'Se coluna R está vazia
Target.Offset(, 1).Value = Target.Offset(, 0).Value 'Coluna R = Coluna Q. Caso contrário só altera a coluna Q
End If
End Sub

Esse evento está na Aba Planilha1;
Para ter acesso ao evento: Click lado direito do mouse na aba Planilha1, em seguida click em Exibir código.