Penso solo posizionando i grafici all'esterno delle righe da comprimere, però aspetta altri pareri.

Gaetanopr ha scritto: ↑mercoledì 20 marzo 2024, 20:40 patel devi andare nella casella del nome in alto a sinistra

Sono davvero invecchiato... funziona perfettamente

Grazie per il suggerimento, comunque non mi appare alcun menù in A1.

A me non funziona con Libre e non ricordo più come si fa ad impostare l'avvio macro all'apertura del documento.

Che senso ha proteggere un file di esempio su cui gli altri dovrebbero lavorare ?

L'ho fatto io cliccando sul punto esclamativo

Non so aiutarti, chiedi all'amministratore Charlie di spostare la discussione nella sezione Macro e UNO API, che è frequentata da esperti

non c'è modo di poter esportare più di sole 2 celle e non tutto il foglio? Un range non è fatto soltanto da 2 celle, ma da tutte le celle comprese tra le due indicate nel range, quindi quando scrivo B5:C9 sono comprese tutte le celle tra i 2 estremi. Allega un esempio realistico di quello che ti se...

Ma a cosa ti serve ? non capisco, comunque funziona soltanto con un range tipo B5:C9, altrimenti prova questa che esporta tutto il contenuto del foglio sub Main dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.su...

Prova così Sub CreateCSVFile oSheet = ThisComponent.getCurrentController.ActiveSheet srange = "B5:B7" oRange = oSheet.getCellRangeByName(srange) CellContentArray = oRange.getDataArray() sFileName = "C:\Users\Ferro\Desktop\prova.csv" '<<<<<<<<<<<<<<<< modificare n = FreeFile() Ope...

Che senso ha esportare una sola cella ? non capisco.

Ciao, occorre una macro come questa

Ciao, occorre una macro come questa
Sub CreaFogli
Doc= ThisComponent
nfogli = 2 ' da modificare
for r = 1 to nfogli
nomefoglio = Doc.Sheets(0).GetCellbyPosition( 1, r ).string
If not Doc.Sheets.hasbyName(nomefoglio) Then Doc.Sheets.insertNewByName(nomefoglio,Doc.Sheets.Count)
next
End Sub

A questo punto semplificherei ancora di più sfruttando gli eventi Function ElencoNomiFogli() ElencoNomiFogli() = ThisComponent.Sheets.getElementNames() End Function Sub evento(Target) If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub Sh = Target.getSpreadsheet() r...

Complimenti Geo, non sapevo che fosse possibile inserire una function in validità.

Soluzione non elegante, ma semplice e efficace.

Clic destro sul nome del Foglio (barra inferiore), eventi Foglio, Contenuto Modificato, scegli la macro.
allego esempio

il numero dei file calc presenti in una cartella Per cartella intendi una directory del disco ? perché tutti quei fogli nel file allegato ? Per contare i file di una cartella puoi usare questo codice di esempio Sub NumFiles_InFolder Doc = ThisComponent sPath ="C:\Download\" sFileName = Di...

I menù a tendina hanno bisogno di una colonna di appoggio in cui sono inseriti i dati, quindi quello che chiedi tu è fattibile, però i dati devono essere inseriti in una tabella a parte e quella principale serve soltanto per la visualizzazione.

A me sembra troppo complicato quello che vorresti fare, ti propongo questa disposizione

Non credo si possa fare, ma se riesci a trovare una soluzione sei pregato di condividerla.

Io comincerei dall'inizio, quindi senza creare finestre di dialogo, ma creando una macro e assegnandola ad un pulsante situato sul foglio.
Le finestre di dialogo (userform in vba) verranno più tardi quando avrai più esperienza.
Se ho frainteso, allega un file di esempio con quello che hai fatto.

http://www.pitonyak.org/oo.php
Qui troverai molti esempi di programmazione

Hai provato ad usare il registratore di macro ?

Evidentemente facciamo 2 procedure diverse, io seleziono la prima cella della riga col titolo e poi Dati, Ordina.
Nel campo colonna mi compare TITOLO.

Non so risponderti, io seleziono sempre la prima cella della riga col titolo per fare l'ordinamento.

Prova anche questa, ma prima di lanciarla fai l'ordinamento in base alla colonna A Sub Eliminadoppie oSheet = ThisComponent.Sheets(0) col=0 ' colonna A RIGA=1 Do If oSheet.getCellByPosition(3,RIGA).string <> "" Then if StrComp(oSheet.getCellByPosition(col,RIGA).string,oSheet.getCellByPosit...

Non avevo letto bene, dopo l'ordinamento occorre una macro che elimina le righe col doppione in col A e in cui la colonna 4 non è popolata

Unisci i 2 file e ordina in base alla colonna A poi applica questo
https://help.libreoffice.org/latest/it/ ... DbPAR=CALC

Grazie Gaetano, direi che il quesito è ampiamente risolto.