Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copiare range da tutti i fogli attivi di un workbook

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

Copiare range da tutti i fogli attivi di un workbook

Postdi calculon » 15/05/12 19:52

Ciao a tutti,
oggi mi trovo a dover copiare il risultato presente sul range("c4") di tutti i fogli esistenti sul documento excel per poi incollarlo su altro file.

Es. file1.xls\copia range c4 su tutti i fogli aperti\apri file2.xls\incolla activecells.offset(1).pastespecial

n.b. i fogli del file 1 hanno nomi sempre diversi e così pure il numero


Grazieeeee
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Sponsor
 

Re: Copiare range da tutti i fogli attivi di un workbook

Postdi Flash30005 » 15/05/12 20:34

Puoi usare una macro tipo questa da inserire nel File2
Codice: Seleziona tutto
Sub CopiaDati()
    FileProg = ThisWorkbook.Name
    perc = ThisWorkbook.Path & "\"  '<<<< stesso percorso del File2
    NFile = "File1.xls"                        '<<<< Nome con estensione del File1
    Workbooks.Open(perc & NFile).Activate
    For NF = 1 To Worksheets.Count
    Sheets(NF).Range("C4").Copy Destination:=Workbooks(FileProg).Sheets("Foglio1").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
    Next NF
    Workbooks(NFile).Close savechanges:=False
End Sub


Adatta le righe con nota '<<<<

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Copiare range da tutti i fogli attivi di un workbook

Postdi calculon » 17/05/12 20:53

Fortissimo Flash!
Grazie tante
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08


Torna a Applicazioni Office Windows


Topic correlati a "Copiare range da tutti i fogli attivi di un workbook":


Chi c’è in linea

Visitano il forum: salatony e 7 ospiti