Excel Macros (VBA) - Aula 11 - Executar macro quando a planilha for alterada / Data Hora / Loop
Aprenda a executar uma macro, sempre que sua planilhar for atualizada/alterada. Aprenda também a capturar a data e hora e mais um pouco de loop com a função FOR.
Abraços e até a próxima aula!
Para encontrar mais aulas como esta, ou outras diferentes, acesse nosso índice clicando aqui!
Comecei acompanhar recentemente os vídeos do Blog e estou muito contento com os conteúdos.
Gostaria de pedir ajuda quanto a video aula acima.
No exemplo que vc fez, a data sempre vai para coluna C3. Gostaria de verificar como posso fazer para colocar isso por linhas por exemplo, alterando qlqr item da coluna B ao lado na C as devidas alterações. ------------------------------------------- Dim V(100) As String Sub Carregar()
For i = 2 To 100 V(i) = Planilha1.Cells(i, 2).Value Next i
End Sub
Sub DataHora()
Dim Agora As Variant Agora = Now MsgBox "Ultima alteração registrada: " + Str(Agora), vbInformation, "Alteraçao" Planilha1.Cells(3, 100).Value = Agora
End Sub Sub Testar()
For i = 2 To 100 If V(i) <> Planilha1.Cells(i, 2).Value Then Carregar DataHora End If Next i
Boa tarde.
ResponderExcluirComecei acompanhar recentemente os vídeos do Blog e estou muito contento com os conteúdos.
Gostaria de pedir ajuda quanto a video aula acima.
No exemplo que vc fez, a data sempre vai para coluna C3.
Gostaria de verificar como posso fazer para colocar isso por linhas por exemplo, alterando qlqr item da coluna B ao lado na C as devidas alterações.
-------------------------------------------
Dim V(100) As String
Sub Carregar()
For i = 2 To 100
V(i) = Planilha1.Cells(i, 2).Value
Next i
End Sub
Sub DataHora()
Dim Agora As Variant
Agora = Now
MsgBox "Ultima alteração registrada: " + Str(Agora), vbInformation, "Alteraçao"
Planilha1.Cells(3, 100).Value = Agora
End Sub
Sub Testar()
For i = 2 To 100
If V(i) <> Planilha1.Cells(i, 2).Value Then
Carregar
DataHora
End If
Next i
End Sub
----------------------------
Grato desde já.
Como está no macro atual:
ResponderExcluirAlteração B2 = C2 Atualizado.
Alteração B3 = C2 Atualizado.
Alteração B4 = C2 Atualizado.
Alteração B5 = C2 Atualizado
Como eu preciso que:
Alteração B2 = C2 Atualizado.
Alteração B3 = C3 Atualizado
Alteração B4 = C4 Atualizado.
Alteração B5 = C5 Atualizado (até 100)