Condividi:        

Allarme

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Allarme

Postdi blusamp » 11/04/12 15:01

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
finchè il colore della pelle sarà più importante di quello degli occhi ci saranno guerre!
blusamp
Newbie
 
Post: 9
Iscritto il: 23/12/04 15:11
Località: genova

Sponsor
 

Re: Allarme

Postdi Flash30005 » 11/04/12 15:27

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)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Allarme

Postdi blusamp » 11/04/12 21:50

Beh che dire grazie è il minimo!Ora provo anche se dubito che riuscirò vista la mia inadeguatezza, però provo e riprovo!
Grazie davvero
finchè il colore della pelle sarà più importante di quello degli occhi ci saranno guerre!
blusamp
Newbie
 
Post: 9
Iscritto il: 23/12/04 15:11
Località: genova

Re: Allarme

Postdi blusamp » 11/04/12 22:13

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
finchè il colore della pelle sarà più importante di quello degli occhi ci saranno guerre!
blusamp
Newbie
 
Post: 9
Iscritto il: 23/12/04 15:11
Località: genova

Re: Allarme

Postdi Flash30005 » 11/04/12 22:19

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

prova questo file

poi lo adatti

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Allarme

Postdi blusamp » 12/04/12 19:48

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!!!
finchè il colore della pelle sarà più importante di quello degli occhi ci saranno guerre!
blusamp
Newbie
 
Post: 9
Iscritto il: 23/12/04 15:11
Località: genova

Re: Allarme

Postdi Flash30005 » 12/04/12 19:56

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Allarme

Postdi blusamp » 12/04/12 20:15

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......
finchè il colore della pelle sarà più importante di quello degli occhi ci saranno guerre!
blusamp
Newbie
 
Post: 9
Iscritto il: 23/12/04 15:11
Località: genova

Re: Allarme

Postdi Flash30005 » 12/04/12 20:27

Usa gli MP

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Allarme":

ALLARME VIRUS
Autore: mauri1974
Forum: Sicurezza e Privacy
Risposte: 19

Chi c’è in linea

Visitano il forum: Nessuno e 101 ospiti