VBA – How to blink a cell in Microsoft Excel

This tip may sounds weird, but, who we are to judge other people’s necessities? That has happened some time ago in our forum, where a user asked for a code which is capable to blink a cell in Excel through VBA code. Well, after some coding, here is the result.

Insert this code into your Worksheet code:

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

And this code into a VBA module:

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("SuaPlanilha").CodeName & ".Worksheet_Calculate" 'mude aqui no nome da planilha
End Sub

This code blinks the cell A1, if cell B1 is empty.

Reference

http://en.allexperts.com/q/Excel-1059/Excel-blinking-cells.htm

Enjoy!

Modelos – Cadastro com integração de Access x Excel e Gráficos

Mais uma do nosso glorioso fórum! Desta vez o responsável pela obra foi o Henry-Systems. Para terem uma ideia do trabalho do camarada, dêem uma olhada no visual da planilha:

Monitoramento qualidade fornecedores
Monitoramento qualidade fornecedores

Um verdadeiro Dashboard feito no Excel. De primeira! Nas palavras do próprio:

Salve, salve a todos!

Após algum tempo longe do forum aqui estou eu de novo com mais uma novidade com acadastro integrando access e o excel.

O modelo proposto visa incluir respostas e motivos de devoluções no banco de dados  Access e depois obter através do arquivo “Monitoramento qualidade fornecedores.xlsm”, os resultados em percentuais por mês dias e por fornecedores e em graficos, exportando so dados do access para o excel.

As senhas de acesso  ao VB em todos os arquivos: 032164.Onofre.

Espero que possa ajudar aos demais colegas.

Abraços a todos

Download do Arquivo

 Monitoramento qualidade fornecedores – Access.rar

Cadastro de monitoramento(959.53 KiB)