Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copia incolla

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Copia incolla

Postdi Statix » 08/02/12 23:09

Ciao a tutti ho un piccolo problema da risolvere ad un amico.
ho una riga (2)da A2 a lunghezza variabile da 200 a 1000,
con una macro devo prendere 9 celle per volta (A2:I2)
e incollarle in A6
prendere altre 9 celle J2:R2
e incollarle in A7
altre 9 celle S2:AA2
e incollarle in A8
fino all'ultima cella disponibile della riga 2

grazie
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Copia incolla

Postdi Anthony47 » 08/02/12 23:16

Sub mmmm()
For I = 2 To Cells(2, Columns.Count).End(xlToLeft).Column Step 9
Cells(2, I).Resize(1, 9).Copy Destination:=Cells(6 + J, 1)
J = J + 1
Next I
End Sub

Prova e fai sapere
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copia incolla

Postdi Statix » 08/02/12 23:19

Funziona ma parte dalla colonna B e non A della riga 2
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Copia incolla

Postdi Statix » 08/02/12 23:22

ok risolto,
grazie Anthony47,
per l'altro post modifica macro ci ho rinunciato.
modificato For I = 2
in For I = 1
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Copia incolla":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti