| | Post: 2 | Registrato il: 11/05/2018
| Città: MILANO | Età: 35 | Utente Junior | 2013 | | OFFLINE | |
|
11/05/2018 11:26 | |
Buongiorno,
io ho una cartella excel dove ho una lista di prodotti (divisi per produttore, ogni produttore ha un suo foglio) ogni prodotto tra le altre cose ha una sezione in cui segno lotto e data di scadenza.
Vorrei fare un controllo sulla data di scadenza, in cui tramite messaggio mi dica quali prodotti sono in scadenza (tipo sette giorni prima).
E' davvero tanto che non lavoro in excel e non ricordo il codice per scrivere una macro.
Mi potete dare una mano?
Allego file.
Grazie mille! |
|
| | Post: 3.442 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
11/05/2018 13:56 | |
Selezioni la colonna AE, F. Condizionale/formula
EDIT =E(OGGI()+7>=AE2;AE2<>"") EDIT e metti un colore
Inserisci un modulo e metti dentro il codice.
all'apertura del files ottieni un MSG
vb Sub Auto_0pen()
Dim Ur As Long, Msg As String, X As Long
Ur = Sheets("Produttore1").Range("AE" & Rows.Count).End(xlUp).Row
For X = 2 To Ur
If Date + 7 >= Cells(X, 31) Then
If Date <= Cells(X, 31) Then
Msg = Msg & "Codice " & Cells(X, 2) & " scade tra giorni " & Date - Cells(X, 31) & vbCrLf
Else
Msg = Msg & "Codice " & Cells(X, 2) & " scaduto" & vbCrLf
End If
End If
Next X
MsgBox Msg
End Sub [Modificato da raffaele1953 12/05/2018 00:00] Excel 2013 |
| | Post: 174 | Registrato il: 11/07/2015
| Età: 33 | Utente Junior | office 2013-2016 | | OFFLINE | |
|
11/05/2018 14:02 | |
Buon Giorno
In allego file con formattazione condizionale
Prodotti scaduti in rosso con data inferiore alla giornata di oggi
prodotti in scadenza in giallo che apparira' 7 giorni prima della
scadenza.
Fai delle prove per ulteriore controllo
Saluti |
| | Post: 2 | Registrato il: 11/05/2018
| Città: MILANO | Età: 35 | Utente Junior | 2013 | | OFFLINE | |
|
11/05/2018 17:57 | |
Grazie mille a tutti e due! La soluzione la proverò di sicuro (è più completa di quella che utilizzo attualmente), io mi chiedevo se fosse possibile magari con una macro far generare anche un messaggio che avvisi dei prodotti in scadenza.
Perchè così bisogna comunque controllare tutte le volte ogni scheda.
Sul forum ho visto anche che si può far mandare una mail, ma temo non sia compatibile la mia versione di excel.
Grazie ancora! |
|
|