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.