Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

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

×