Duvida Excel: demonstrar o momento da ultima atualização

Question

Bom dia,

Gostaria de saber se &eacute; poss&iacute;vel fazer uma formula que demonstra a ultima vez que os dados de uma aba de planilha foi modificada.

Exemplo:

plan1 foi atualizada no mes passado

plan2 foi atualizada ontem

plan3 foi atualizada hoje

Neste caso, atualizada significaria qualquer altera&ccedil;&atilde;o no conte&uacute;do das abas de planilha

Desde j&aacute; obrigado.

Answer

Boa tarde PAletsRock

No link abaixo tem uma macro que faz o que vc deseja
Inclusive tem at&eacute; uma planilha para baixar.

http://www.tomasvasquez.com.br/blog/microsoft-office/excel-gravando-historico-de-alteracoes-na-planilha

Um abra&ccedil;o.

Answer

Obrigado pela dica, a planilha deu certo.
Sabe se &eacute; poss&iacute;vel incluir mais um item neste c&oacute;digo que diz respeito a nome do computador utilizado para fazer as atualiza&ccedil;&otilde;es no log?

Answer

Boa noite

Pode colocar este c&oacute;digo no lugar do outro, pois j&aacute; esta colocado o nome da planilha Hist&oacute;ria , onde ser&aacute; inserido o hist&oacute;rico estando pronto para uso.
Este c&oacute;digo &eacute; mais completo do que o outro. Al&eacute;m dos itens que o outro c&oacute;digo lan&ccedil;a este lan&ccedil;a tb usu&aacute;rio e m&aacute;quina.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long
If Sh.Name = Hist&oacute;ria Then Exit Sub
Application.EnableEvents = False
With Sheets(Log)
  LR = .Range(A & Rows.Count).End(xlUp).Row
  .Range(A & LR + 1).Value = Format(Now, dd-mm-yy hh:mm:ss)
  .Range(B & LR + 1).Value = Sh.Name
  .Range(C & LR + 1).Value = Target.Address(False, False)
  .Range(D & LR + 1).Value = Target.Value
  .Range(E & LR+1).Value=Environ(USERNAME)  
  .Range(F & LR + 1) = Environ$(computername)
End With
Application.EnableEvents = True
End Sub

[]s

Ferramentas

Mover Tópico