Página 1 de 1

Data automática de inserção

Enviado: 28 Ago 2018 às 15:51
por PedroHC
Perdão se já tem um tópico sobre isso, mas não encontrei.

Estou montando uma planilha de acompanhamento de atendimentos a clientes. Minha questão vem que eu gostaria de poder colocar uma coluna de comentários/atendimentos e uma ao lado de data da inserção desse comentário ou atendimento. Gostaria de saber se tem como registrar automaticamente a data. Na minha ignorância, coloquei a seguinte fórmula:

=if(ISBLANK(E7), ("."), (TODAY()))

considerando, por exemplo, e7 como uma das células para inserir comentários. Eu fiz isso sem conhecer a função HOJE, e achei que tinha dado certo, até abrir a planilha no dia seguinte e ver a data atualizada, hehe...

Alguém pode me ajudar?

Re: Data automática de inserção

Enviado: 28 Ago 2018 às 20:11
por osvaldomp
PedroHC escreveu:... até abrir a planilha no dia seguinte e ver a data atualizada...
Utilize macro que a data não será atualizada. Instale o código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
 Target.Offset(, 1).Value = IIf(Target.Value <> "", Date, "")
End Sub
funcionamento - após inserir manualmente algum conteúdo em qualquer célula da coluna E o código irá inserir a data do dia na coluna F, mesma linha.