Risultati da 1 a 9 di 9

Discussione: Messaggio che avvisa i giorni di scadenza



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Bari
    EtÓ
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Messaggio che avvisa i giorni di scadenza

    Gent.mi,


    sono bloccato ad una formula e chiedo gentilmente un suggerimento.
    In un foglio di lavoro ho la prima colonna le voci, la seconda le date di scadenza e la terza i giorni che rimangono alla scadenza.
    Gradirei che alla scadenza dei 5 giorni, mi esca un messaggio (MsgBox) che mi avvisa:
    "Mancano 5 giorni alla scadenza o Mancano 4 giorni alla scadenza fino al termine dei giorni" in pi¨, forse chiedo troppo e mi scuso, che dal terzo giorno alla scadenza, viene segnalata anche con un segnale acustico.
    Ho provato ad inserire in un modulo un codice ed ho provato a realizzare una formula con esito negativo.



    Anticipatamente ringrazio.


    Domenico.
    File Allegati File Allegati

  2. #2
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    315
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Messaggio che avvisa i giorni di scadenza

    mmm
    ma questo messaggio quando dovrebbe apparire?
    All'apertura del file o quando apri la userform che hai creato?

  3. #3
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Messaggio che avvisa i giorni di scadenza

    ciao,
    con una ricerca avresti potuto trovare questa discussione.


    Ad ogni modo,
    senza sonoro, l'ho fatta e la posto.
    Abbinala ad un pulsante, od inseriscila nell'evento Workbook_Open()
    Codice: 
    Sub prova()
    Dim giorni As Integer
    Dim scadenza As Integer
    Dim limite As Integer
    Dim rng As Range
    Dim cella As Range
    Dim ur As Long
    
    ur = Range("i" & Rows.Count).End(xlUp).Row
    
    Set rng = Range("i7:i" & ur)
    For Each cella In rng
        scadenza = cella.Value
        limite = 5
        giorni = cella.Offset(, -1).Value - Date
        
            If giorni <= scadenza And giorni <= limite Then
                cella.Interior.ColorIndex = 3
                 
            End If
        If scadenza < 0 Then
            cella.Offset(, 1).Value = "SCADUTO"
        End If
    Next cella
    
    Set rng = Nothing
    
    End Sub
    Ciao
    Frank


    Un saluto a C¨c¨
    Excel 2007 win7 - Ogni Progetto Ŕ composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  4. #4
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    315
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Messaggio che avvisa i giorni di scadenza

    Modifica per il Beep...

    Codice: 
    Sub prova()
    Dim giorni As Integer
    Dim scadenza As Integer
    Dim limite As Integer
    Dim rng As Range
    Dim cella As Range
    Dim ur As Long
    
    ur = Range("i" & Rows.Count).End(xlUp).Row
    
    Set rng = Range("i7:i" & ur)
    For Each cella In rng
        scadenza = cella.Value
        limite = 5
        giorni = cella.Offset(, -1).Value - Date
        
            If giorni <= scadenza And giorni <= limite Then
                cella.Interior.ColorIndex = 3
                  Beep 'Per un suono di sistema
            End If
        If scadenza < 0 Then
            cella.Offset(, 1).Value = "SCADUTO"
        End If
    Next cella
    
    Set rng = Nothing
    
    End Sub
    Ciao
    Frank


    Un saluto a Tanimon Ciao [/QUOTE]

  5. #5
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Bari
    EtÓ
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Messaggio che avvisa i giorni di scadenza

    Gent.mi,


    Mi Ŕ sfuggito di precisare al precedente post che dovrebbe funzionare automaticamente
    all'apertura del progettino.
    Attualmente mi funziona colorando di rosso le scadenze ed emmettendo un suono Beep.
    Gradirei invece, se Ŕ possibile, che oltre al funzionamento in automatico all'apertura del
    progettino o file, dovrebbe apparire un MSGBox che mi avvisa:
    "Mancano 5 giorni alla scadenza o Mancano 4 giorni alla scadenza fino al termine dei
    giorni" ed il segnale acustico che dovrebbe intervenire dal terzo giorno alla scadenza.


    Ringrazio sia Tanimon che Cuc¨ della cortesia e fiducioso, saluto.
    Domenico.

  6. #6
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    315
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Messaggio che avvisa i giorni di scadenza

    Tanimon ti aveva giÓ indirizzato...
    Citazione Originariamente Scritto da tanimon Visualizza Messaggio
    ciao,
    Ad ogni modo,
    senza sonoro, l'ho fatta e la posto.
    Abbinala ad un pulsante, od inseriscila nell'evento Workbook_Open()

  7. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: Messaggio che avvisa i giorni di scadenza

    Ciao a tutti,
    @ Pacifico, spero di sbagliarmi, ma, secondo me, con tutti questi avvisi il file avrÓ l'effetto opposto, cioŔ finirai di lascare scadere qualcosa.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  8. #8
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Messaggio che avvisa i giorni di scadenza

    ciao Domenico,

    Ges (ciao )
    ti ha giÓ segnalato l'eventuale problematica ad avere msgbox ricorrenti....

    personalmente concepisco un avviso come tale: deve avvisarmi, non mettermi il bastone tra le ruote.......

    Se il progetto servisse a me e se proprio volessi un avviso per ogni cella del range in questione, "personalizzato" in base al valore della cella,
    me lo farei segnalare nella cella appena a destra, come,
    nell'esempio che ti ho fatto, la parola "SCADUTO" nel caso la scadenza sia passata.
    Ovviamente con una idonea indicazione.

    Ma questo Ŕ solo un dettaglio a qualcosa che hai giÓ:
    il colore rosso dello sfondo della cella se il valore della cella =< a 5


    In aletrnativa,
    potresti avere un messaggio che ti riepiloghi il/i numero/i di riga con la scadenza = a:
    passata oppure =< a 5

    esempio:
    MsgBox "La scadenza Ŕ scaduta o scadrÓ tra 5 o meno di 5 giorni, alla riga numero 8 e alla riga numero 10"

    ma a che pro avere un messaggio di questo tipo, avendo le celle con questi valori giÓ evidenziate?

    Personalmente,
    considero pi¨ invasivo un MsgBox che una cella evidenziata:
    di rosso farei anche fatica a NON vederla, mentre su un MsgBox ci clicco senza leggere perchŔ "stoppandomi" la
    macro non ho immediatamente il risultato atteso....

    Ciao Frank
    Excel 2007 win7 - Ogni Progetto Ŕ composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  9. #9

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: Messaggio che avvisa i giorni di scadenza

    Citazione Originariamente Scritto da tanimon Visualizza Messaggio
    ...
    Personalmente,
    considero pi¨ invasivo un MsgBox che una cella evidenziata:
    di rosso farei anche fatica a NON vederla, mentre su un MsgBox ci clicco senza leggere perchŔ "stoppandomi" la
    macro non ho immediatamente il risultato atteso....
    ..
    Concordo in pieno!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

Discussioni Simili

  1. Scadenza contratti
    Di florindo nel forum Domande su Excel in generale
    Risposte: 26
    Ultimo Messaggio: 02/06/17, 16:19
  2. [Risolto] Formattazione Condizionale Scadenza
    Di Varans92 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 11/10/16, 11:54
  3. Avviso di scadenza
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 26/07/16, 10:39
  4. ordina per scadenza
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 25/01/16, 08:05
  5. Invio promemoria a scadenza
    Di Dominique nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 29/08/15, 18:59

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •