Allarme

[blusamp]

Spero di spiegarmi bene(non credo data la mia incapacità però provo),
bene in un foglio di lavoro ho in una cella 1000/24 che sono le ore di vita utile di un pezzo di ricambio, in un altra cella la data che ho messo il pezzo di ricambio, altra cella la data che devo cambiare il pezzo, in un altra (OGGI) e in fine una che mi dice i giorni che mancano, bene in questa cella vorrei mettere un avviso, che quando manca per esempio un giorno o due mi appaia un messaggio sul desktop, anche se il foglio non è aperto!Spero di essere stato abbastanza chiaro, anche se penso che a volte pure per me è difficile capirmi!Grazie anticipatamente

[Flash30005]

Riga1 Testata
A1 Giorni di vita
B1 Installazione
C1 Scadenza
D1 Oggi
E1 Differenza giorni
F1 Cliente

In
A2 questa formula

Codice: Seleziona tutto

=1000/24

B2 Data installazione (dd/mm/aaaa)
C2 Formula

Codice: Seleziona tutto

=B2+A2

D2 Formula

Codice: Seleziona tutto

Oggi()

E2 = Formula

Codice: Seleziona tutto

=INT(C2-D2)-2

(il numero 2 sta per giorni di anticipo per essere avvisato)
in F2 il nome del cliente

Ora nel Vba di Thisworkbook inserisci questo codice

Codice: Seleziona tutto

Private Sub Workbook_Open()
If Sheets("Foglio1").Range("E2").Value <= 0 Then
MsgBox "ATTENZIONE SOSTITUIRE PEZZO CLIENTE " & Sheets("Foglio1").Range("F2").Value
ThisWorkbook.Close savechanges:=True
Else
ThisWorkbook.Close savechanges:=False
End If
End Sub


Inserisci la protezione macro a Medio (possibilità di attivare le macro o no)

Poi crea un'operazione pianificata ad una certa ora del giorno nella quale fai avviare il foglio di excel
oppure ad ogni avvio di Pc

ciao

P.s. Se vuoi, invece, avere una scheda con più pezzi (un elenco con date diverse etc) da controllare la macro nel Vba di Thisworkbook potrebbe essere questa

Codice: Seleziona tutto

Private Sub Workbook_Open()
UR = Worksheets("foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
If Sheets("Foglio1").Range("E" & RR).Value <= 0 Then
MsgBox "ATTENZIONE SOSTITUIRE PEZZO CLIENTE " & Sheets("Foglio1").Range("F" & RR).Value
If RR = UR Then ThisWorkbook.Close savechanges:=True
Else
If RR = UR Then ThisWorkbook.Close savechanges:=False
End If
Next RR
End Sub


Questa macro ti permette di avere le scadenze di tutto ciò che inserirai nel foglio1 (secondo lo schema indicato)

[blusamp]

Beh che dire grazie è il minimo!Ora provo anche se dubito che riuscirò vista la mia inadeguatezza, però provo e riprovo!
Grazie davvero

[blusamp]

Scusami................................................................
Bene le celle le avevo già fatte In G tengo il pezzo di ricambio e in M i giorni (L5-K5)-2 e funziona però apro visual basic copio il codice e mi dice errore Rilevato nome non univoco WorkBook_Open

[Flash30005]

Il codice va inserito nell'oggetto ThisWorkbook
e non nel modulo

prova questo file

poi lo adatti

ciao

[blusamp]

Grazieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee!
Ora sto provando ad aggiornare il mio, a vedere che combino!Se passi da Panama sei invitato,
Ps prima non me lo faceva salvare
Per ora grazie grazie e grazie mi metto all' opera e ti faccio sapere grazie anche per la pazienza!!!

[Flash30005]

Per accedere al file
devi impostare la Protezione delle macro a medio
in maniera che, ad ogni apertura del file con macro, avrai un messaggio con opzione di poter disattivare le macro e non far chiudere il file avendo, così la possibilità di apportare modifiche.

Oppure quando appare il messaggio che il tempo è scaduto premi contemporaneamente il tasto Ctrl+Pausa
così vai in debug e eviti la chiusura del file

ciao

[blusamp]

Sigh!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bene l' ho fatto, però non mi permette di salvarlo, poi.....io ho fatto il contrario e i giorni mancanti sono -100 etc......siccome son 29 fogli x circa 20-30 righe devo cambiarli tutti? come posso mandarti un estratto per vedere cosa combino?
Davvero libero di spedirmi a quel paese......

[Flash30005]

Usa gli MP

ciao