Piscar celula

[Edudinha]

Boa Noite

Senhores, gostaria de saber se ha posibilidade de uma celula piscar quando chegar uma certa data..

exemplo: terei na celula A3 uma 10/04/2013, quando chegar perto desta data com 5 dias de antecedencia esta celula comece a piscar assim que entrar na planilha, lembrando que terei que aplicar esta mesma condição em varias celulas.

Ainda se possivel quando tivesse faltando 5 dias para o venciment um email fosse enviado avisando que o conteudo desta celula esta proximo de vencer..

um condição ou outra ja ajudaria...

Atenciosamente,

Eduardo.

[webmaster]

Edudinha,

Pelo menos o código de piscar é célula está aqui:

Insira esse código na sua planilha:

Código: Selecionar todos

Private Sub Worksheet_Calculate()
  If Range("B1").Value > 0 Then
      Blink "A1"
  Else
      Range("A1").Interior.ColorIndex = 0
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.Run Me.CodeName & ".Worksheet_Calculate"
End Sub

Insira este código num módulo:

Código: Selecionar todos

Sub Blink(cell As String)
  If Range(cell).Interior.ColorIndex = 6 Then
      Range(cell).Interior.ColorIndex = 0
  Else
      Range(cell).Interior.ColorIndex = 6
  End If
  Application.OnTime Now + 1 / 86400, "doagain"
End Sub
Sub DoAgain()
  Application.Run Sheets("Sheet1").CodeName & ".Worksheet_Calculate"
End Sub

Com esse código, se a célula B1 não estiver vazia, a célula A1 piscará. Faça o teste.

Abraços

[Edudinha]

caro amigo mauro

o codigo nao funcionou esta dando erro nesta linha

Application.Run Sheets("Sheet1").CodeName & ".Worksheet_Calculate"

atenciosamente,

Eduardo

[webmaster]

caro amigo mauro

Boiei na frase acima

Sim, esqueci de dizer que precisa substituir o "Sheet1" pelo nome da sua planilha. Aí passará a funcionar.

Abraços

[Edudinha]

Mauro, muito obrigado funcionou beleza

seria possivel esta celula piscar sozinha ao entrar na planilha sem que seja necessário clicar na celula digitada, porque ela servira de alerta para quando entrar na planilha ja ver que tem algo alertando..

farei esse procedimento com varias celulas, mais precisamente estarei mechendo com datas de quando entrar na planilha e tiver faltando 5 dias para data do vencimento esta celula piscara.

Atencisamente

Eduardo.

[LEANDRO ALVES]

Bom dia,

Fiquei curioso com a ideia da célula piscar e fiz este pequeno exemplo.
Acho que deve ajudar.

Abraços

[Edudinha]

Boa Tarde! Leandro

Ficou muito bom seu modelo, mais terei que aplicar esta condição de piscar em varias celulas, como deverei fazer tentei copiar o codigo mudando a celula e da erro, tem como este código ser aplicado a mais celulas....

Atenciosameente

Eduardo.

[webmaster]

Tá bom Eduardo,

Vou fingir que sou o Mauro, mas só desta vez, ok?

[Edudinha]

Boa Tarde.

Não entendi.. Fingir que é o Mauro. ?.

[webmaster]

Eu é que não entendi o porque você está me chamando de Mauro, mas deixa pra lá.