Ir ao conteúdo
  • Cadastre-se

Outro Conversão de código do Office para macro do libre


Ir à solução Resolvido por Schiavinatto,

Posts recomendados

Pessoal, estou tentando fazer um macro bem simples, para gerar a hora toda hora que eu fizer alteração numa determinada coluna. Sei que temos a fórmula "agora", ou "Hoje", mas estes se alteram a cada momento que há alteração na planilha, independente da célula. Encontrei uma planilha do office que faz exatamente o que preciso, e toda vez que abro no libre, funciona normalmente. Mas assim que salva o documento, o macro deixa de funcionar.

Caso alguém consiga me ajudar, sou bem iniciante no assunto.

Segue o código abaixo:

 

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Worksheet_Change(ByVal Alvo As Range)
    Dim limite_maximo As Integer
    limite_maximo = 100 ' altere aqui para limitar a última linha
    ' faz nada se mais de uma célula modificada ou se deu delete
    If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub
      
    If Alvo.Column = 1 And Alvo.Row >= 2 And Alvo.Row <= limite_maximo Then
       ' o if acima garante que a célula modificada está dentro a2:a100
       '
       ' desliga captura do evento change
       Application.EnableEvents = False
       ' muda a célula C da linha correspondente
       Alvo.Offset(0, 2).Value = Time()
       ' religa a captura de eventos
       Application.EnableEvents = True
    End If
      
End Sub


 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!