Risultati da 1 a 13 di 13

Discussione: Avviso di scadenza



  1. #1
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Avviso di scadenza

    Buongiorno a tutti, prendendo spunto dai vari esempi in rete, ho realizzato un programmino che mi avvisa colorando le celle ed evidenziando con un MsgBox il numero delle stesse.

    Se è possibile, avrei bisogno di un vostro aiuto per completarlo. Si potrebbe evidenziare il numero che appare nel MsgBox?

    Considerando di avere più fogli di lavoro, in questo caso ne ho tre, gradirei che il messaggio di scadenza sia visibile ovunque.

    Ho inserito anche un colore per la cella con "0" che purtroppo non funziona, ma quest'ultimo particolare non è tanto importante.


    Vi ringrazio sempre anticipatamente per l'aiuto.
    Allego File.

    Mauro
    File Allegati File Allegati

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Avviso di scadenza

    Ciao,
    appena aperto il file, il codice è andato subito in debug perchè non hai specificato in quele foglio vuoi far girare il codice.
    O utilizzi:

    Codice: 
    With Worksheets("Foglio1")
    
    ...tuo codice...
    
    end With
    oppure attivi il foglio interessato all'inizio del codice:

    Codice: 
    Worksheets("Foglio1").Activate
    Si potrebbe evidenziare il numero che appare nel MsgBox?
    Non è possibile, o meglio.... dovresti ricorrere alle API per poter modificare l'aspetto dei MsgBox, ma sarebbe molto più semplice utilizzare una userform con all'interno una Textbox in modo da poter modificare tranquillamente tutte le proprietà.

    Considerando di avere più fogli di lavoro, in questo caso ne ho tre, gradirei che il messaggio di scadenza sia visibile ovunque.
    Negli altri fogli non c'è nulla, quindi... in che senso vuoi rendere visibile i messaggi anche in quei fogli???

    Ho inserito anche un colore per la cella con "0" che purtroppo non funziona, ma quest'ultimo particolare non è tanto importante.
    Dove hai "inserito" questo colore?
    Nel codice o come formattazione condizionale?
    Sii più specifico possibile per capire cosa dover controllare...

    [EDIT]
    è forse la parte dell' "Else":
    Codice: 
    Else
    '                ActiveCell.Interior.Color = vbBlue
    '                ActiveCell.Font.Color = vbWhite
    '                ActiveCell.Font.Bold = True
            End If
    ????

    ----------Post unito in automatico----------

    Per il problema del colore blu per le celle con valore zero....

    avevi semplicemente sbagliato a posizionare l'istruzione:
    Codice: 
    Cells(d, 9).Select
    Dovresti metterla qui (in rosso):

    Codice: 
    Private Sub Workbook_Open()
    Dim d As Integer
    Dim a As Integer
    Dim Cella As Range
    
    
    d = 9
    Worksheets("Foglio1").Activate  'devi indicare dove vuoi far girare il codice
    
    
    While Cells(d, 8) <> ""
    
    
        If Cells(d, 9).Value < 6 Then
            Cells(d, 9).Select
            If Cells(d, 9).Value > 0 Then
                    a = 1
                    ActiveCell.Interior.Color = vbRed
                    ActiveCell.Font.Color = vbWhite
                    ActiveCell.Font.Bold = True
            Else
                    ActiveCell.Interior.Color = vbBlue
                    ActiveCell.Font.Color = vbWhite
                    ActiveCell.Font.Bold = True
            End If
        End If
    
    
        
    d = d + 1
        
    Wend
    
    
    If a = 1 Then
    '    Call Suono
        MsgBox "attenzione, siamo IN SCADENZA" & vbLf & vbLf & "                    n.   " & ActiveCell.Value, , "AVVISO"
    End If
    '& vbLf &
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. I seguenti 2 utenti hanno dato un "Like" a cromagno per questo post:


  4. #3
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Avviso di scadenza

    Grazie Cromagno, scusami se non sono stato preciso.

    Attualmente ad esempio, con l'apertura del programma, al primo foglio viene visualizzato un messaggio di scadenza. Lo stesso messaggio vorrei che venisse visualizzato cliccando sul pulsante macro USER, nei tre rispettivi UserForm.

  5. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Avviso di scadenza

    Citazione Originariamente Scritto da dautattmaui Visualizza Messaggio
    Grazie Cromagno, scusami se non sono stato preciso.

    Attualmente ad esempio, con l'apertura del programma, al primo foglio viene visualizzato un messaggio di scadenza. Lo stesso messaggio vorrei che venisse visualizzato cliccando sul pulsante macro USER, nei tre rispettivi UserForm.
    Ciao,
    scusa se non ho risposto prima, si erano disattivate le "notifiche istantaneee" per questa discussione (e non capisco ancora come sia possibile ).

    Non è che mi sia tanto chiaro come siano legate le varie userform e a cosa servino realmente, comunque una cosa che sicuramente renderà il tutto "più gestibile", è mettere il codice di prima in un modulo standard (chiamando ad esempio la macro: "Scadenze").
    In questo modo potrai richiamare anche quando premi il pulsante "user" su ogni foglio ( e poi ti apparirà la userform).

    Quindi, nel modulo di classe "Questa_cartella_di_lavoro" scriverai solo:

    Codice: 
    Private Sub Workbook_Open()
    Worksheets("Foglio1").Activate
    Call Scadenze
    End Sub
    mentre nel modulo standard (modulo1) aggiungerai il codice di prima:

    Codice: 
    Sub User()
    Call Scadenze
    UserForm1.Show
    
    
    End Sub
    
    
    Sub Suono()
    
    
      Beep 1000, 5000
    
    
    End Sub
    
    
    Sub Scadenze()
    Dim d As Integer
    Dim a As Integer
    Dim Cella As Range
    
    
    d = 9
    While Cells(d, 8) <> ""
        If Cells(d, 9).Value < 6 Then
            Cells(d, 9).Select
            If Cells(d, 9).Value > 0 Then
                    a = 1
                    ActiveCell.Interior.Color = vbRed
                    ActiveCell.Font.Color = vbWhite
                    ActiveCell.Font.Bold = True
            Else
                    ActiveCell.Interior.Color = vbBlue
                    ActiveCell.Font.Color = vbWhite
                    ActiveCell.Font.Bold = True
            End If
        End If
        d = d + 1
    Wend
    
    
    If a = 1 Then
    '    Call Suono
        MsgBox "attenzione, siamo IN SCADENZA" & vbLf & vbLf & "                    n.   " & ActiveCell.Value, , "AVVISO"
    End If
    '& vbLf &
    End Sub
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  6. #5
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Avviso di scadenza

    Grazie Cromagno, scusa il ritardo nella risposta, ma nel frattempo ho apportato alcune modifice ed ho effettuato alcune prove.

    Questa è una prova che, una volta terminata dovrà essere inserita in un programma in fase di ultimazione.

    Le tre UserForm mi servono perchè in qualsiasi UserForm, io abbia la possibilità tramite un Button di sapere le scadenze in vigore, ed attualmente ho inserito nei tre UserForm i relativi pulsanti che funziona perfettamente.

    Le modifiche che gradirei sono tre:

    Primo:
    gradirei che nel MsgBox siano visualizzate le scadenze con il colore Rosso e non Blu


    Secondo:
    non so se è possibile che sia visualizzato oltre al numero delle scadenze anche il nominativo corrispondente alla scadenza.


    Terzo:
    al terzo giorno della scadenza i colori dovrebbero sparire.

    Ti allego il nuovo file. Ti ringrazio per la pazienza.


    Mauro
    File Allegati File Allegati

  7. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Avviso di scadenza

    Ciao,
    ho modificato un pò il codice per cercare di fare quello che hai detto nell'ultimo post:

    Codice: 
    Sub Scadenze()
    Dim i As Long, Prossimi As String, uRiga As Long
    Dim somma As Long
    
    
    uRiga = Range("I" & Rows.Count).End(xlUp).Row
    Range("I9:I" & uRiga).Interior.ColorIndex = xlNone
    Range("I9:I" & uRiga).Font.ColorIndex = xlAutomatic
    Prossimi = vbCrLf & vbCrLf
    
    
    For i = 9 To uRiga
        With Range("I" & i)
            If .Value <> "" Then
                If .Value < 6 Then
                        If .Value > 0 Then
                                somma = somma + 1
                                Prossimi = Prossimi & Range("G" & i).Value & "    " & _
                                Range("H" & i).Value & vbCrLf
                                .Interior.Color = vbRed
                                .Font.Color = vbWhite
                                .Font.Bold = True
                        ElseIf Range("I" & i).Value >= -3 Then
                                .Interior.Color = vbBlue
                                .Font.Color = vbWhite
                                .Font.Bold = True
                        End If
                End If
            End If
        End With
    Next i
    
    
    If somma > 0 Then
        'Call Suono
        Beep
        MsgBox "attenzione, siamo IN SCADENZA" & vbLf & vbLf & _
        "                    n.   " & somma & Prossimi, , "AVVISO"
    End If
    
    
    End Sub
    Fammi sapere....

    Ciao
    Tore
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  8. #7
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Avviso di scadenza

    Cromagno, sembra che vada bene, l'unica cosa che al momento non riesco a risolvere, e se posso ne approfitto chiedendo a te una mano scusandomi per il disturbo, è che negli altri UserForm non sono riuscito a visualizzare lo stesso messaggio. Ho fatto diverse prove con risultato negativo. Se puoi aiutarmi anche in questo. te ne sarei grato

    Grazie per la pazienza,Mauro.


  9. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Avviso di scadenza

    Citazione Originariamente Scritto da dautattmaui Visualizza Messaggio
    Cromagno, sembra che vada bene, l'unica cosa che al momento non riesco a risolvere, e se posso ne approfitto chiedendo a te una mano scusandomi per il disturbo, è che negli altri UserForm non sono riuscito a visualizzare lo stesso messaggio. Ho fatto diverse prove con risultato negativo. Se puoi aiutarmi anche in questo. te ne sarei grato

    Grazie per la pazienza,Mauro.

    Ciao,
    non riesco a capire...

    Basta semplicemente richiamare la macro "Scadenze" anche alla "inizializzazione" delle altre userform...

    Puoi fare un esempio pratico?

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  10. #9
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Avviso di scadenza

    Grazie mille funziona alla perfezione.


    Approfitto per chiederti ..... con il seguente codice: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

    rendo invisibile la barra superiore multifunzione, qual'è il codice per rendere invisibile la barra inferiore ?

  11. #10

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Avviso di scadenza

    Ciao Dautattmaui

    L'istruzione dovrebbe essere:

    Codice: 
    Application.DisplayStatusBar = False
    Alfredo

  12. #11
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Avviso di scadenza

    Grazie Alfrimpa, ma provando il codice non succede nulla.

    Forse non ho spiegato correttamente. La barra che gradirei nascondere è la barra inferiore dove sono visibili le 4 freccette ed i nomi dei fogli che
    attualmente sono 8.
    Grazie ancora,
    Mauro

  13. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Avviso di scadenza

    Citazione Originariamente Scritto da dautattmaui Visualizza Messaggio
    Grazie Alfrimpa, ma provando il codice non succede nulla.

    Forse non ho spiegato correttamente. La barra che gradirei nascondere è la barra inferiore dove sono visibili le 4 freccette ed i nomi dei fogli che
    attualmente sono 8.
    Grazie ancora,
    Mauro
    Ciao a tutti,
    anche io avevo capito la "barra di stato"....

    Per la barra "dei fogli" dei usare:

    Codice: 
    ActiveWindow.DisplayWorkbookTabs = False


    Comunque, per altre domande che esulano dalla discussione iniziale, apri dei nuovi thread
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  14. #13
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Avviso di scadenza

    Perfetto ..... grazie mille dell'aiuto, funziona tutto.
    Buona giornata a tutti.

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. ordina per scadenza
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 25/01/16, 08:05
  4. Invio promemoria a scadenza
    Di Dominique nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 29/08/15, 18:59
  5. Avviso sonoro scadenza excel
    Di Alisea nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 30/07/15, 16:31

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
  •