Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserire data da calendario in una cella

Ultimo Aggiornamento: 20/11/2019 11:34
Post: 25
Registrato il: 01/06/2016
Città: PISA
Età: 64
Utente Junior
2003
OFFLINE
13/11/2019 14:05

Ciao a tutti,
mi rendo conto che ho ancora tantissima strada da fare e quindi sono qui per chiedere, ancora una volta, il vostro aiuto:
nel file allegato (excel 2003) ho posto la cella A1 come data da inserire direttamente dal calendario che compare, nell'istante in cui si seleziona la cella A1 (appunto). Il calendario compare quando seleziono A1, però, scelta la data, questa non viene riportata in A1: quale passaggio ho "mancato"?
Resto in attesa dei vostri sempre preziosissimi aiuti.
Grazie di cuore.
Elio

EcoBand
13/11/2019 15:55

Purtroppo il calendario non è più supportato nelle ultime versioni Excel
Dovrebbe essere ...
Private Sub Calendar1_Click()
Cells(1, 1) = Me.DataSel
End Sub

Allego un files che non serve "ActiveX Calendar" (Excel2013 mi funziona)
[Modificato da ABCDEF@Excel 14/11/2019 03:10]
Post: 25
Registrato il: 01/06/2016
Città: PISA
Età: 64
Utente Junior
2003
OFFLINE
14/11/2019 15:07

Re:
ABCDEF@Excel, 13/11/2019 15.55:

Purtroppo il calendario non è più supportato nelle ultime versioni Excel
Dovrebbe essere ...
Private Sub Calendar1_Click()
Cells(1, 1) = Me.DataSel
End Sub

Allego un files che non serve "ActiveX Calendar" (Excel2013 mi funziona)



ti ringrazio per la tempestività della risposta. In realtà, il fatto che le ultime versioni non supportino più il calendario, nel mio caso importa poco, poichè continuo ad usare Excel 2003 per i miei programmini e non avrei nemmeno tempo di "aggiornarmi" alle nuove versioni.
La tua soluzione che mi hai proposto, però, per me diventa poco pratica, nel senso che:
in base all'allegato che ho postato, a me manca semplicemente l'istruzione che fa si che quando mi posiziono sulla cella A1, si apre il calendario (come puoi vedere), scelgo la data e lui, in automatico, me la trascrive in A1.
Spero di essere stato chiaro.
Grazie ancora.
EcoBand
14/11/2019 21:48

Dovrai aspettare una risposta da un utente che usa ancora 2003
Nonostante NON abbia caricato "ActiveX Calendar" sul Tuo file (appena mi posiziono sù A1) apre l'userform e mi dà l'errore del componente Calendar=MANCANTE
Ps. Usa l'allegato per un domani che cambi PC (basta solo spostare i dati)
Casomai cambi la riga...Cells(x, y) = Me.DataSel in Cells(1, 1) = Me.DataSel
[Modificato da ABCDEF@Excel 15/11/2019 13:57]
Post: 26
Registrato il: 01/06/2016
Città: PISA
Età: 64
Utente Junior
2003
OFFLINE
20/11/2019 11:34

ABCDEF@Excel, 14/11/2019 21.48:

Dovrai aspettare una risposta da un utente che usa ancora 2003
Nonostante NON abbia caricato "ActiveX Calendar" sul Tuo file (appena mi posiziono sù A1) apre l'userform e mi dà l'errore del componente Calendar=MANCANTE
Ps. Usa l'allegato per un domani che cambi PC (basta solo spostare i dati)
Casomai cambi la riga...Cells(x, y) = Me.DataSel in Cells(1, 1) = Me.DataSel

Non ci crederai ma ho cambiato qualcosa nel codice che avevi postato e... funziona tutto!!!
Il tuo intervento è stata una manna dal cielo!!!
Grazie infinite!
👍👍👍👍👍
EcoBand
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 01:39. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com