Excel 2010 Calendario

[pacifico]

Gent.mi,

nuovamente sono a chiedere un suggerimento all'excel 2010.

Prendendo spunto dai vari articoli, in un programma ho realizzato un calendario che
funziona perfettamente e che cliccando sulla data, in una cella del foglio che
precedentemente ho evidenziato, mi appare il giorno, mese ed anno (gg/mm/yyyy).

Gradirei gentilmente un Vostro aiuto:

In un UserForm1, ho inserito un TextBox_Data e gradirei che il gg/mm/aaaa anzichè sulla
cella, sia visibile sulla TextBox_Data.

Gradirei gentilmente sapere se posso inviare il codice per una verifica e relativo ritocco.

Anticipatamente ringrazio.

Domenico.

[peppo55]

Ciao pacifico,

non mi chiaro se il Calendario è posto sul foglio di Excel, oppure è nel Userform.
Presumo che il codice per inserire la data sul foglio sia:

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub

Se il calendario è sul' Userform allora usa questo codice:

Private Sub Calendar1_Click()
TextBox_Data.Value = Calendar1.Value
End Sub

Se il calendario è sul foglio di Excel e vuoi che la data sia inserita nella Textbox dell'Userform usa il codice:

Private Sub Calendar1_Click()
UserForm1.TextBox_Data.Value = Calendar1.Value
End Sub

In questo caso dovrai modificare nelle proprietà dell' Userform , la proprietà ShowModal a False

[pacifico]

Gent.mo peppo55,

ringrazio per la gentile attenzione, il calendario assemblato è inserito in UserForm con
il nome di Calendar1, lo stesso dicasi per la TextBox_Data in UserForm1_Data.

Da premettere che in un Modulo di classe con il nome Classe1 è inserito il seguente codice
per far apparire la data sulla cella del foglio che si evidenzia:

Private Sub lbl_Click()

ActiveCell.Value = CDate(lbl.Caption & Calendar1.MeseAnno)

End Sub

Non funziona e non so se ho sbagliato nell'inserire i codici ed indico il procedimento che
ho fatto.

Private Sub Calendar1_Click()

UserForm1_Data.TextBox_Data.Value = Calendar1.Value

End Sub

Nella cella che si evidenzia si nota: giorno, mese ed anno ed ho provato anche:

UserForm1_Data.TextBox_Data.Value = Range("I2").Value

Cordialmente saluto.

Domenico.

[pacifico]

Gent.mo peppo55,

faccio seguito alla precedente che dopo prove, sono riuscito ad ottenere con la seguente formula:

UserForm1.TextBox_Data.Value = Range("G3")
UserForm1.Show

la data estesa per es: "sabato/09/gennaio/2016" e non riesco ad ottenere: 09/01/2016.

Nel ringraziare per l'aiuto, saluto

Domenico.