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

Saberexcel - site das Macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), atualiza data e hora se umas células (C1 ou D1), for modificada,
observe que a propriedade OffSet, para deslocar os dados desejadados para a Coluna(I), isto é, verifica a última linha usada, desloca uma abaixo e insere os dados desejados.
PROPRIEDADE OffSet(muito importante no aprendizado Aplicativo Microsoft Excel VBA(Visual Basic Application), veja nosso Módulo de estudos:
COMO FAZER - Trabalhando com a Propriedade Offset(DESLOC) COMO FAZER - relação dos módulos como fazer programação ms excel vba

Option Explicit
Dim Memorizacao As Variant

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C1:D1")) Is Nothing Then
Memorizacao = Range("A1").Value
End If
End Sub

Sub Worksheet_Calculate()
On Error GoTo sbErro

If Range("A1").Value <> Memorizacao Then
Range("A3").Value = Date
Range("A4").Value = Time
End If

[I5].Select
[I65000].End(xlUp).Offset(1, 0).Select 'usando a propriedade offset para deslocar uma linha abaixo preservando e inserindo dos dados.
ActiveCell.Value = Format([A3].Value, "dd-mmm-yyyy") & Format([A4].Value, "hh:mm:ss") _
& " Valores..: [ " & [C1].Value & " ] - [ " & [D1].Value & " ]"
[I4].Select
Exit Sub


sbErro: MsgBox ("Digite número porque há uma soma e memorização de valores"), vbInformation, "Saberexcel - site das amcros"
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Saberexcel - site das Macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), atualiza data e hora se umas células (C1 ou D1), for modificada,
observe que a propriedade OffSet, para deslocar os dados desejadados para a Coluna(I), isto é, verifica a última linha usada, desloca uma abaixo e insere os dados desejados.
PROPRIEDADE OffSet(muito importante no aprendizado Aplicativo Microsoft Excel VBA(Visual Basic Application), veja nosso Módulo de estudos:
COMO FAZER - Trabalhando com a Propriedade Offset(DESLOC) COMO FAZER - relação dos módulos como fazer programação ms excel vba

Option Explicit
Dim Memorizacao As Variant

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C1:D1")) Is Nothing Then
Memorizacao = Range("A1").Value
End If
End Sub

Sub Worksheet_Calculate()
On Error GoTo sbErro

If Range("A1").Value <> Memorizacao Then
Range("A3").Value = Date
Range("A4").Value = Time
End If

[I5].Select
[I65000].End(xlUp).Offset(1, 0).Select 'usando a propriedade offset para deslocar uma linha abaixo preservando e inserindo dos dados.
ActiveCell.Value = Format([A3].Value, "dd-mmm-yyyy") & Format([A4].Value, "hh:mm:ss") _
& " Valores..: [ " & [C1].Value & " ] - [ " & [D1].Value & " ]"
[I4].Select
Exit Sub


sbErro: MsgBox ("Digite número porque há uma soma e memorização de valores"), vbInformation, "Saberexcel - site das amcros"
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

SaberExcel - Site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere dados, estabelecendo um 'status' para determinado produto,
ao digitar os dados na coluna(A), se o nome do Produto contiver os números '123', '222', '223', em qualquer posição, insere na coluna 'STATUS' um determinado critério para indentificar uma determinada situação.
Observe que inserí o procedimento no Módulo de Edição do Objeto WorkBook, que afetará todas as folhas de planihas contidas no livro.

Por exemplo.: SBX123BXLH - SBE222SQP - SBVVBA223 - aparecendo em qualquer posição a condição será considerada True(Verdadeiro)
1 -) Se no nome do Produto contiver (123),(222),(223), mudará automaticamente o status , na coluna (C) - (Saberexcel - Embarcado!)
2 -) Caso não haja os 'prefixos ou sufixos' específicos no nome do produto retornará outra mensagem na coluna (C ) - (ENTREGA PROGRAMADA)

Módulo de Edição do Objeto WorkBook, eventos ao digitar em qualquer planilha
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Se a clicar em outra coluna a que não seja a coluna 1 sai da macro, finaliza o processo
If Target.Column <> 1 Then Exit Sub
'se a célula na coluna A estiver desmarcada, limpa a célula da coluna C
If Target.Value = "" Then Target.Offset(0, 2).Value = ""
'Se a célula na coluna A contém "123"ou "223" ou "222 ", a célula na coluna C é definido como "Saberexcel - Embarcado"
If Target.Value Like "*123*" Or Target.Value Like "*223*" Or Target.Value Like "*222*" Then
Target.Offset(0, 2).Value = "Saberexcel - Embarcado!"
Else
Target.Offset(0, 2).Value = "ENTREGA PROGRAMADA!"
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, registra a mudança nos valores da planilha e também os valores digitados, esse registro é efetuado na coluna(A), foi usado a Propriedade OffSet para deslocar os dados localizando sempre a próxima célula em branco.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Font.ColorIndex = 5
[A65000].End(xlUp).Offset(1, 0) = Target.Address
[A65000].End(xlUp).Offset(0, 1).Value = Target.Value
[A65000].End(xlUp).Offset(0, 2).Value = Now()
Application.EnableEvents = True
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel



Baixe o exemplo de planilha com o evento acima.