scusa ma l'ods di cosa ??
quale?
a che ti serve?
non si fa riferimento ad una tabella esterna ... se mi dici cosa non capisco magari posso anche provare a capire

ecco il csv gia inviato prima

... scusa ma ho allegato il csv (tutto) non l'ods!

non so se ho fatto bene a riaprire qui la discussione ho il file di cui all'oggetto della precedente discussione, nel quale ho messo una macro che funziona bene per metà. la macro è quella del module4 (perdiscogs) e non quella del module1che funziona benissimo quindi non va toccata la macro del modu...

aaah ecccoooo

questa macro parte dal file con i codici non dal file tutto.csv - ci potevo anche pensare ma mi ero ormai fissato sul file csv.

grazieeeeee sei gentilissimo!!

gianni

1) apri il file che ti ho allegato 2) lo apro come calc con divisore dei campi virgola 3) strumenti - macro - organizza macro - Openoffice basic 4) standard - module 2 - perdiskaos - esegui da Errore di runtime basic Si è verificata una eccezione Type:com.sun.star.uno.Runtimexception Message:. alla ...

?? e come si fa?

è perche lo apre in sola lettura, quindi appena cerchi di cancellare la prima colonna si ferma

Sub perdiskaos doc=thiscomponent Sh1 = Doc.Sheets(0) Fname ="C:\Users\pc\Desktop\tutto.csv" ' percorso da modificare UrlDelFile = ConvertToURL(Fname) DocCsv = StarDesktop.loadComponentFromURL(UrlDelFile, "_blank", 0, Array()) Sh2 = DocCsv.Sheets(0) REM ----- Rimozione delle colo...

non mi è chiaro a quali file si riferiscono questi url scusa ... fname = ad esempio c:tutto.csv , ok le altre due righe a che file si riferiscono e di preciso cosa dovrei cambiare? Fname = "F:\Download\tutto.csv" ' percorso da modificare UrlDelFile = ConvertToURL(Fname) DocCsv = StarDeskto...

SCUSA ERA ODT NON ODS
allego ods

Allego la tabella di riferimento
essendo comunque una impostazione per la quale non dovrebbero esserci differenze per te, mi sono permesso di arrivare fino a 200, poi fammi sapere..
Grazie mille per tutto cio che farai
Gianni

questa macro qui si funziona per (2) >> (B) Sub perdiskaos doc=thiscomponent Sh1 = Doc.Sheets(0) c = Sh1.createCursor c.gotoEndOfUsedArea(false) Rem ----- Trova ultima riga dati utili nel foglio di lavoro ----- UltimaRiga = c.RangeAddress.EndRow REM ----- Rimozione delle colonne che inizialmente non...

ti invio il file ... i valori hanno un senso assegnato da me (oltre il numero delle lettere dell'alfabeto assegno valori particolari)
comunque ok , va bene anche appena puoi.
intanto ti invio il file
immensamente grazie
Gianni

no i numeri sono da 2 a 100 seguendo una tabella che ho io
se mi puoi aiutare , te la invio .. in che formato ti serve?
Gianni

quindi devo aggiungere : sostituisci.SearchString = "(2)" sostituisci.ReplaceString = "(B)" sostituisci.SearchString = "(3)" sostituisci.ReplaceString = "(C)" sostituisci.SearchString = "(4)" sostituisci.ReplaceString = "(d)" .... e avanti ...

Ciao Patel questa è la procedura dove si cancellano colonne nella prima parte, e dove cerco di fare la sostituzione che ti ho spiegato nella seconda (essedo una prova qui provo a sostituire non "(2)" ma Manheim Steamroller" con "(B)" ... il concetto non cambia...) La variazi...

Sub perdiskaos doc=thiscomponent Sh1 = Doc.Sheets(0) c = Sh1.createCursor c.gotoEndOfUsedArea(false) Rem ----- Trova ultima riga dati utili nel foglio di lavoro ----- UltimaRiga = c.RangeAddress.EndRow REM ----- Rimozione delle colonne che inizialmente non servono ----- Sh1.Columns.removeByIndex(0,...

Ciao patel ... io il file lo vedo e lo ho pure riaperto dalla mesaggeria non so perche dici che non ho allegato nessun file dammi un modo per inviartelo anche in privato... si è un csv che apro con openoffice calc (non con database avevo sbagliato) come ho detto gia contiene due macro che hai fatto ...

non mi sono spiegato, certo che puoi .. allego il file di prova (tra l'altro proprio tu mi hai aiutato la scorsa volta sullo stesso file) la macro è il modulo tre (la prima e la seconda le hai fatta tu) io ho programmato allinizio la cancellazione di alcune colonne successivamente c'e' il ciclo for ...

Innanzitutto grazie e ciao Patel il file csv lo tratto come database ti spiego meglio... io devo cambiare cosi come (2) in (B) , anche (3) in (C) .. e avanti cosi quindi di fatto a me serve: 1) dentro un ciclo for next che ho gia correttamente impostato e che parte dalla ultima riga fino alla prima ...

Sicuramente qualcosa in giro c'e' ... ma non riesco a trovarlo mi serve una macro che molto semplicemente all'interno di un db csv mi trovi un valore alfanumerico e le lo cambi con un altro esempi voglio cambiare tutti i "(2)" presenti nel database csv con "(B) " ... considerando...

autorisolto
la macro ancora pensava alla ultima riga settata a inizio procedura, quindi metteva 1.0 in piu fino alla vecchia ultima riga
sufficiente fargli ricalcolare la fine riga prima di sostituire price con 1.0
ok!
Gianni

Ho capito di aver messo male la sub INSERISCI1... ora funziona, pero' mi mette il valore 1.0 anche nei records precedentemente cancellati, come se ancora esistessero... allegato il file con la modifica... sapete dirmi qualcosa? Sub LaMacroCheMiServe doc=thiscomponent Sh1 = Doc.Sheets(0) c = Sh1.crea...

SICCOME NON SONO AVVEZZO A FAR FARE TUTTO E VOGLIO IMPARARE, dopo la macro di lucky63 , che funziona egregiamente, vorrei cambiare in tutti i records (escluso il primo di intestazione) in valore del campo price (che ormai è tutto a 4.9) in "1.0" ho aggiunto il ciclo for next che vedete in ...

Ringrazio ancora TUTTI VOI. (QUASI) ULTIMA FASE... qui non ho idea di cosa fare ... dopo applicata la macro di lucky63 , Devo selezionare tutti i record il cui campo price sia diverso da un valore (ora ad esempio facciamo 9.9 - poi cambiero' io il valore a seconda delle necessità) , e cancellarli da...

sorry ...

perfetta lucky63.
Grazie mille!
Gianni

Salve... eccomi al nuovo thread ... Ci ho provato e ci sono andato vicino copiando ed incollando le vs macr , per SCAMBIARE POSIZIONE a due colonne nel file Prima mi avete aiutato a COPIARE i dati di una in un'altra e a riempire una colonna con un valore definito (PROVA) Ora dovrei CAMBIARE POSIZION...

ok ... scusa ma come si fa a mettere risolto?