Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Colpani

Macro inserir data/hora quando célula é alterada

Mensagem Recomendada

Olá galera,

 

preciso de uma macro (mas não entendo nada de macros) que faça o seguinte:

 

quando altero o valor que consta na célula A1, na célula B1 é inserida a data e hora da modificação de A1. 

 

Talvez seja simples, talvez não, mas eu não sei fazer. Quem puder ajudar, obrigado.

 

Vlw.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde Colpani

 

Fiz o que vc pediu, baixe a planilha:

 

30_03_13_Digitar na A e mostra Data_hora na B_Patropi.zip

 

Quando acessar não se esqueça de habilitar as macros.

 

Abraço.


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites

Opa Mourense,

 

é isso que eu preciso porém não para uma coluna inteira e sim somente para uma célula (aquela que será editada) e a que está ao seu lado (onde vai ficar a data e hora).

 

É possível copiar o macro e jogá-lo na minha planilha só alterando os valores das células?

 

 

Muito obrigado.

 

Boa tarde Colpani

Fiz o que você pediu, baixe a planilha:

 

attachicon.gif30_03_13_Digitar na A e mostra Data_hora na B_Patropi.zip

 

Quando acessar não se esqueça de habilitar as macros.

 

Abraço.

Editado por Colpani

''

Compartilhar este post


Link para o post
Compartilhar em outros sites

Show de bola Mourense, é isso mesmo!!!

Agora, como que eu levo esse macro pra minha planilha.

Vlw.

Colpani

 

Baixe a planilha e veja se é isto que você quer:

 

attachicon.gif30_03_13_alterando célula A1 data e hora na B1_Patropi.zip

 

Dê retorno.

 

Abs.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Colpani

 

 

Clique com o lado direito do Mouse na aba da tua planilha --> Exibir código --> cole este código:

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Cells.Count <> 1 Then Exit Sub    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub    If Target <> "" Then    Cells(Target.Row, 2).Value = Date & " " & Time      End IfEnd Sub

 

Clique ALT+Q para retornar a planilha.

 

Dê retorno.

 

Abs.


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites

Funcionou Mourense,

uma última pergunta: Se eu quiser mudar os alvos (ao invés de A1 e B1) colocar, por exemplo, R5 e R10. Onde e o que eu devo alterar no código?

Abraço.

 

Colpani

 

 

Clique com o lado direito do Mouse na aba da tua planilha --> Exibir código --> cole este código:

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Cells.Count <> 1 Then Exit Sub    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub    If Target <> "" Then    Cells(Target.Row, 2).Value = Date & " " & Time      End IfEnd Sub
 

Clique ALT+Q para retornar a planilha.

 

Dê retorno.

 

Abs.

 

Editado por Colpani

''

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia Colpani

 

Experimente copiar e colar este aqui:

 

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Cells.Count <> 1 Then Exit Sub    If Intersect(Target, Range("R5")) Is Nothing Then Exit Sub    If Target <> "" Then    Range("R10").Value = Date & " " & Time      End IfEnd Sub

 

Dê retorno.

 

Abraço.


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites

Show Mourense, agora ficou na medida. Já estou usando a tabela...

Muito obrigado pela ajuda.

Um forte abraço.

Bom dia Colpani

 

Experimente copiar e colar este aqui:

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Cells.Count <> 1 Then Exit Sub    If Intersect(Target, Range("R5")) Is Nothing Then Exit Sub    If Target <> "" Then    Range("R10").Value = Date & " " & Time      End IfEnd Sub
 

Dê retorno.

 

Abraço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

O macro começou a apresentar um problema. A data aparece MM/DD/AAAA ao invés de DD/MM/AAAA.

Já verifiquei as configurações do meu computador e está em DD/MM/AAAA.

Abs.

Editado por Colpani

''

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite Colpani

 

Testei aqui, e no meu funcionou normalmente.

 

Experimente formatar a célula R10

 

Clique o lado direito do mouse na célula R10 --> Formatar Células --> Aba Números --> Data --> escolha *14/03/2001 --> Dê OK..

Pronto.

 

Abs.


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites

Que estranho Mourense. Coloquei o macro em várias outras tabelas que uso aqui alterando somente as entradas "R5" e "R10" pois variam conforme a tabela, e o formato da data aparece primeiro o mês e depois o dia mesmo mudando em <formatar células>.

Abs.

Boa noite Colpani

 

Testei aqui, e no meu funcionou normalmente.

 

Experimente formatar a célula R10

 

Clique o lado direito do mouse na célula R10 --> Formatar Células --> Aba Números --> Data --> escolha *14/03/2001 --> Dê OK..

Pronto.

 

Abs.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...