Copia celle in modo alternato
-
- Messaggi: 26
- Iscritto il: giovedì 11 luglio 2019, 12:27
Copia celle in modo alternato
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.
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 92 volte
Open Office 4.1.6 su Mac
Re: Copia celle in modo alternato
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
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
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
-
- Messaggi: 26
- Iscritto il: giovedì 11 luglio 2019, 12:27
Re: Copia celle in modo alternato
Grazie del tuo aiuto, ma sono veramente agli inizi e non so dove scrivere questo codice.
Open Office 4.1.6 su Mac
Re: Copia celle in modo alternato
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
Poi per creare la tabella riepilogativa, metti (nell'esempio che allego l'ho messa in L21)
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.
Codice: Seleziona tutto
=SE(RESTO(CONTA.VUOTE($A$7:A7)-1;10)+1>5;"";RIF.RIGA(A1))
Codice: Seleziona tutto
=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)))
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 97 volte
...se sei soddisfatto delle risposte ricevute metti il [Risolto] https://forum.openoffice.org/it/forum/v ... f=9&t=5661
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
-
- Messaggi: 26
- Iscritto il: giovedì 11 luglio 2019, 12:27
Re: Copia celle in modo alternato
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!
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
Re: Copia celle in modo alternato
http://professoressa.altervista.org/Dis ... re_OOo.pdfpaoluccimax ha scritto:Grazie del tuo aiuto, ma sono veramente agli inizi e non so dove scrivere questo codice.
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
-
- Messaggi: 26
- Iscritto il: giovedì 11 luglio 2019, 12:27
Re: Copia celle in modo alternato
prova ad osservare nella riga 53 , ti allego nuovamente il file
- Allegati
-
- copia celle ad intervalli(bis.1).ods
- (87.53 KiB) Scaricato 97 volte
Open Office 4.1.6 su Mac
Re: Copia celle in modo alternato
Con le formule la vedo dura.
...se sei soddisfatto delle risposte ricevute metti il [Risolto] https://forum.openoffice.org/it/forum/v ... f=9&t=5661
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
-
- Messaggi: 26
- Iscritto il: giovedì 11 luglio 2019, 12:27
Re: Copia celle in modo alternato
Possiamo sentirci in privato per capire se c'e' la possibilita di darmi una mano nel completare questo file?
Grazie
Grazie
Open Office 4.1.6 su Mac
Re: Copia celle in modo alternato
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.
...se sei soddisfatto delle risposte ricevute metti il [Risolto] https://forum.openoffice.org/it/forum/v ... f=9&t=5661
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
-
- Messaggi: 26
- Iscritto il: giovedì 11 luglio 2019, 12:27
Re: Copia celle in modo alternato
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
Re: Copia celle in modo alternato
se hai questo tipo di problematiche ti conviene iniziare a prendere in considerazione le macro
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Re: Copia celle in modo alternato
Lo credo anch'io, ho provato con le formule ma non ci cavo un ragno dal buco...ma con le macro sono a 0---patel ha scritto:se hai questo tipo di problematiche ti conviene iniziare a prendere in considerazione le macro
...se sei soddisfatto delle risposte ricevute metti il [Risolto] https://forum.openoffice.org/it/forum/v ... f=9&t=5661
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
Libreoffice 6/7 Ubuntu 22.04 - PcLinuxOS - LinuxMint 21
Re: Copia celle in modo alternato
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 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
Le formule delle due colonne di appoggio possono essere unite in una sola e usare solo una colonna in questo modo
Codice: Seleziona tutto
=SE(SE(CONTA.VALORI(B7:H7)=7;CONTA.SE(A$2:A7;"Show:");"")<>"";CONTA.SE(K$7:K7;K7);"")
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 68 volte
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Openoffice 4.1.13 su windows 10