Dove tu usi Doc = ThisComponent Foglio = Doc.GetSheets.GetByName("Foglio1") devi mettere Doc = thiscomponent Foglio = Doc.currentcontroller.getActiveSheet() In questo modo il codice si fa "intelligente" e invece di operare sempre e solo sul foglio chiamato "Foglio1", op...

Va bene chiuderlo.

Dato che l'errore avviene se richiamo la sub di chiusura documenti da una macro legata ad un evento, ho pensato bene di creare un pulsante normalmente nascosto, poi reso visibile dalla macro sopre citata. Ottima alternativa, cosi evitiamo di compromettere il profilo utente di libreoffice o openoffi...

Ottimo, vuol dire che stiamo verso la risoluzione. Adesso incide la differenza di sistema operativo. Con Windows dovrebbe essere utile mettere Stardesktop.terminate nell’ultima macro Sub Listensub_disposing(oEvent) msgbox("disposing") Stardesktop.terminate() End Sub Dovrei fare le prove su...

A me adesso chiude il file e alla riapertura non mi chiede il ripristino. A parte il messaggio in cui ti chiede di inviare il rapporto di errore, ha smesso di chiederti il ripristino del file?

Forse ho risolto aggiungendo un altro listener per la chiusura del file. Prova questo nuovo allegato. Ho messo molti msgbox per capire quali macro vengono eseguite mano mano, ma se è tutto ok puoi anche rimuoverle. Fai prove :roll: REM ***** BASIC ***** Global CelleDaAscoltare As Object Global Ascol...

Trovata la soluzione. Serve un Wait subito dopo il comando Doc.close(True) Sul mio pc non ha problemi con un Wait 5000 REM ***** BASIC ***** Global CelleDaAscoltare As Object Global Ascoltatore As Object Sub AggiungiAscoltatoreVariazioneFoglio ' Sub che determina il comportamento ad un cambio valore...

Se si aggiunge exit sub dopo l'istruzione doc.close e si esegue la macro (impostando a 1 la cella V1) calc genera un errore di "variabile dell'oggetto non impostata". Se invece, dopo la modifica, si salva il file, si esce da calc e poi si rientra, eseguendo la macro il problema "vari...

Con l'uso del listener sia ThisComponent.close(true) sia ThisComponent.dispose() chiudono il file senza salvare, ma generano una chiusura con errore che poi fa comparire la finestra di ripristino alla riapertura del file. Il problema non riesco a risolverlo nemmeno rimuovendo il listener prima della...

Perché non alleghi un file di calc di esempio?

E’ lanciabile dal listener , basta cambiargli il nome Devi solo aggiungere queste tre righe alla fine del modulo della Macro che hai allegato

Come ti avevo anticipato. Hai usato un listener e questo richiede la presenza nel modulo anche di una macro chiamata “RangeDiCelleModificate_disposing." La soluzione è: o riprendi dalla fonte internet tutta la discussione e ti copi la Macro mancante oppure ne fai una nuova esattamente con quest...

Eh si. Io ho il settaggio in inglese ma la lingua in italiano e mi sono scordato che il separatore dei parametri è da combiare

Ciao. Il problema secondo me va affrontato in altro modo. La formattazione condizionata sfrutta una condizione che può essere verificata tramite macro. La strategia non è quella di contare le celle che si sono colorate per via della formattazione condizionata, bensì contare le celle in cui è soddisf...

Buonasera Non sò quale soluzione hai trovato in rete, ma posso dirti che riscontri quell'errore perchè non hai copiato anche la macro chiamata RangeDiCelleModificate_disposing La macro più semplice per chiudere un documento senza salvare la trovi qui https://forum.openoffice.org/it/forum/viewtopic.p...

Niente da fare, mi dice impossibile caricare il modulo.
Immagino che o non ho fatto una istallazione completa oppure è ora di aggiornare software e hardware

ciao patel
La discussione che ho consultato è questa perchè in quest'altra discussione era stata menzionata una macro di Gaetanopr che adopera l'istruzione in oggetto.

ok bene.
Ti ho chiesto quanti fogli hai nel file perchè la macro cosi com'è lavora solo sul primo foglio perchè ho usato "sheets(0)" per selezionare il foglio.

Non demordere.
Io provandolo sul primo file che hai allegato non ho alcun problema.
Tu lo stai provando su un altro file con più schede? Puoi allegarlo?
intanto ti allego il mio

Bene. Ti da quell'errore perchè hai gia cancellato manualmente le righe da 16 in giù, prova che non avevo effettuato perchè la macro provvede da sola a eliminare i vecchi elenchi. E' opportuno aggiustare la macro principale per risolvere il problema. Subito dopo il for aggiungi questo if For i=0 To ...

Ti da errore perché non hai copiato e incollato anche la funzione quicksort che ti avevo riportato nell’altro messaggio e nel file che ti avevo allegato
https://forum.openoffice.org/it/forum/v ... 278#p69995

Il punto è che ho provato una Macro con solo il comando indicato per fare una prova, quindi: È forse un oggetto del Vba?

Intanto vedo che non hai imparato a "quotare" i messaggi. Hai copiato per intero il mio messaggio e lo hai incollato, ma non c'era bisogno di copiare tutto..potevi limitarti alla parte che ti era poco chiara. Nessun errore di battitura, volevo proprio intendere la parola "adOttare&quo...

Devi solo modificare la parte iniziale della macro da così For i=0 To 12 Step 3 thisComponent.sheets(0).Getcellrangebyposition(i,16,i+1,19).ClearContents(1) oRange= thisComponent.sheets(0).Getcellrangebyposition(i,9,i,12) a così For i=0 To 18 Step 3 thisComponent.sheets(0).Getcellrangebyposition(i,1...

Salve a tutti Ho trovato qui sul forum una macro che è stata messa a punto da @gaetanopr e @patel per ordinamento senza duplicati. Trovandola una soluzione per me nuova ero interessato a provarla, ma mi sono accorto che sul mio Libreoffice Versione: 6.2.8.2 Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1 mi ...

Ciao ho trovato una soluzione piuttosto contorta..forse sono fuori allenamento. Questa è la macro principale Sub Search_Number() Dim mySearch As Object, myResult As Object, myElement As Object Dim mySearch2 As Object, myResult2 As Object Dim Valore As string Dim i as Integer, k As integer Dim oRange...

Partiamo dall'assegnazione del colore in libreoffice. Nell'immagine seguente puoi vedere il menu a tendina che si apre quando si clicca sull'icona "colore di sfondo" Schermata del 2023-06-08 14-39-58.png Se selezioni il colore personalizzato puoi impostare il colore assegnando la numerazio...

Ciao
la macro che hai scritto ti da la somma dei valori delle celle con sfondo giallo. infatti popolando l'area A1:A9 con numeri esce la somma che è diversa da zero.
Se vuoi solo contare le celle con sfondo giallo ti basta sostituire con

Buonasera a tutti. Ho passato alcune ore nei giorni scorsi su questo quesito. Ho provato un pò tutte le proprietà e i metodi che sono riuscito a vedere con la macro xray, ma sono riuscito solo a disabilitare tutto il toolbar. Dei singoli elementi sono solo riuscito a scoprire le proprietà quali nome...

Forse è sufficiente mettere un WAIT tra questi due comandi