Ir ao conteúdo

Posts recomendados

Postado

Boa tarde,

 

Preciso de uma macro que seja executada automaticamente, de acordo com o valor da célula "D11".

Para tal, fiz o seguinte código (que está funcionando, mas não é executado automaticamente ao alterar a célula):

 

Sub Exibir_Billing_Atual()

    ActiveSheet.Unprotect Password:="12345"
    
If Range("D11").Value = "Projeto" Then

    Range("D17").Value = 0

    Range("D17:D18").Select
    Selection.EntireRow.Hidden = True
    Range("D11").Select

ElseIf Range("D11").Value = "Aditivo" Then

    Rows("17:18").Select
    Selection.EntireRow.Hidden = False
    Range("D17").Select
    
End If
    
    ActiveSheet.Protect Password:="12345"
    
End Sub

 

 

Alguém poderia me ajudar?

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!