La mia "partecipazione" termina qui.
Buona continuazione

Si, lo so infatti il rischio era quello di essere frainteso. Non ho bisogno di un formulario. La mia necessità era quella di capire se era corretto l'utilizzo di una macro associata all'evento foglio - contenuto modificato (C4). L'associazione dei pulsanti l'avevo prevista, ma volevo trovare un'alte...

La macro che si avvia con il contenuto modificato prevede solo la scelta RICERCA, ad ogni modo io farei tutto diversamente, per funzionare un buon formulario(credi tu voglia creare qualcosa del genere) necessita di una pianificazione come la seguente. 1) Tabella dove visualizzare i record tramite d...

Dici che dovrei abbandonarlo?
Di sicuro non avrei questi problemi
A questo punto però, visto che ci ho perso tutto ieri e oggi, sarei interessato ad una eventuale soluzione, se c'è.
Per questa sera chiudo.

Buona serata

Io non ho capito il tuo obiettivo, ma mi sembra sbagliato concettualmente abbinare la modifica con la ricerca La ricerca mi serve per estrarre i dati di un nominativo per poterli modificare. La mia idea era: Il Nominativo A parte in vacanza oggi Quindi lo inserisco (RECORD) Quando so che è arrivato...

Questa macro risolve il mio problema, ma al 75% :D Sub RicercaEmodifica Dim Doc As Object, Sh As Object Doc = ThisComponent Sh = Doc.Sheets.getByName("data_entry") mode1 = Sh.getCellRangeByName("C4").string allert1 = Sh.getCellRangeByName("N6").string If mode1 = "R...

Un'altro problema è quello di non riuscire a modificare le celle, in quanto l'evento attiva nuovamente la copia.
Devo capire le condizioni giuste da impostare

Inoltre non capisco la riga Sh.getCellByPosition(5, 5).String = Sh.getCellRangeByName("U44").String in F6 hai un menù a discesa, perché ci copi sopra qualcosa ? È vero, In F6 ho inserito un menù a discesa per fare delle prove questa riga: Sh.getCellByPosition(5, 5).String = Sh.getCellRang...

Capito niente. La sub RicercaEmodifica si limita a copiare alcune celle su altre celle, perché associarla all'evento contenuto modificato ? Proverò ad associarla ad un pulsante, mi piaceva l'idea di attivarla in automatico una volta selezionato il menù a discesa. Uno dei problemi riguarda la cella ...

La tabella dovrebbe funzionare in questo modo: Nella cella C4 c'è un menù a discesa che seleziona le modalità di Inserimento (RECORD) e di RICERCA E MODIFICA. I dati si riferiscono al foglio Inserimento_dati. I range che permettono, attraverso delle formule, l'inserimento e la ricerca dei dati sono ...

Salve a tutti, stavo cercando di continuare ad esercitarmi con le macro ma purtroppo sono rimasto nuovamente impigliato :) La mia intenzione era quella di aggiungere una macro ad una tabella di inserimento dati. La macro della Tabella di inserimento dati è perfettamente funzionante, ma dopo averne a...

Rivolgo ad Arbellini ed a tutte le persone le quali hanno assistito alla mia risposta inopportuna le mie più umili scuse. Buon proseguimento di giornata a tutti quanti :) Devo dire che questo post è stato di aiuto più a me che a te. Per le prossime volte, prima di farmi venire la "felice idea&...

A me tutte le celle del foglio "SCADENZA RATE PAYPAL IN ORDINE CRONOLOGICO"
danno invece questo (vedi allegato), probabilmente sarà un problema di software differente, ma non importa.
Buona serata

Scusa, non ho capito, ma cosa c'è che no va?
Se devi aggiungere nuovi dati devi aggiornare i riferimenti nelle formule.
Ho modificato le formule =XY*10000+(RIF.RIGA(XY))
Allego file

Ero arrivato a scriverne (copiarne) una come questa: Sub evento(Target) If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub Sh = Target.getSpreadsheet() DrawPage = Sh.DrawPage Form = DrawPage.Forms.GetByIndex(0) rng1 = sh.getCellRangeByName("F12") range1 =...

Gaetanopr ha scritto: ↑mercoledì 7 settembre 2022, 9:30 Non ti sei impegnato tanto, ti sei limitato a copiare una macro presa dal forum e a incollarla qui.

Purtroppo non sapevo come adattarla
Di teoria sono a -1, neanche a zero
Grazie

Sto provando a cercare soluzioni su soluzioni cercando nei vari post precedenti, ma non riesco neanche con If Then :crazy: ed è if then, figuriamoci con altro :) Un macro che ricorre frequente, forse quella corretta, da adattare (cosa non facile per me) sarebbe questa: Sub evento(Target) If NOT Targ...

Esatto, se sono solo due puoi usare un semplice If Then if varia cella1 scrivi su campo1 if varia cella2 scrivi su campo2 altrimenti puoi chiamare i campi data con il nome della cella, puoi creare un array di dati contenenti le celle che possono variare, diciamo che non esiste un solo modo per fare...

Grazie per il chiarimento. quindi: se è la variazione che avviene sulla cella (evento foglio) a generare l'evento e volessi aggiungere sullo stesso foglio un'altra cella che scriva in un secondo campo data dovrei associare un'unica macro con condizioni, in riferimento alle celle che variano. :!: :?:

Ho fatto così: Primo esempio Campo AlfaH4 Proprietà del controllo - Eventi - Testo modificato - Standard.Module1. AlfaDa l (document, Basic) Questa funziona anche se non abbino evento foglio contenuto modificato, c'è un motivo? Secondo esempio Campodata2 Proprietà del controllo - Eventi - Testo modi...

Intendo abbinare la seguente macro ad un evento del foglio :D Sub CampoData1() ' la data scritta nella cella F12 la riporta nel campo data ' ESEMPIO 2 Dim Doc AS Object Dim Sheet As Object Dim DrawPage As Object Dim Form As Object Dim Ctl As Object Dim oCell Doc = StarDesktop.CurrentComponent Sheet ...

Per il momento credo di aver risolto,
riguardo al file che ho allegato e che ri-allego, ho provato a sostituire l'associazione pulsante - macro (funzionante),
con evento foglio, ma non funziona,
dopodichè chiuderò il discorso "campo data, per andare avanti con altro.

Grazie patel, nel tuo file il terzo esempio non mi funziona se cambio la data iniziale, eppure se il campo scadenza riporta la somma delle celle E23 + F23 dovrebbe funzionare. A parte questo, nel file che allego ho modificato il primo esempio associando il nome del campo con la definizione del nome ...

Mi piacerebbe associare le due macro, per il momento con una condizione, all'evento del foglio.
Ci provo, se non riesco ci rivedremo
Grazie ancora.

Grazie

Ho modificato il titolo perché non era corretto
Scusate

Salve, mi piacerebbe capire come inserire un valore "una data", da una cella a un Campo data. Cercando nel forum ho trovato una macro che fa il contrario: dal Campo data verso una cella tramite associazione a evento foglio Sub Main(oEv) Dim oCell As Object oCell = thisComponent.Sheets.getB...

Mi sono accorto di un piccolo errore nella tabella, ora corretto.
Credo di essere riuscito ad aprire la prima scatola,
grazie all'aiuto di patel.
Considerate questo file come definitivo.

Buona giornata

REM ***** BASIC ***** 'Sheet.getCellRangeByName("F6:F16").ClearContents(7) ' Cancella area celle di origine dei dati 'Sheet.getCellRangeByName("J8:J10").ClearContents(7) 'Sheet.getCellRangeByName("F22:F22").ClearContents(7) 'Sheet.getCellRangeByName("T35:AJ35"...

patel ha scritto: ↑giovedì 1 settembre 2022, 8:20 Una function deve essere utilizzabile anche in altri contesti, quindi meglio eliminare le ultime righe che fanno riferimento al foglio specifico.

Scusa patel
quali righe, non l'ho capito