Rispondi a: [RISOLTO] Inserimento separatore durante la digitazione della data

[BySalv]

#10110

Ciao se sono sempre 8 cifre allora la prima macro proposta va bene in quanto quando inserisci la seconda cifra del giorno in automatico ti mette il separatore come pure alla seconda cifra del mese.

hai fatto la prova?

però ti ho detto le mie perplessità

comunque tanto per un controllo modifica il tutto con questo

Option Explicit
Private Num

Private Sub TextBox1_Change()
Num = Num + 1
Select Case Len(TextBox1)
    Case 2: TextBox1 = TextBox1 & "/"
    Case 5: TextBox1 = TextBox1 & "/"
End Select
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Num <> 10 Then
    MsgBox "Data non compatibile", vbInformation, "Controllo data"
    TextBox1 = ""
    Num = 0
Else
    Num = 0
End If
End Sub

mi raccomando di inserire anche “Private Num” sotto “Option explicit”

in definitiva è un controllo che controlla se all’uscita dal “TextBox1” la data contiene 10 caratteri compresi i separatori se ha un valore diverso in più o meno ti avvisa con un messaggio e cancella la data inserita errata.

di più non posso fare.

Ciao By Sal (8-D

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie