Pannello di Controllo Moderatore ]

Copia celle in modo alternato

Discussioni sull'applicazione per i fogli di calcolo

Copia celle in modo alternato

Messaggioda paoluccimax » sabato 27 luglio 2019, 19:11

Salve
avrei necessita di copiare le prime e incollare delle celle in modo alternato
Esempio:
cella:
B7 - H7
B8 - H8
B9 - H9
B10 - H10
B11 - H1
e copiarle di fianco in L4
Successivamente prendere le prossime cinque

B23 - H23
B24 - H24
B25 - H25
B26 - H26
B27 - H27

e incollarle in L9
e cosi via.

Esiste un modo per fare tutto cio in automatico? Come sempre ringrazio in anticipo a chi vorra aiutarmi

PS. Dimenticavo, se in un intervallo di riga (B26 - H26) mancano dei dati, dovra passare alla riga successiva, ma sempre 5 intervalli dovra' prendere in considerazione.
Allegati
copia celle ad intervalli.ods
(26.93 KiB) Scaricato 10 volte
Open Office 4.1.6 su Mac
paoluccimax
 
Messaggi: 26
Iscritto il: giovedì 11 luglio 2019, 12:27

Re: Copia celle in modo alternato

Messaggioda patel » domenica 28 luglio 2019, 9:35

prova con questa macro che cerca la riga con Show: scende di 5 righe, copia il range di 5 righe nella colonna L e continua a copiare fino a che trova show:
Codice: Seleziona tutto   Espandi visualeStringi visuale
Sub trasp1
dim oFound as object
Sh1 = ThisComponent.Sheets(0)
oDescriptor = Sh1.createSearchDescriptor()
tofind ="Show:"
drow = 6
With oDescriptor
  .SearchString = tofind
  .SearchWords = true
  .SearchCaseSensitive = False   
End With
oFound = Sh1.findFirst(oDescriptor)
Do While Not IsNull(oFound)   
   frow = oFound.CellAddress.Row
   Range = Sh1.getCellRangeByPosition(1, frow+5,  7, fRow+9 ).getDataArray
   dRange  = Sh1.getCellRangeByPosition(11, drow,  17, dRow+4 )
   dRange.setDataArray(Range)
   oFound = Sh1.findNext( oFound, oDescriptor)
   drow =drow+5
Loop
End Sub
-------------------
OpenOffice 4.1 e Libre Office 6.o.7.3 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3292
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Copia celle in modo alternato

Messaggioda paoluccimax » domenica 28 luglio 2019, 11:43

Grazie del tuo aiuto, ma sono veramente agli inizi e non so dove scrivere questo codice.
Open Office 4.1.6 su Mac
paoluccimax
 
Messaggi: 26
Iscritto il: giovedì 11 luglio 2019, 12:27

Re: Copia celle in modo alternato

Messaggioda gioh66 » domenica 28 luglio 2019, 14:52

Una possibile soluzione con formule, eliminando però le righe vuote, potrebbe essere quella di creare una colonna d'appoggio per ricavare i numeri di riga che ci interessano. Per farlo in J7 (o dove preferisci) metti questa formula, da tirare in basso
Codice: Seleziona tutto   Espandi visualeStringi visuale
=SE(RESTO(CONTA.VUOTE($A$7:A7)-1;10)+1>5;"";RIF.RIGA(A1))

Poi per creare la tabella riepilogativa, metti (nell'esempio che allego l'ho messa in L21)
Codice: Seleziona tutto   Espandi visualeStringi visuale
=SE(VAL.ERRORE(INDICE($B$7:$H$224;PICCOLO($J$7:$J$224;RIF.RIGA(A1));COLONNE($L$1:L1)));"";INDICE($B$7:$H$224;PICCOLO($J$7:$J$224;RIF.RIGA(A1));COLONNE($L$1:L1)))

e tira a destra e in basso.
Ps.: se non vuoi vedere la colonna d'appoggio puoi nasconderla o spostarla più a destra sul foglio. In quest'ultimo caso devi però correggere il range della funzione PICCOLO.
Allegati
copia celle ad intervalli(bis.1).ods
(29.08 KiB) Scaricato 7 volte
Libreoffice 6 / Ubuntu 18.04 - PcLinuxOS
Libreoffice 5.1 / Ubuntu 16.04 - LinuxMint 18
Avatar utente
gioh66
Volontario
Volontario
 
Messaggi: 848
Iscritto il: lunedì 31 luglio 2017, 14:57
Località: Friuli

Re: Copia celle in modo alternato

Messaggioda paoluccimax » domenica 28 luglio 2019, 17:25

Grazie infinite del tuo aiuto, e scusa la mia ignoranza, ma se in una riga dovesse trovare solo alcuni valori, come e' possibile fargli capire che deve considerare la riga dopo?
Un'altra domanda, che puoi leggere da un'altro topic che ho creato " viewtopic.php?f=9&t=9999"
Grazie ancora infinite per il tuo aiuto!
Open Office 4.1.6 su Mac
paoluccimax
 
Messaggi: 26
Iscritto il: giovedì 11 luglio 2019, 12:27

Re: Copia celle in modo alternato

Messaggioda patel » domenica 28 luglio 2019, 17:34

paoluccimax ha scritto:Grazie del tuo aiuto, ma sono veramente agli inizi e non so dove scrivere questo codice.

http://professoressa.altervista.org/Dis ... re_OOo.pdf
-------------------
OpenOffice 4.1 e Libre Office 6.o.7.3 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3292
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Copia celle in modo alternato

Messaggioda paoluccimax » domenica 28 luglio 2019, 17:34

prova ad osservare nella riga 53 , ti allego nuovamente il file
Allegati
copia celle ad intervalli(bis.1).ods
(87.53 KiB) Scaricato 8 volte
Open Office 4.1.6 su Mac
paoluccimax
 
Messaggi: 26
Iscritto il: giovedì 11 luglio 2019, 12:27

Re: Copia celle in modo alternato

Messaggioda gioh66 » domenica 28 luglio 2019, 18:33

Con le formule la vedo dura. :knock:
Libreoffice 6 / Ubuntu 18.04 - PcLinuxOS
Libreoffice 5.1 / Ubuntu 16.04 - LinuxMint 18
Avatar utente
gioh66
Volontario
Volontario
 
Messaggi: 848
Iscritto il: lunedì 31 luglio 2017, 14:57
Località: Friuli

Re: Copia celle in modo alternato

Messaggioda paoluccimax » domenica 28 luglio 2019, 19:11

Possiamo sentirci in privato per capire se c'e' la possibilita di darmi una mano nel completare questo file?
Grazie
Open Office 4.1.6 su Mac
paoluccimax
 
Messaggi: 26
Iscritto il: giovedì 11 luglio 2019, 12:27

Re: Copia celle in modo alternato

Messaggioda gioh66 » domenica 28 luglio 2019, 19:58

Tutto l'aiuto che posso e/o so darti te lo do qui, anche perchè, nello spirito del forum, l'eventuale soluzione potrebbe essere d'aiuto a qualche altro utente con problemi simili.
Libreoffice 6 / Ubuntu 18.04 - PcLinuxOS
Libreoffice 5.1 / Ubuntu 16.04 - LinuxMint 18
Avatar utente
gioh66
Volontario
Volontario
 
Messaggi: 848
Iscritto il: lunedì 31 luglio 2017, 14:57
Località: Friuli

Re: Copia celle in modo alternato

Messaggioda paoluccimax » domenica 28 luglio 2019, 20:16

Certo sono d'accordo, ma secondo me avremmo necessita di confrontarci per capire meglio la problematica in evidenza. Comunque come credi, se puoi aiutarmmi cosi, ben venga!
Open Office 4.1.6 su Mac
paoluccimax
 
Messaggi: 26
Iscritto il: giovedì 11 luglio 2019, 12:27

Re: Copia celle in modo alternato

Messaggioda patel » lunedì 29 luglio 2019, 9:36

se hai questo tipo di problematiche ti conviene iniziare a prendere in considerazione le macro
-------------------
OpenOffice 4.1 e Libre Office 6.o.7.3 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3292
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Copia celle in modo alternato

Messaggioda gioh66 » lunedì 29 luglio 2019, 13:07

patel ha scritto:se hai questo tipo di problematiche ti conviene iniziare a prendere in considerazione le macro

Lo credo anch'io, ho provato con le formule ma non ci cavo un ragno dal buco...ma con le macro sono a 0--- :mrgreen:
Libreoffice 6 / Ubuntu 18.04 - PcLinuxOS
Libreoffice 5.1 / Ubuntu 16.04 - LinuxMint 18
Avatar utente
gioh66
Volontario
Volontario
 
Messaggi: 848
Iscritto il: lunedì 31 luglio 2017, 14:57
Località: Friuli

Re: Copia celle in modo alternato

Messaggioda Gaetanopr » lunedì 29 luglio 2019, 16:48

Premetto che anch'io opterei per una macro, comunque prova il file in allegato le colonne in giallo sono di appoggio e possono essere nascoste, le formule da L4 a seguire sono matriciali.
Le formule delle due colonne di appoggio possono essere unite in una sola e usare solo una colonna in questo modo
Codice: Seleziona tutto   Espandi visualeStringi visuale
=SE(SE(CONTA.VALORI(B7:H7)=7;CONTA.SE(A$2:A7;"Show:");"")<>"";CONTA.SE(K$7:K7;K7);"")
da mettere nella cella J7 e trascinare in basso

PS: Controlla bene se funziona a dovere, alcune celle alla fine riportano lo ZERO ma questo si può togliere
Allegati
copia celle ad intervalli(bis.2).ods
NUOVO FILE
(173.53 KiB) Scaricato 6 volte
Openoffice 4.1 su windows xp
Gaetanopr
Volontario
Volontario
 
Messaggi: 2722
Iscritto il: mercoledì 21 novembre 2012, 21:07


Torna a Calc

Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti