Ho già recuperato in rete una macro che fa lampeggiare le celle in questione
Il mio problema sta' nella necessità di bloccare (da bottone) l'esecuzione di tale macro e "resettare" il formato delle celle alla condizione iniziale.
Banalizzando, riesco ad attivare la macro senza problemi, ma non riesco a fermarla...
La macro in oggetto è:
Sub lampo()
Static FLASH As Boolean
Dim DELTAt As Date
DELTAt = "00:00:01"
CELLA = "A1"
FOGLIO = "Foglio1"
For I = 3 To 100
If Cells(I, 10).Value <> "" And Cells(I, 10).Value >= 31 Then
Select Case FLASH
Case True
Sheets(FOGLIO).Cells(I, 3).Interior.Color = RGB(255, 200, 210) 'ROSSO CHIARO
Case Else
Sheets(FOGLIO).Cells(I, 3).Interior.Color = RGB(255, 0, 0) 'ROSSO
End Select
Else
Cells(I, 3).Interior.ColorIndex = xlNone 'Nessun colore
End If
Next
FLASH = Not (FLASH)
Application.OnTime Now + TimeValue(DELTAt), "lampo"
End Sub