EXCEL E DINTORNI

[joe]

Prova a mettere una data in formato europeo gg/mm/aaaa nella cella A1

Poi controlli la data con queste 2 macro :

Sub IncrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value + 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Sub DecrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value - 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Le puoi richiamare assegnandole a 2 pulsanti

o tramite 2 collegamenti rapidi tipo Control-a aumenta e Control-d diminuisce.

Nella mia versione di excel funzionano.

 

[Baciccia4251]

14.44 MB file on MEGA

mega.nz

Lotto versione 30
L'estrazione del 16/01/2025 ha fatto emergere un problema nel foglio PrevisioniBC.
Nelle ruote di bari e di cagliari è uscito lo stesso numero 58, quinto posto a bari, primo posto a cagliari.
Quindi 58-58=0. Questo ha generato una serie di errori a cascata.








Quindi, ogni qualvolta si verificherà una situazione identica l'ultima estrazione processata sarà quella precedente (se non ha preblemi).
Saluti
Baciccia

 

[Baciccia4251]

Prova a mettere una data in formato europeo gg/mm/aaaa nella cella A1

Poi controlli la data con queste 2 macro :

Sub IncrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value + 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Sub DecrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value - 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Le puoi richiamare assegnandole a 2 pulsanti

o tramite 2 collegamenti rapidi tipo Control-a aumenta e Control-d diminuisce.

Nella mia versione di excel funzionano.

Ottima macro, però come può aiutarmi nel mio problema?
Cercando su internet ho trovato questo:



Se non sbaglio è una soluzione già tentata, da me, ma che non ha funzionato.
Nella discussione qualcuno diceva che il file postato ad esempio del problema a lui funzionava correttamente.
A me sembra strano. Però se fosse vero vorrebbe dire che l'Office che sto usando ha quache problema.
Anche se, onestamente, non saprei quale. La lingua installata è solo quella italiana, in tutte le opzioni possibili non c'è nulla che, a parer mio, giustifichi quanto accade. Certo ogni tanto mi scappa il ditino e cancello interi dischi...
Però tengo cara la tua macro, magari potrà servirmi.
Ciao
Baciccia