Saberexcel - o Site de quem precisa Aprender Macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), auxliado pleo Evento_Change(ao digitar) em determinadas células da folha de planilha altera data e hora automaticamente, também envia uma mensagem para Planilha(Alteracao) informando data, hora e valores alterados nas células. Espero que o exemplo possam lhe ser útil.
Este exemplo faz parte do Módulo - COMO FAZER - Programação MS Excel VBA_IV
Modulos Como Fazer - Relação de Planilhas dos Módulos
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:D20")) Is Nothing Then
Saber2.Cells(Target.Row, 4).Value = "Ultima alteração ocorreu na Linha..: [ " & Target.Row & "] Valor..: [ " & Target.Value & " ]"
Saber2.Cells(Target.Row, 5).Value = Date
Saber2.Cells(Target.Row, 6).Value = Time
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo o procedimento acima
Excel planilha vba digitacao altera data hora envia dados plan (20.4 KB)
Publicidade
Compre com segurança, garantia e ótimos preços 
Comentários
Private Sub caixaultparto_Change()
caixaultparto = Format(caixault parto, "dd/mm/yyyy")
If Len(caixaultpar to) = 2 Or Len(caixaultpar to) = 5 Then
caixaultparto.T ext = caixaultparto.T ext & "/"
SendKeys "{End}", deusepaie
End If
porém não consigo fazer a mudança dessa referida data
poderia me ajudar por favor
Assine o RSS dos comentários