inserimento data al volo

[nicola_na78]

Ragazzi il codice di scossa è perfetto; solo che, se in una cella della colonna A c'è una data, ed io vado a cancellarla e a lasciare la cella vuota mio compare l'avviso del MSGBOX....
come si potrebbe ovviare a questo???

grazie

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Me.Range("A2:A1000")) Is Nothing Then
        With Target(1, 1)
            If IsDate((Format(.Value2, "00\/00\/0000"))) Then
                Application.EnableEvents = False
                .Value = CDate(Format(.Value2, "00\/00\/0000"))
                Application.EnableEvents = True
            Else
                MsgBox "Il valore  '" & Target & "'  inserito in  '" & Target.Address(0, 0) & "'  non è in formato DATA." & vbCrLf & "Il formato corretto è:  'ggmmaaaa'"
            End If
        End With
    End If
End Sub

[scossa]

Ragazzi il codice di scossa è perfetto; solo che, se in una cella della colonna A c'è una data, ed io vado a cancellarla e a lasciare la cella vuota mio compare l'avviso del MSGBOX....
come si potrebbe ovviare a questo???

grazie

Codice: Seleziona tutto

            Else
                MsgBox "Il valore  '" & Target & "'  inserito in  '" & Target.Address(0, 0) & "'  non è in formato DATA." & vbCrLf & "Il formato corretto è:  'ggmmaaaa'"
            End If


prima di MsgBox scrivi
If .value <> "" then MsgBox "Il valore .....