Condividi:        

EXCEL: copia e incolla a partire da specifica riga

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

EXCEL: copia e incolla a partire da specifica riga

Postdi mpontic » 19/10/10 10:14

Ciao a tutti

ho un foglio contenente valori su 10 colonne che devo copiare ed incollare ogni giorno in altro foglio partendo da una riga specifica. Piu' precisamente il foglio di destinazione e' gia' precompilato nella colonna K fino alla riga 65536 mentre dalla colonna A alla J vengono copiate le 10 colonne giorno per giorno. Chiedo se si puo’ automatizzare il “paste” a partire dalla prima riga vuota, verificando pero’ il range A:J visto che K e’ gia’ precompilato.

Grazie mille
mpontic
Utente Junior
 
Post: 25
Iscritto il: 07/09/10 09:24

Sponsor
 

Re: EXCEL: copia e incolla a partire da specifica riga

Postdi ricky53 » 19/10/10 12:10

Ciao,
le righe di partenza (da cui copiare i dati per 10 colonne) sono sempre le stesse???

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL: copia e incolla a partire da specifica riga

Postdi ricky53 » 19/10/10 12:24

Ciao,
ho ipotizzato che i tuoi dati iniziassero dalla riga "2" per "x" righe nell'intervallo "A-J" del FOGLIO1 e che dovessero essere copiati nel FOGLIO2 colonne "A-J"

Prova questa macro:

Codice: Seleziona tutto
Sub Copia_XRighe_per_10Colonne()
    Foglio1.Select

' La copia inizia dalla riga "2" fino all'ultima riga piena delle colonne "A-J"
    RR = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A2:J" & RR).Select
    Selection.Copy
   
    Foglio2.Select
' Calcola la prima riga libera in "A-J"
    RR = Range("A" & Rows.Count).End(xlUp).Row + 1
    ActiveSheet.Paste
    Range("A" & RR).Select
    Application.CutCopyMode = False
   
    Foglio1.Select
    Range("A1").Select
End Sub


Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL: copia e incolla a partire da specifica riga":


Chi c’è in linea

Visitano il forum: Nessuno e 70 ospiti

cron