Este fórum está sendo desativado

[Angra]

Bom dia
A macro pisca uma determinada célula se o valor na célula x alterar.

[alexandrevba]

Bom dia!!


Consegue adaptar esse exemplo?

Código: Selecionar todos

Public Executar As Double
'Adicione esse código em um Módulo
Sub IniciarPiscagem()
    If Range("A1").Interior.ColorIndex = 3 Then
        Range("A1").Interior.ColorIndex = 6
    Else
        Range("A1").Interior.ColorIndex = 3
    End If
    Executar = Now + TimeSerial(0, 0, 1)
    Application.OnTime Executar, "IniciarPiscagem", , True
End Sub

Sub PararPiscagem()
    Range("A1").Interior.ColorIndex = xlAutomatic
    Application.OnTime Executar, "IniciarPiscagem", , False
End Sub

Código: Selecionar todos

Public VerificarCelula As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
     
     'Adicione esse código dentro do Módulo de Plan1 (dentro do Editor VBA)
    If Range("A1") = "1" And VerificarCelula = False Then
        Call IniciarPiscagem
        VerificarCelula = True
    ElseIf Range("A1") <> "1" And VerificarCelula = True Then
        Call PararPiscagem
        VerificarCelula = False
    End If
     
End Sub

Att

[Angra]

Bom dia
A adaptação deu certo, muito obrigado.