Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Importazione dati da fogli excel

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] Importazione dati da fogli excel

Postdi sax » 25/09/06 11:31

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.
sax
Utente Junior
 
Post: 93
Iscritto il: 20/05/06 19:34

Sponsor
 

Postdi Anthony47 » 25/09/06 16:09

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
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: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi sax » 26/09/06 07:32

mi da errore in
Codice: Seleziona tutto
Cells(LastRow + 1, 1).Select

in ogni caso evidenzia l'ultimo foglio del file "cartel1"
sax
Utente Junior
 
Post: 93
Iscritto il: 20/05/06 19:34

Postdi sax » 26/09/06 14:48

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
sax
Utente Junior
 
Post: 93
Iscritto il: 20/05/06 19:34


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Importazione dati da fogli excel":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti