Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

inserimento data al volo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: inserimento data al volo

Postdi nicola_na78 » 19/04/13 18:21

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
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Sponsor
 

Re: inserimento data al volo

Postdi scossa » 19/04/13 19:19

nicola_na78 ha scritto: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 .....
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 424
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "inserimento data al volo":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti