formato data errato da userform

[FrasubbPartecipante Frasubb Karma: 1 pt]

Buongiorno a tutti,

ho il problema che quando da una userform trasferisco dati su foglio attivo, il formato data che mi viene restituito nella cell L12 è con il mese ad un sola cifra (ovviamente da genn a sett), quando invece vorrei che fosse "gg/mm/aa".

Se metto nella cella questa formattazione, la prossima volta che vado a trasferire da userform, mi restituisce il formato sbagliato.

Come faccio a mantenerlo sempre uguale ?

Grazie mille

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

Usa l'istruzione Format con questo formato "mm/dd/yyyy".

[gianfranco55Partecipante gianfranco55 Karma: 91 pts]

ciao

supponendo che il dto sia in textbox1

Cells(12, 12) = Format(TextBox1, "mm/dd/yyyy")

formatta la cella

gg/mm/aa

[roberto21Partecipante roberto21 Karma: 4 pts]

Asssumendo che me.data sia il campo della userform (formato Date), hai provato con

.range("L12")=format(me.data,"gg/mm/aa")

Se non funziona (come a me la prima volta)  e trovi gg/mm/aaaa, prova a dare alla cella il formato giusto con due cifre per l'anno.

[LukeRedsPartecipante LukeReds Karma: 19 pts]

ciao

tanto per esercizio

Private Sub CommandButton1_Click()
Dim d As Date
On Error GoTo fine
d = TextBox1
Range("A1") = d
Exit Sub
fine:
MsgBox "dati errati":  TextBox1 = ""
End Sub

[FrasubbPartecipante Frasubb Karma: 1 pt]

ciao a tutti, mi scuso se rispondo solo ora ma prima non ho potuto, e ringrazio per i vs suggerimenti.

[Autore]

Articoli