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?
Postado : 25/07/2018 1:08 pm