Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
jdemouralima

Executar macro automaticamente ao alterar uma célula

Mensagem Recomendada

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?
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Instale o código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$D$11" Then Exit Sub
 Me.Unprotect Password:="12345"
  If Target.Value = "Projeto" Then
   Range("D17").Value = 0
   Rows("17:18").Hidden = True
  ElseIf Target.Value = "Aditivo" Then
   Rows("17:18").Hidden = False
  End If
 Me.Protect Password:="12345"
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...