[Excel] Importazione dati da fogli excel

[sax]

ho creato una macro con il registratore di macro, ho inserito un pulsante su dodici fogli del file "presenze_operai" nominati gen,feb,mar,........... ma non funziona cioè su ogni foglio cambia l'inserimento di rigo, quindi mi da problemi nei calcoli.
in definitiva io dovrei prelevare da un file excel "cartel1" creato da un programma circa una ventina di fogli tutti numerati "aaa 00001" "bbb 00002" ecc. dove le prime tre cifre sono l'iniziale del cognome e le ultime cinque il numero progressivo, si deve prelevare una parte di ogni foglio da A2:P39
e si deve andare ad incollare sul foglio attivo, per esempio adesso settembre, il foglio "aaa 00001" su "set" in a2:p39 il foglio "bbb 00002" sempre su "set" ma in A42:P79 il foglio "ccc 00003" sempre su "set" ma in A82:P119 il foglio "ddd 00004" sempre su "set" ma in A122:P159
fino all'ultimo numero in questo caso "zzz 00024" i numeri non sono tutti manca il 00014 il 00016 00023 e forse altri in quanto o non utilizzati o personale non piu attivo
spero di essere stato chiaro
Grazie per l'aiuto che ci date sempre.

[Anthony47]

Cia sax,
potresti usare la seguente macro:

Codice: Seleziona tutto

Sub RicopiaSax()
TargetWB = "Cartel1"    '<<< Cambiare se necessario
Area = "A2:P39"         '<<< Cambiare se necessario

StartWB = ActiveWorkbook.Name
Linee = Range(Area).Rows.Count
Windows(TargetWB).Activate
WsC = ThisWorkbook.Worksheets.Count
For I = 1 To WsC
Windows(TargetWB).Activate
Sheets(I).Select
Range(Area).Select
Selection.Copy

Windows(StartWB).Activate
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Cells(LastRow + 1, 1).Select
ActiveSheet.Paste
Next I

Application.CutCopyMode = False
End Sub

Lanciala dal foglio in cui vorresti incollare i dati che vai a prendere dal file Cartel1; eventualmente cambia in testa alla macro il nome del file da cui attingi (variabile TargetWB) e l’ area che vuoi prelevare (variabile Area).

Sospendo la mia partecipazione al forum, un saluto a tutti gli Utenti.

Anthony

[sax]

mi da errore in

Codice: Seleziona tutto

Cells(LastRow + 1, 1).Select


in ogni caso evidenzia l'ultimo foglio del file "cartel1"

[sax]

File attivo è "presenze_operai" sul foglio "set"

Codice: Seleziona tutto

LastRow = 65536
wsc = 23
I = 1


e non ha copiato nulla
sul foglio "set" dalla colonna q in poi vi sono tutte celle con funzioni