Pular para o conteúdo principal

Postagem em destaque [permanente]

Conheça meus livros e me ajude a crescer!

Para quem não sabe, eu também sou escritor! Além da apostila de Excel, tenho obras literárias e eu ficarei muito feliz se você as conhecer!  Se adquirir alguma obra, não estará apenas me ajudando financeiramente, mas também a crescer profissionalmente! Excel Básico! Já na 3ª edição, apresenta o Excel para iniciantes de forma clara, objetiva e rápida. Compre: E-book (Amazon) | Impresso (Clube de Autores) Quando Nerds Encontram Orcs - Ilustrado Meu livro mais conhecido, em sua 4ª edição! Acompanhem a aventura de um grupo improvável de Nerds, que após invocar acidentalmente um feitiço vão parar dentro de um jogo de RPG! Compre: E-book (Amazon) | Impresso (Clube de Autores) O amor em meio à pandemia Um romance que na verdade funciona como uma coletânea de contos. Tudo no meio da pandemia do novo coronavírus. O amor resiste... Compre: E-book (Amazon) | Impresso (Não disponível) Cordão Negro Uma história sobre amor, policia, política e um país dividido (foi escrito em 2014)... Os capítulo

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!

Comentários

  1. Boa tarde.

    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


    End Sub
    ----------------------------

    Grato desde já.

    ResponderExcluir
  2. Como está no macro atual:

    Alteraçã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)

    ResponderExcluir

Postar um comentário

Postagens mais visitadas