"stampa unione" in excel

[luisa227]

cè un sistema per fare una specie di stampa unione in excel?

Ho bisogno che excel prenda i nomi da un elenco e che crei tot fogli quanti sono i nomi.

Esempio: ho un elenco di allievi (pippo, pluto, topolino) nel foglio "dati"
Ho un foglio "base" in cui ho la voce allievo in cui vicino ad essa deve comparire il nome dell'allievo.
Per ogni allievo mi deve creare un foglio, quindi un foglio (oltre quello base) "pippo", "pluto", ect...


Si puo fare?

Grazie
Luisa

[nicola75ss]

Se ho capito bene è sufficiente che crei una macro così

Sub creafogli()
For Each cella In Selection.Cells
Worksheets.Add().Name = cella
Next
End Sub

Selezioni le tue celle contenenti i nomi ed esegui la macro.

[luisa227]

Originariamente inviato da nicola75ss
Se ho capito bene è sufficiente che crei una macro così

Sub creafogli()
For Each cella In Selection.Cells
Worksheets.Add().Name = cella
Next
End Sub

Selezioni le tue celle contenenti i nomi ed esegui la macro.

ok, cosi mi crea i fogli con i nominativi ma come faccio a dirgli che mi deve creare un documento uguale a quello base

Esempio (il mio documento di excel contiene:
Scheda di lavoro del giorno ___________

Nome:____________
Cognome:_________
Città:_____________

)

Mettiamo al caso che voglia fare x ogni giorno una scheda, quindi in un foglio a parte metto le date e eseguo la macro creafogli. Ma ognuno di quei fogli deve contenere pure la scheda di lavoro e in + compilata con il nome di chi ha lavorato quel giorno. (es. il giorno 1/01/08 lavora Pippo Pippi di Torino, il 2 lavora Pluto Pluti di Genova, ect....?

Spero di esermi spiegata...
Grazie

[luck]

mai pensato ad access?

[luisa227]

Originariamente inviato da luck
mai pensato ad access?

in che senso?

access lo userei anche ma io ho un foglio predefinito in excel da compilare....

[luck]

Originariamente inviato da luisa227
in che senso?

access lo userei anche ma io ho un foglio predefinito in excel da compilare....

ok allora io imposterei una macro che fa questo (prova con il registratore, in caso si aggiusta)

- scrive i campi della scheda master
- sposta e copia (crea una copia) della scheda master
- eventualmente storicizza i valori nel nuovo foglio (se ci sono formule)

di più non ti si può dire non sapendo com'è strutturato il tuo foglio dati di origine

ciao
L.

[luisa227]

CI HO GIà PROVATO CON MACRO... ho fatto un pezzo...
ho creato fogliO "DATI" strutturato cosi:

Pino | Torino | 6
Paolo |Genova |4
Mario | Firenze |9


e foglio "base" strutturato cosi:
Nome: | ____________
Città:| _____________
Voro:|_____________

sono riuscita a creare tot fogli uguali alla base nominati col nome della mia prima colonna, quindi ho un foglio Pino contenente la scheda Base, ect...

Non riesco però a riempire la scheda, ossia vicino a nome mi deve comparire il nome pino.

Con la macro registrata mi prende sempre il range di una cella specifica (quindi a1 sarà sempre a1)... come faccio a dirgli: "prendi ai, poi a2 e poi a3 e copiali prima in foglio di pino, pio in fogli di mario...?

[luck]

la scriviamo insieme?

come si chiama il foglio di lavoro contenente la scheda?
in che celle dobbiamo inserire rispettivamente nome città lavoro (intendo il riferimento cella) nella scheda?

[luisa227]

Sub AggiungiNuovoFoglio()
'per ogni cella selezionata
For Each cella In Selection.Cells
'copia il fogli base
Sheets("base").Copy After:=Worksheets(Worksheets.Count)
'dacci il nome della cella
ActiveSheet.Name = cella

'Selection.Copy
'ActiveSheet.Paste
'Selection.Paste


Next
End Sub

LA SCHEDA SI CHIAMA "BASE", i dati "dati"
in a1 cè scritto Nome
a2 Citta
a3 voto
in b1 ci va il nome (es. Pippo)
in b2 la città
in b3 il voto

[luck]

tiè, aggiustato un po' il tiro alla macro, nel foglio DATI seleziona SOLO i nomi prima di lanciare la macro...

Sub AggiungiNuovoFoglio()

    'per ogni cella selezionata
    For Each cella In Selection.Cells
        'copia il fogli base
        Sheets("base").Copy After:=Worksheets(Worksheets.Count)
        'dacci il nome della cella
        ActiveSheet.Name = cella
        
        'inserisce i valori nel foglio nuovo
        Sheets(cella.Value).Range("B1") = Sheets("dati").Cells(cella.Row, 1)
        Sheets(cella.Value).Range("B2") = Sheets("dati").Cells(cella.Row, 2)
        Sheets(cella.Value).Range("B3") = Sheets("dati").Cells(cella.Row, 3)
    Next
    
End Sub

fai sapere, ciao