Visualizza messaggio singolo
Vecchio 02-12-2014, 10.33.47   #3
omancino
Junior Member
 
Registrato: 18-11-2014
Messaggi: 75
omancino promette bene
Rif: Gestione macro da bottone

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
omancino non è collegato   Rispondi citando