celle lampeggianti con scritta attenzione

Hai un problema con Excel?

Nuova discussione

celle lampeggianti con scritta attenzione
di toretto data: 02/03/2015 22:42:34
Ragazzi che codice devo mettere per fare lampeggiare la cella in excel con la scritta attenzione
IN poche parole mi serve che lampeggiano le celle o la cella con la scritta attenzione altrimenti si deve stare ferma le celle in questione che esce scritto attenzione sono da J2:J100 solo qui compare la scritta attenzione.
Grazie mi servirebbe il codice completo

di alfrimpa data: 03/03/2015 10:50:34
Ciao

Premetto che la macro non è mia ma trovata in rete.

Vedi se riesci ad adattarla alle tue esigenze.

Alfredo

Sub Lampeggia()

Dim PauseTime, Start, Finish

For x = 1 To 5
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Range("A2").Cells.Interior.ColorIndex = 3
Range("A2").Value = "ATTENZIONE!!"
Range("A2").Cells.Font.Color = vbBlack
Loop
Finish = Timer
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
Range("A2").Cells.Interior.ColorIndex = xlNone
Range("A2").Cells.Font.Color = vbBlack
Loop
Finish = Timer
Next x
Range("A2").Value = ""
End Sub

di toretto data: 04/03/2015 22:30:01
grazie della tua risposta solo che non funziona come mi serve mi inserisce in automatico la scritta attenzione invece a me mi serve il contrario mi deve trovare dalla cella j3 a j 100 la scritta attenzione una volta trovata mi deve far lampeggiare quella specifica cella
spero di essere stato chiaro

di ffante (utente non iscritto) data: 05/03/2015 17:38:40
Prova ad inserire all'interno del foglio1 questo codice quando ti cambia il valore nella cella a1 dovrebbe lampeggiare.

prova ad inserire all'interno di qualche cella del'intervallo "j3:aj100" vedrai che funziona.

questo codice mi è stato gentilmente donato tempo fa da Vecchio Frac, a me funziona

perfettamente, vedi se per te può andare bene.

franco

Option Explicit

Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range, r As Range

    If Intersect(Target, Range("A1")) Is Nothing Then
        Exit Sub
    End If
    
    Application.EnableEvents = False
    
    For Each cell In Range("j3:aj100")
        If cell = "ATTENZIONE!!" Then
            If Not r Is Nothing Then
                Set r = Union(r, cell)
            Else
                Set r = cell
            End If
        End If
    Next
    If Not r Is Nothing Then blink r
    
    Application.EnableEvents = True
End Sub


Private Sub blink(c As Range)
Dim x As Integer
Dim PauseTime As Single
Dim Start As Single
Dim Finish As Single

    For x = 1 To 7    'inizia il ciclo e lo ripete per 5 volte
        PauseTime = 0.3  ' Imposta la durata in secondi. ho messo 1/2 secondo
        Start = Timer   ' Imposta l'ora di inizio: Timer rappresenta il numero di secondi trascorsi dalla mezzanotte
        Do While Timer < Start + PauseTime  'fino a che il valore di Timer è inferiore al valore reperito con Start più il 'tempo in secondi impostato con PauseTime, continua a contare (Loop)
            DoEvents  'si consente di passare il controllo ad altri processi.(altrimenti il ciclo bloccherebbe altri eventi)
            c.Interior.ColorIndex = 6  'colora il range di celle di Giallo
        Loop
        Finish = Timer  ' Imposta l'ora di fine della pausa.
        PauseTime = 0.3   ' Imposta la durata.
        Start = Timer   ' Imposta l'ora di inizio.
        Do While Timer < Start + PauseTime
            DoEvents    ' Passa il controllo ad altri processi.
            c.Interior.ColorIndex = 0
        Loop
        Finish = Timer ' Imposta l'ora di fine della pausa.
    Next
End Sub

di toretto data: 06/03/2015 19:59:30
grazie del codice ma nulla da fare non funziona ho cambiato le celle ho sbagliato prima non era j3 ma K3:K100 ho messo questo poi nel codice

 If Intersect(Target, Range("k1")) Is Nothing Then
        Exit Sub
    End If
ho messo k1 visto che è in quella colonna che deve controllare almeno credo che sia cosi?
kmq ho inserito nel foglio 2 visto che è li che si trova il file ma non lampeggia nulla non lo so perche non funziona

di ffante (utente non iscritto) data: 07/03/2015 17:48:47
Ti ho inserito un file

al variare della cella k1, Dalla K2:K100 se vi è la scritta "ATTENZIONE!!" Lampeggia.

Il file Provalo.

franco
di toretto data: 09/03/2015 20:43:10
grazie franco utilissimo il tuo file,solo che volevo sapere se ce la possibilita di cercare in automatico ogni volta che si apriva il foglio excel la scritta attenzione e che il lampeggio funzioni all'infinito piche non scompare
grazie

Vuoi Approfondire?