ho gridato vittoria troppo in fretta.
la macro sopra e' ok, solo che quando faccio girare altre macro dello stesso file
in alcuni casi inizia a lampeggiarmi g5 di altro foglio.
quindi penso devo ripiegare sulla 1ma macro dove si dichiara il foglio.
ho realiz la macro come indicato ed in realta' funziona solo che non si ferma piu.
ho notato che dopo 10 sec si ferma brevemente ma poi in automatico riparte
- Codice: Seleziona tutto
Public Tempo As Integer
Sub lampeggia()
If Tempo > 10 Then
Tempo = 0
GoTo Esci
End If
Tempo = Tempo + 1
Static FLASH As Boolean
Dim DELTAt As Date
DELTAt = "00:00:01"
FOGLIO = "1-masa1-fogl.base"
If Val(Range("G5")) >= 0 Then
Select Case FLASH
Case True
Sheets(FOGLIO).Cells(5, 7).Interior.Color = RGB(255, 200, 210) 'ROSSO CHIARO
Case Else
Sheets(FOGLIO).Cells(5, 7).Interior.Color = RGB(255, 0, 0) 'ROSSO
End Select
Else
Cells(I, 3).Interior.ColorIndex = xlNone 'Nessun colore
End If
Esci:
FLASH = Not (FLASH)
Application.OnTime Now + TimeValue(DELTAt), "LAMPEGGIA"
End Sub