Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copiare fogli di lavoro

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 fogli di lavoro

Postdi pistri » 11/11/11 22:58

Ciao a tutti e complimenti ancora per tutto quello che si riesce ad imparare leggendovi.
Ho bisogno di un aiutino...

Ho una pagina principale con nome, cognome e nazionalità.
dovrei poi creare 50 pagine secondarie (fogli), con celle tutte uguali fra loro.
L'unica variabile è appunto l'intestazione di ogni foglio con il relativi dati (nome, cognome, nazionalità), collegata alla pagina principale.

Esiste un metodo rapido per creare i 50 fogli, senza dover copiare uno per uno il foglio modello ed andare poi a sostituirvi la variabile "nome,cognome,nazionalità" manualmente?

Per facilitare le cose i 50 nomi sono scritti ciascuno su una propria riga con i rispettivi dati.
Al nome uno corrisponde il foglio 1, al nome 2 il foglio 2, ecc.

Grazie a tutti comunque vada.

Ciao.
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47

Sponsor
 

Re: Copiare fogli di lavoro

Postdi Flash30005 » 11/11/11 23:47

Fai uno screenshot del foglio (elenco nomi) modificando dati sensibili
oppure specifica se hai una riga di intesatazione nel foglio elenco
e in A2 hai il nome
in B2 il cognome e
in C2 la nazionalita
poi specifica il nome del foglio modello e quale righe/colonne hai disponibili per trascrivere i dati "dedicati"

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 fogli di lavoro

Postdi pistri » 12/11/11 21:52

Eccole:
Immagine

Immagine

Se volete vi mando anche il link del file.

Nella prima immagine ho l'elenco nomi + dati.
Nella seconda ho l'esempio dei fogli uguali che devo creare con in alto l'intestazione che deve essere associata ad ogni nome.

Grazie!
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47

Re: Copiare fogli di lavoro

Postdi Flash30005 » 12/11/11 22:26

:?:

Avevo chiesto dei riferimenti riguardo a:
1) nome foglio modello
2) disposizione dati rispetto alle righe e alle colonne foglio Elenco
3) disposizione dati rispetto alle righe e alle colonne da "dedicare" del foglio modello

Nelle tue immagini non si vede nulla di quanto richiesto
forse è opportuno l'invio del link per scaricare il file

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 fogli di lavoro

Postdi pistri » 13/11/11 21:27

Flash30005 ha scritto::?:

Avevo chiesto dei riferimenti riguardo a:
1) nome foglio modello
2) disposizione dati rispetto alle righe e alle colonne foglio Elenco
3) disposizione dati rispetto alle righe e alle colonne da "dedicare" del foglio modello

Nelle tue immagini non si vede nulla di quanto richiesto
forse è opportuno l'invio del link per scaricare il file

ciao


Hai ragione, non sono stato chiaro.
Nel foglio principale, chiamato "soggetti" ho l'elenco nomi dove precisamente, in A2 ho il codice soggetto (n. gara) in B2 ho il nome e cognome e in C2 ho la nazionalita.
Ecco un esempio:

410 ADAMS CHRISTOPHE GERIATRIC TEAM BEL

Dovrei poi creare altri 50 fogli, denominati foglio 1, 2, 3, ecc. dove dovrei avere la seguente intestazione:

RACE NUMBER NAME OF THE DRIVER NAZ.
410 ADAMS CHRISTOPHE GERIATRIC TEAM BEL

Seguito poi da un elenco di dati (circa 60 righe) uguali per tutti i fogli che mi posso copiare ed incollare io.

Si può fare qualcosa di veloce??

Grazie ancora e se non è chiaro mando anche il file.

Ciao.
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47

Re: Copiare fogli di lavoro

Postdi Flash30005 » 13/11/11 21:44

Secondo me dovresti creare un foglio-modello completo di tutto ciò che è uguale per tutti i fogli
poi fai un ciclo for...next da 1 a ultima riga del foglio elenco
in questo for next aggiungi un foglio copiando il foglio-modello e
inserisci nella riga 2 i dati corrispondenti alla riga in "scansione" dell'elenco

e hai finito

se non è chiaro invia il file

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 fogli di lavoro

Postdi pistri » 14/11/11 11:53

Ti faccio una richiesta più semplice.

Se io ho un foglio di lavoro chiamato foglio1 dove in cella A1 vi è ad esempio la formula =Foglio0!A1
Mi spieghi come posso automatizzare la creazione di foglio2, foglio3, foglio4, ecc. dove in cella A1 trovo rispettivamente =Foglio1!A2,=Foglio1!A3,=Foglio1!A4, (praticamente a foglio y corrisponde AY).

Forse cosi è più chiaro per tutti.

Ciao.
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47

Re: Copiare fogli di lavoro

Postdi Flash30005 » 14/11/11 13:36

Ti trovo una soluzione più semplice
In una cartella devi avere un foglio chiamato "Elenco"
e un Foglio denominato "Modello"
nel modello ci saranno le righe uguali per tutti
nel foglio elenco da A2 a Cn ci saranno i dati da te richiesti che devono essere copiati nei fogli creati
a questo punto avvii questa macro
Codice: Seleziona tutto
Sub Creafogli()
Application.ScreenUpdating = False
Application.Calculation = xlManual
UR1 = Worksheets("Elenco").Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To UR1
    NomeF = I - 1
    If I < 10 Then NomeF = "0" & NomeF
    Sheets("Modello").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = NomeF
    Worksheets("Elenco").Range("A" & I & ":C" & I).Copy Destination:=Worksheets(NomeF).Range("A2")
 Next I

Worksheets("Elenco").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


Questa invece serve per cancellare tutti i fogli creati
Codice: Seleziona tutto
Sub CancellaFogli()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.DisplayAlerts = False
For I = ActiveWorkbook.Worksheets.Count To 1 Step -1
    If Sheets(I).Name <> "Elenco" And Sheets(I).Name <> "Modello" Then Sheets(I).Delete
Next I
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


Per evitare errori ti invio il file Test

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 fogli di lavoro

Postdi pistri » 14/11/11 14:53

Cavolaccio ma era proprio quello che cercavo!!!!!!

E pensare che ho impiegato poco fa quasi 2 ore a copiarmi ed incollarmi tutti i fogli ed a rinominare le formule..
Ora cercherò di capire come hai fatto cosi, nel caso ne dovessi avere ancora bisogno saprò come muovermi.

Grazie ancora!!!
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47


Torna a Applicazioni Office Windows


Topic correlati a "Copiare fogli di lavoro":


Chi c’è in linea

Visitano il forum: Marius44, raimea e 17 ospiti