Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
visualizzare righe pop up
- Hai un problema con Excel?
visualizzare righe pop up
di djxx (utente non iscritto) data: 30/08/2016 15:45:47
Salve, vorrei creare una macro affinchè mi visualizzi in una casella pop-up determinate righe se soddisfano una condizione.
Io in realtà ho una colonna con delle date di scadenza. Se in queste date si supera la data odierna di 3 giorni...vorrei che tramite una macro mi vengano visualizzate le righe in una finestra pop-up.
E' possibile?
di patel data: 30/08/2016 17:29:24
allega un file di esempio con dati e spiegazioni
di djxx (utente non iscritto) data: 30/08/2016 18:59:10
File allegato!
Come puoi notare ho la colonna "Data Scadenza".
Vorrei creare una macro che mi permette di visualizzare un avviso a video "pop-up" di tutti i prodotti che scadono in giornata.
Grazie
di patel data: 30/08/2016 19:41:41
una partenza potrebbe essere questa
Private Sub ControlloScadenze_Click() With Worksheets("Dati") LR = .Cells(.Rows.Count, "A").End(xlUp).Row For r = 2 To LR If Cells(r, "F") <> "" And Cells(r, "F") <= Date Then s = s & Cells(r, "B") & vbLf End If Next If s <> "" Then r = MsgBox(s, , "Prodotti scaduti") End With End Sub
di djxx (utente non iscritto) data: 30/08/2016 22:31:24
Forse si....
mi dici come definire le variabili?
Inoltre piu volte ci clikko sul pulsante e piu mi aggiunge dati...prova anche tu!
Io vorrei visualizzare solo quelli scaduti da 3 giorni
di patel data: 31/08/2016 08:30:07
hai allegato un file protetto, allegane uno sprotetto e con più dati, io non riscontro quanto dici
dim LR as long, s as string
di Albatros54 data: 31/08/2016 12:03:08
@Patel(che saluto)
Cit..."hai allegato un file protetto"
Pippo
Prova con il codice sotto,la variabile result contiene i giorni di differenza tra le date di scadenza e quella giornaliera.
ciao
Private Sub ControlloScadenze_Click() With Worksheets("Dati") LR = .Cells(.Rows.Count, "A").End(xlUp).Row For r = 2 To LR result = DateDiff("d", Cells(r, "F"), Date) If result = 3 Then s = s & Cells(r, "B") & vbLf End If Next If s <> "" Then r = MsgBox(s, , "Prodotti scaduti") End With End Sub
di djxx (utente non iscritto) data: 31/08/2016 12:39:58
mi spiegate come sbloccare il foglio? io non l'ho bloccato :(
Inoltre...se clicco piu volte sul pulsante mi aggiunge le stesse voci piu volte....come mai?
di Albatros54 data: 31/08/2016 13:35:43
Apri il file excel vai sul menu Revisione proteggi foglio nella inputbox che si apre digiti "Pippo", rispettando le maiuscole.
Cit.."se clicco piu volte sul pulsante mi aggiunge le stesse voci piu volte.
Dove le aggiunge nella msgbox che ti compare per avvisarti?
di djxx (utente non iscritto) data: 07/09/2016 09:22:05
Ragazzi...ho inserito un file img per farvi capire il mio disagio.
In pratica come vedete lui mi visualizza l'ultima scadenza...e non quella effettiva di 3 giorni. Io vorrei che in caso non ci fossero prodotti in scadenza mi visualizzi" nessun prodotto in scadenza oggi" e non l'ultimo anche a distanza di 10gg.
Inoltre...come si nota....se clicco piu volte sul bottone...lui mi visualizza piu volte i prodotti....come mai?
Riusciamo a risolvere.....grazie
di scossa data: 07/09/2016 09:33:00
cit.: ".... ho inserito un file img per farvi capire il mio disagio."
Come già detto altre volte, inserire l'immagine del foglio, anziché il file, è come servire a tavola la foto del piatto di pasta anziché il piatto di pasta.
scossa's web site Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)
di Vecchio Frac data: 07/09/2016 11:41:19
cit scossa "è come servire a tavola la foto del piatto di pasta anziché il piatto di pasta"
---> ROTFL
Utile però in caso di un serio programma di dimagrimento controllato
@djxx
Trasportando la metafora, se vuoi essere aiutato, aiutaci ad aiutarti (senza inserire illazioni come questa: "Riusciamo a risolvere.....grazie" che presuppongono un obbligo, non dovuto, ad un servizio)
di djxx (utente non iscritto) data: 07/09/2016 12:37:35
Perdonatemi pensavo di aver gia inserito il file....
Per il resto...la mia era una richiesta di aiuto....mica un obbligo :(
di scossa data: 07/09/2016 14:09:00
Sbagli a dichiarare le variabili (perlomeno la variabile s) come Private in testa al modulo, in questo modo sono "statiche" e quindi mantengono il valore assegnato. Se porprio vuoi tenerla così, devi ogni volta "ripulirla", inserendo l'istruzione:
s = ""
prima del ciclo.
scossa's web site Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
di djxx (utente non iscritto) data: 15/09/2016 18:17:17
Ragazzi io ho provato ma a me non funziona :(
Ho tolto la password al file....se ve la richiede è Pippo....
Aiutatemi se potete...grazie
- Vuoi Approfondire?
