POPUP DI AVVISO SCADENZA CON INFORMAZIONI FOGLIO

[albatros54Moderatore albatros54 Karma: 89 pts]

FROST220684 ha scritto:

Option Explicit che rompeva i maroni

Credo proprio di no, comunque se hai risolto cosi bene  

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[FROST220684Partecipante FROST220684]

no no leggi il commento su va tutto benissimo era L'option Explicit tolta quella ha funzionato

[FROST220684Partecipante FROST220684]

Ragazzi domanda aggiuntiva cosa posso aggiungere a questo codice per far continuare Excel a fare il controllo anche a scadenze ridotte perchè cosi quando mancano 10 giorni mi avverte ma quando ne mancano 9 non mi avverte piu

Private Sub Workbook_activate()
Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, rng5 As Range, rng6 As Range, rng7 As Range
    Dim Bigrng As Range
    Dim sh As Worksheet
    Dim trova As Variant
    Dim risposta As Integer

    For Each sh In ActiveWorkbook.Worksheets
        Set rng1 = sh.Range("L19:ab19")
        Set rng2 = sh.Range("L21:ab21")
        Set rng3 = sh.Range("L23:ab23")
        Set rng4 = sh.Range("L25:ab25")
        Set rng5 = sh.Range("L27:ab27")
        Set rng6 = sh.Range("L29:ab29")
        Set rng7 = sh.Range("L32:ab32")
        Set Bigrng = Union(rng1, rng2, rng3, rng4, rng5, rng6, rng7)

        For Each trova In Bigrng


            If trova = Date + 10 Then
                MsgBox "scadenza " & trova & " alla cella " & trova.Address(RowAbsolute:=False, ColumnAbsolute:=False) & " nel foglio " & sh.Name, , "Avviso scadenza Prodotto"
                risposta = MsgBox(" Vuoi continuare nella ricerca?", vbYesNo)
                If risposta = vbNo Then
                    Exit Sub
                End If

            End If

        Next

    Next
End Sub

 

grazie mille per l'aiuto

[albatros54Moderatore albatros54 Karma: 89 pts]

basta inserire un ciclo for , come nel codice che ti posto

Private Sub Workbook_activate()
    Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, rng5 As Range, rng6 As Range, rng7 As Range
    Dim Bigrng As Range
    Dim sh As Worksheet
    Dim trova As Variant
    Dim risposta As Integer
    Dim datascadenza As Variant
    Dim a As Integer
    For Each sh In ActiveWorkbook.Worksheets
        With sh
            Set rng1 = .Range("L19:ab19")
            Set rng2 = .Range("L21:ab21")
            Set rng3 = .Range("L23:ab23")
            Set rng4 = .Range("L25:ab25")
            Set rng5 = .Range("L27:ab27")
            Set rng6 = .Range("L29:ab29")
            Set rng7 = .Range("L32:ab32")
            Set Bigrng = Union(rng1, rng2, rng3, rng4, rng5, rng6, rng7)
        End With
        For Each trova In Bigrng
            For a = 1 To 10 ' Variando questi valori puoi decidere
            'il range di ricerca della scadenza
                datascadenza = Date + a
                If trova = datascadenza Then
                    MsgBox "scadenza " & trova & " alla cella " & trova.Address(RowAbsolute:=False, ColumnAbsolute:=False) & " nel foglio " & sh.Name, , "Avviso scadenza Prodotto"
                    risposta = MsgBox(" Vuoi continuare nella ricerca?", vbYesNo)
                    If risposta = vbNo Then
                        Exit Sub
                    End If
                End If
            Next a
        Next trova
    Next sh
End Sub

 

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[FROST220684Partecipante FROST220684]

E che ti posso dire???

 

Grazie Grazie Grazie

[Carlo Brambilla Carlo Brambilla]

Buongiorno ho trovato molto interessante la vostra discussione e realizzazione di quanto richiesto/desiderato.

Io sono un pensionato di una certa età cerco di rendermi utile e mantenere attiva la mente ma ho difficolta nella lingua inglese per creare macro e in visulbasic arrivo al dunque:

Ho la necessita di far apparire un avviso in excel che mi segnala le date prossima scadenza o scadute da un elenco di date esempio nelle celle da A1:A20

E se non chiedo troppo poterla far apparire alla apertura del file excel

cortesemente i due esempi una con avvio tramite pulsante con macro di avviso date in scadenza o scadute e una che mi fa attivare la macro in apertura file

Chiedo troppo ... ringrazio infinitamente chi mi può essere di aiuto e dedicarmi un pò del vostro tempo ringrazio infinitamente

Cordiali saluti

Carlo

[Carlo Brambilla Carlo Brambilla]

Chiedo scusa, nell'avviso deve se sia possibile visualizzare il motivo associato alla data.

esempio:

cella A1 

data 15-10-2023 assicurazione auto

data 20-01-2024 rinnovo patente

data 15-10-2023 controllo gas scarico auto

data 30-10-2023 cambio gomme auto

ecc

Nel chiedere troppo , è possibile che le date ripetitive annualmente cambino in automatico dopo la scadenza con l'anno successivo ? esempio se una data ripetitiva annualmente è del 10.10.2023 dopo la scadenza può diventare 10.10.2024 ?

Chiedo troppo vero  ? sono troppo esigente ?

Grazie grazie grazie

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Carlo Brambilla ha scritto:

Chiedo troppo vero  ? sono troppo esigente ?

No, ma apri una discussione nuova con il tuo problema, non riesumare una discussione vecchia e ormai chiusa. Grazie

[Autore]

Articoli