Copiare range da tutti i fogli attivi di un workbook

[calculon]

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

[Flash30005]

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

[calculon]

Fortissimo Flash!
Grazie tante