[Risolto] Macro x Copia/incolla con pulsante

[Guido2016]

Ciao a tutti, scrivo perché sto impazzendo dietro ad una macro che mi sembrava molto semplice (forse per altri ma non per me) e non riesco a risolvere. Spero di ricevere una mano a risolvere.Vediamo ora se riesco a spiegarmi. Il file ha tre fogli dove un pulsante in ogni foglio dovrebbe copiare e incollare dati (numeri) in altra colonna dello stesso foglio, però indipendentemente per ogni foglio (pulsante che funziona solo per il foglio interessato). Ho creato provando anche un foglio di appoggio pensando di risolvere ma si è rivelato per me inutile. In ogni foglio sono interessate solo le colonne E – F – G. dove in “G” s’inserisce numero manualmente e la cella cambia colore sfondo quando il numero è superiore alla casella stessa riga ma in col. “F”. nella colonna “E” solo la differenza tra cella stessa riga di colonna “G” meno “F”. La Macro dovrebbe copiare alla pressione pulsante solo i numeri delle celle col. “G” in “F” logicamente le celle colorate per importo superiore di “G” ritornano bianche e pronte ad essere modificate e ricolorate se numero cambia. Risparmierei un sacco di tempo e non solo, potrei attivare protezione lasciando libere solo celle della col. “G” senza fare manualmente copia/incolla come ora e poi ridurre rischi di sbagli. Il file è molto grande oltre 50 fogli con molti collegamenti ma se richiesto posso ridurre e inserirlo come esempio.

[patel]

..Il file ha tre fogli dove un pulsante in ogni foglio dovrebbe copiare e incollare dati (numeri) in altra colonna dello stesso foglio, però indipendentemente per ogni foglio (pulsante che funziona solo per il foglio interessato).---- Il file è molto grande oltre 50 fogli con molti collegamenti ma se richiesto posso ridurre e inserirlo come esempio.

prima 3 poi 50, non ho capito molto, allega un file di esempio con anche il risultato desiderato

[Guido2016]

Ecco il file ridotto, grazie della risposta. ciao

[patel]

Se i fogli sono 50 devi avere 150 pulsanti e 150 macro

[Guido2016]

No sono fogli con altri tipi di collegamento dove questa macro non serve, non ci sono pulsanti di collegamento a questa macro

[patel]

prova questa per il foglio1

Codice: Seleziona tutto

Sub Foglio1
Sheet = ThisComponent.Sheets.getByName("Foglio1")
Sheet.getCellRangeByName("E12:E19").setDataArray(Sheet.getCellRangeByName("G12:G19").getDataArray
End Sub

[Guido2016]

Grazieeeee, funziona perfettamente sapevo che era piccola macro, ma ho sempre sbagliato qualcosa e non funzionava, e vero che... ogni persona deve fare quello che di cui ha conoscenza e non improvvisarsi come stavo facendo io. Nella macro ho solo cambiato le lettere "E" in "F" e tutto OK. Per gli altri fogli? Posso scrivere la stessa dicitura tre volte cambiando solo nome foglio e nome celle o la procedura è diversa?

[patel]

certo, ovviamente devi cambiare anche il nome della sub

[Guido2016]

Fatto, grazie....e sono in debito con te per la disponibilità, velocità e....preparazione fammi sapere se vuoi toglierti la curiosità relativa all'uso che procedo a pulire dai dati personali e di altri(non solo eliminare fogli e collegamenti come ho fatto). Dovrei inviarlo in privato visto che è abbastanza grande, poi magari avresti suggerimenti per perfezionarlo se vuoi. dammi qualche giorno per questo, questo periodo è pieno per me.

[patel]

grazie del riscontro, ma non ti preoccupare, non sono curioso.