Copiare fogli di lavoro

[pistri]

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.

[Flash30005]

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

[pistri]

Eccole:




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!

[Flash30005]

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

[pistri]

:?:

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.

[Flash30005]

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

[pistri]

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.

[Flash30005]

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

[pistri]

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!!!