Shotokan ha scritto:Quando scelgo un mese dal foglio che mi hai allegato esce questo......
A me funziona regolarmente.
Ho provato a verificare presenza Macro sul foglio ed è presente.
Schermata.png
Shotokan ha scritto:che devo fare ora ???
.. attendi e vediamo se altri utenti segnalano medesimo errore o altre soluzioni ...
Shotokan ha scritto:e poi...come si crea questo tipo di combox ? .....(mio padre mi insegna : quando vuoi aiutare qualcuno, non dargli un pesce , ma insegnagli a pescare !
E' una "casella combinata" che si può creare cliccando su apposita icona dopo aver attivato barra strumenti "Controlli per formulario ...
Schermata-1.png
Tramite il pulsante OK cambi modalità da Bozza a operativa (Bozza On/Off).
Shotokan ha scritto:Ho provato a smanettare il modello nella prima pagina ma non sono riuscito a trovare le celle con le formule, mi spiace !
Visto che il modello funziona.
Se ti và di smanettare ancora dopo aver aperto modello togli protezione foglio e documento al foglio "Menù".
Attiva barra strumenti controlli per formulario.
Cliccando su pulsante OK passi in modalità Bozza (Bozza On/Off) e puoi selezionare i form che non servono e cancellarli lasciando solo la Casella combinata per selezione mese.
Togli anche scritte e quant'altro non serve.
Attenzione la cella L1 viene utilizzata per raffronto alla scelta fatta da casella combinata e cambia dopo ogni nuova selezione dalla stessa.
Uno ad uno seleziona gli altri fogli, togli la protezione al foglio e poi li elimini.
Prova inizialmente anche con uno solo. Elimina ad esempio il solo FoglioGennaio e poi crealo ex novo vuoto.
Se testi la casella combinata selezionando Gennaio funziona ancora mandantoti al foglio Gennaio (Nuovo).
Ripeti operazioni quanto basta fino a rimanere con foglio Menù e i nuovi fogli dei mesi da tè creati.
Testa funzionalità Casella combinata e funziona correttamente.
Veniamo ora alla questione Macro.
Visto che è già gestita non serve applicarla. Semmai si potranno togliere tutte le altre che non servono.
Comunque volendo applicare macro si dovrebbe essere in modalità Bozza.
Selezionare con tasto destro del mouse la casella combinata di selezione mese (appaiono i quadrattini verdi e il menù comandi rapido/contestuale associato) - Cliccare su voce "Campo di controllo" per accedere alle relative proprietà (Dove puoi curiosare ...) - Cliccando sulla Cartella "Eventi" noterai che alla voce "Stato modificato" è attiva una descrizione che aggancia la macro ad essa associata. Al suo fianco Destro una casellina con tre puntini. Clicca su questa casellina e poi sul pulsante "Macro" e avrai accesso alla libreria macro che puoi sfogliare per curiosare ... dopo di chè
clicca sul pulsante annulla.
La macro che interessa è (Write_To_Destination_Cell) quella evidenziata nell'immagine che segue:
Schermata-Selettore Macro.png
Ora puoi decidere se tenerti il file con tutte le altre macro (per altro ininfleunti) o ripulirlo mantenento solo quella che interessa.
Per eliminare le macro che non servono:
Da menu - Strumenti - Macro - Organizza Macro - Libreria OfficeBasic
Nella finestra che si apre seleziona
il triangolino a fianco del nome del file e poi ancora su triangolino in fianco alla voce Standard e poi clicca su "Moduolo1" così da avere visualizzato l'elenco delle macro associate a quel documento (similmente a come rappresentate nell'immagine precedente).
Seleziona ad una ad una il nome delle macro che appaiono e scegli "Elimina" per eliminarle.
Lascia solo la macro "Write_To_Destination_Cell".
Chiudi tutto
Testa ancora il file e avrai il tuo file funzionante e ripulito ....
... buona pesca... ma se non ti basta puoi provare a pescare in alto mare ...
Soluzione più semplice/rapida ma più da smanettoni.
Apri nuovo file di Calc e crea i fogli Menù e relativi mesi dell'anno.
Apri il modulo scaricato da internet
Dopo aver tolto protezioni, attivato barra strumenti controlli per il formulario e attivato modalità bozza
Seleziona con tasto destro del mouse la casella combinata di selezione dei mesi e copia in memoria.
Passa nel foglio "Menù" del nuovo file e incolla.
Passa in modalità Bozza - Seleziona con tasto Dx - Campo di controllo - Generale - Voci dell'elenco - Clicca su freccetta e cancella quelle presenti e poi riscrivile ex novo (per andare a capo tra un mese e l'altro tieni premuto tasto SHIFT e poi dai INVIO). Create tutte le voci chiudi e passa in modalità operativa.
Da Menu - Dati - Macro - Registra macro - Sposta il cursore di una sola cella e poi clicca su termina macro - Nella finestra che si apre seleziona il nome del file e clicca su pulsante nuovo modulo e accettare nome proposto (Moduolo1) - ritornare al nome del file - selezionare triangolino voce standard e poi modulo1 - Nella casella nome dai un nome fittizzio (es.: xxxxx) e conferma con OK.
Ora la macro xxxxx è associata al file e se mandata in esecuzione non fà altro che spostare il cursore da una posizione all'altra come fatto nel momento della registrazione.
Ritorna al file scaricato da internet - rifai sequenza passaggi per arrivare all'elenco delle macro disponibili.
Seleziona la macro "Write_To_Destination_Cell" e clicca su modifica. Si apre la finestra con il codice Basic.
Copiare tutte le righe presenti da "Sub Write_To_Destination_Cell ()" fino alla prima "End sub".
Eccole di seguito:
Sub Write_To_Destination_Cell()
Dim oDoc As Object
Dim oSheet As Object
Dim oForm As Object
Dim oComboBox As Object
Dim oCellRangeDestination As Object
Dim oSheet_Tabelle As Object
Dim nometabella as string
Dim oCell as object
Set oDoc = ThisComponent
Set oSheet = oDoc.Sheets.GetByName("Menù")
Set oForm = oSheet.DrawPage.Forms.GetByName("Standard")
Set oComboBox = oform.getByName("ComboBox")
Set oCellRangeDestination = oSheet.getCellRangeByName("L1")
'document = ThisComponent.CurrentController.Frame
'dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oCellRangeDestination.FormulaLocal = oComboBox.text
nometabella = oComboBox.text
oSheet_Tabelle = oDoc.Sheets.getByName(nometabella)
oDoc.CurrentController.setActiveSheet(oSheet_Tabelle)
End Sub
Passare al nuovo foglio.
Ripetere operazioni per arrivare ad aprire e visualizzare codice della macro xxxxxx
Cancellare tutte le righe da "Sub xxxxx()" alla voce "End Sub".
Incollare al loro posto quanto si hà in memoria (le righe del codice macro precedente di cui sopra).
chiudere finestra e passare a testare il reale funzionamento della casella combinata.
... salva il file e hai il tuo file vuoto funzionante ....
... per altre possibilità / soluzioni ... attendi indicazioni altri utenti ....
Nel frattempo provo a vedere se trovo una soluzione più semplice ....
..
.
.
)
)
...... 
