Post by DamielPost by Enzo Samarellihttp://www.prodomosua.it/zips/calendarioRIP.xls
enzo
Grazie Enzo, l'avevo già "beccato" e gli sto dando un occhiata cercando di
districarmi nel codice; è adatto al mio scopo, l'unico cosa che vorrei
riuscire a fare è assegnare un tasto (con un macro credo!?) che mi esegua la
combinazione di tasti *ctrl+d* e che mi indirizzi il risultato in una cella
da me prefissata.
Un saluto.
Forse non ho capito cosa intendi.
Per "tasto" intendi "pulsante nel foglio di lavoro"? Se sì, basta che crei
il pulsante (va bene un oggetto qualsiasi) e poi fai clic destro > assegna
macro > calendarioRIP.xls!Foglio1.InserisciData
I tasti di scelta rapida Ctrl+d sono solo un'opzione della macro, puoi non
usarli, o variare l'opzione della macro dal menù strumenti > macro >
macro... tasto [opzioni]
La macro di fernando fa inserire la data nella cella selezionata:
Me.Calendar1.LinkedCell = Selection.Cells(1, 1).Address
Se invece vuoi che la data scelta vada altrove, ad esempio in C8, puoi
sostituire quanto sopra con:
Me.Calendar1.LinkedCell = "C8"
Fai anche attenzione alla posizione dove vuoi far apparire il calendario:
Me.Calendar1.Top = Selection.Cells(1, 1).Top
Me.Calendar1.Left = Selection.Cells(1, 1).Left + Selection.Cells(1, 1).Width
qui, se mai, sostituisci ad esempio con:
Me.Calendar1.Top = Range("C9").Top
Me.Calendar1.Left = Range("D8").Left
o dove preferisci.
Spero di non averti fatto confusione, VBA non è davvero il mio forte...anzi.
Ciao
Barbara