Piscar célula com determinada condição

[Kadu Du]

Boa noite galera!

Gostaria de saber como fazer uma macro que fizesse com que a célula pisque com determinado valor, tipo = RUIM. É possível fazer com que a mesma execute sozinha sem o uso de botões????

Grato

Eduardo

[zinhovba]

Boa noite!!

Tipo...

Option Explicit

Public VerificarCelula As Boolean

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

     'Adicione na 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

[Kadu Du]

Zinho

você poderia explicar como coloco isso dentro do editor?? tenho que colocar algum botão, digitar alguma coisa? Não entendo muito dos códigos, você poderia explicar?

Grato

[Patropi]

Bom dia kyok

Clique com o lado direito do Mouse na nome da Aba que você quer inserir o código --> Exibir Código --> Copie e cole o código --> ALT+Q para retornar a planilha.

Att.

[Kadu Du]

Patropi boa tarde!

Ta aparecendo o seguinte erro:

http://www.sendspace.com/file/p4vlno

[zinhovba]

Boa tarde!!

Veja um modelo em

http://rapidshare.com/files/920305581/PIscar.xlsm

Att

[Kadu Du]

Zinho

Quero criar uma condição para que a célula "x" piscasse sem o uso de botão. Vou fazer uma fórmula e quando aparecer a palavra "ruim" ela piscasse.

Esse exemplo que você postou eu agradeço, mais já tenho! Tem como fazer isso que eu quero?

[zinhovba]

Bom dia!!

Mude o evento, ou o critério...

Option Explicit

Public VerificarCelula As Boolean

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

     'Adicione na 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

[Kadu Du]

Quando eu colo o arquivo dentro do editor e clico na célula a1 aparece o seguinte erro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

[zinhovba]

Boa tarde!!

Use sua criatividade!!

Se não mudar o evento não terá o efeito que precisa!!

O que é eventos:

http://www.jorgepaulino.com/2009/09/excel-dicas-de-vba-eventos.html

Baixe um outro modelo em:

http://rapidshare.com/files/2267552190/Colorir.xlsm

Com certeza não vamos advinha-lo!!

Outras fontes:

http://www.cpearson.com/excel/BlinkingText.aspx

Option Explicit 

Public RunWhen As Double 

Sub StartBlink() 
    If Range("k8").Interior.ColorIndex = 3 Then 
        Range("k8").Interior.ColorIndex = 6 
    Else 
        Range("k8").Interior.ColorIndex = 3 
    End If 
    RunWhen = Now + TimeSerial(0, 0, 1) 
    Application.OnTime RunWhen, "StartBlink", , True 
End Sub 

Sub StopBlink() 
    Range("k8").Interior.ColorIndex = xlAutomatic 
    Application.OnTime RunWhen, "StartBlink", , False 
End Sub 

Att

[Kadu Du]

Grato Zinho!!

Pode fechar o tópico!!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.