| Descricao: |
 Saberexcel - o Site das Macros
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
|