| | Post: 33 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
  28/01/2017 14:46 | |
Gent.mi,
gradirei gentilmente risolvere il seguente problema.
in una cella di un foglio di lavoro, ho la data estesa: martedi 31 gennaio 2017 e gradirei che sia inserita in una TextBox di un UserForm in formato: 31/01/2017.
Diverse le prove effettuate senza successo inserendo anche i seguenti codici in UserForm_Inizialize:
> TextBox1.Text (o Value)= Format(Range("C3"), dd/mm/yyyy))
> Range("C3") = Format TextBox1.Text, "dd/mm/yyyy"
> Format(TextBox1.Text, "dd/mm/yyyy" = Range("C3")
Chiedo scusa per la domanda puerile se gentilmente consigliate il giusto codice.
Anticipatamente ringrazio e saluto.
Domenico.
|
|
| | Post: 5.036 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | ONLINE |
|
| 28/01/2017 16:28 | |
Ciao Domenico, eccoti il codice
Private Sub UserForm_Activate()
Dim d
d = Range("C3")
TextBox1 = Format(d, "dd/mm/yyyy")
End Sub Ciao By Sal ![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif)
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 33 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 28/01/2017 16:59 | |
Gent.mo bysal,
il codice inserito non funziona su UserForm_Activate che mi esce la seguente finestra:
Errore di compilazione - Sub o Function non definita -
mentre funziona su Initialize.
Ringrazio per la cortesia e disponibilità, saluto.
Domenico. |
|
|
|
|