Buongiorno a tutti,
Ho un piccolo problema che non riesco a risolvere. Il problema in questione è la data. Cerco di spiegarmi. Dal codice sotto riportato nella inputbox io inserisco la data in questo modo: gg/mm/aaaa ma mi va a salvare nella cella K1 in formato mm/gg/aaaa. Dalle tante ricerche in rete, non sono riuscito a risolvere questo problema. Cosa mi sfugge? Dove sbaglio?
Il risultato che vorrei ottenere che se scrivo gg/mm/aaaa nella inputbox, deve riportare lo stesso risultato anche nella cella K1.
Allego il codice in questione.
Private Sub CommandButton4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim messaggio As String, titolo As String, X As String
Application.ScreenUpdating = False
messaggio = "SCRIVI LA DATA PER IL CALCOLO!!"
titolo = "CALCOLA RIPOSI E PERMESSI"
X = InputBox(messaggio, titolo)
X = UCase(X)
If X = "" Then Exit Sub
Sheets("Rossi_Mario").Select
Range("k1") = X
Call Crea2
End Sub
Grazie a tutti anticipatamente....