Aiuto Macro Per Lampeggio Cella

[Francesco6918]

Un saluto a tutti se gentilmente potete aiutarmi con una macro per lampeggiare una determinata cella (P3) se possibilmente la macro si avvia in automatico al apertura della cartella,vi invio il file esempio.

http://www.filedropper.com/prova_4


Saluti

[Francesco53]

ciao francesco, forse dovresti dirci in quale caso deve lampeggiare la cella.
francesco

[Francesco6918]

Ciao Francesco53 grazie per avermi risposto quando inserisco un numero nella cella P3 dovrebbe lampeggiarmi.

[Francesco53]

ciao ti posto del codice che Flash fece un pò di tempo addietro:
Nel Foglio devi inserire il seguente codice:

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
Tempo = 0
Call Lampeggia
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$3" Then Exit Sub
Tempo = 0
Call Lampeggia
End Sub

Questa è la macro da inserire in un modulo:

Codice: Seleziona tutto

Public Tempo As Integer

Sub Lampeggia()
If Tempo > 8 Then Exit Sub ' il tempo in sec che lampeggera'
If ActiveWorkbook.Name <> ThisWorkbook.Name Then Exit Sub  'Confronto nome file
    FOGLIO = "Foglio1"
If ActiveSheet.Name <> FOGLIO Then Exit Sub  'Confronto nome foglio


If Tempo > 5 Then  ' il tempo in sec che lampeggera'

Tempo = 0
GoTo Esci
End If
Tempo = Tempo + 1
    Static FLASH As Boolean
    Dim DELTAt As Date
    DELTAt = "00:00:01"

  If Val(ThisWorkbook.Sheets(FOGLIO).Range("P3")) > 0 Then  '<<< ora e' cosi
        Select Case FLASH
            Case True
                Sheets(FOGLIO).Cells(3, 16).Interior.Color = RGB(255, 255, 0)  'giallo
            Case Else
                Sheets(FOGLIO).Cells(3, 16).Interior.Color = RGB(255, 0, 0)      'ROSSO
        End Select
    Else
        Cells(3, 16).Interior.ColorIndex = xlNone    'Nessun colore
    End If
Esci:
    FLASH = Not (FLASH)
    Application.OnTime Now + TimeValue(DELTAt), "LAMPEGGIA"
End Sub

Puoi provare a cambiare sia i colori che il tempo di lampeggio in base alle tue esigenze.
francesco

[Francesco6918]

Ciao Francesco53 o inserito la macro ma non funziona controlla se tutto ok ti invio il file.
http://www.filedropper.com/prova_5

Saluti

[Francesco6918]

Ciao Francesco53 tutto ok o creato un errore dimmi una cosa il tempo del lampeggio e posizionato su 5 se l aumento a 10 aumenta o diminuisce.

Saluti

[Flash30005]

@Francesco6918
non sei curioso di provare da solo per vedere cosa succede?

[Francesco6918]

Ciao Flash30005 fa piacere risentirci tutto ok o riprovato funziona risolto senti alcuni giorni fa o postato nel forum un problema riguardo una macro per un pulsante grazie a Anthony47 o risolto, vorrei modificarla esempio nella cella P2 inserisco i numeri tramite un pulsante compresi da 0,80 a 89 in poche parole una decina lotto,invio il file.
http://www.filedropper.com/pulsante

Saluti

[Flash30005]

Perdona ma non ho capito quale è il quesito che poni.
Se vuoi cambiare il range di intervento del pulsante (attuale da 1 a 89) non devi far altro che selezionare l'oggetto e con tasto destro selezionare Formato Controllo e qui impostare il valore minimo a 80.

ciao

[Francesco6918]

Ciao Flash30005 vorrei inserire nella cella P2 con un pulsante numeri Min 0 Max compresi da 80 a 89 con avanzamento di .1

[Flash30005]

Ma il file che hai inviato già fa questo, o sbaglio?

[Francesco6918]

Si ai ragione parte da 0 fino a 90 per abbreviare vorrei una macro che inserisce esclusivamente solo i numeri compresi da 80 a 89 nella cella P2.
Esempio 0, 80,81,82,83,84,85,86,87,88,89

[Flash30005]

Ok in un modulo inserisci queste due macro

Codice: Seleziona tutto

Sub Sale()
[P2] = [P2] + 1
If [P2] < 80 Then [P2] = 80
If [P2] > 89 Then [P2] = 0
End Sub
Sub Scende()
[P2] = [P2] - 1
If [P2] < 80 Then [P2] = 0
End Sub

abbina due pulsanti (freccia a salire a Sub Sale, Freccia a scendere a Sub Scende)

ciao

[Francesco6918]

Ti ringrazio Flash30005 tutto ok se ci sono problemi ti informo.

Saluti

Francesco