Condividi:        

Excel - Macro per Copia e Rinomina Fogli

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 - Macro per Copia e Rinomina Fogli

Postdi Fpas » 16/02/15 09:58

Buongiorno a tutti
sono ancora qui a richiedere un aiuto.
è un pò di giorni che faccio varie prove, seguendo guide e consigli di questo forum, ma non riesco a venire a capo della seguente questione.

ho un file excel (che per praticità allego - http://we.tl/z6L3fJTpOu) composto da due fogli.

1) Elenco Lavoratori (foglio inserimento dati);
2) Scheda di Valutazione

nel foglio 1 c'è una tabella per inserimento nomi ed un pulsante che esegue la seguente macro:

Codice: Seleziona tutto
Sub Copia()

Dim i,  As Integer

For i = 7 To 12

If Sheets("Elenco Lavoratori").Cells(i, 1) <> "" Then
ActiveWorkbook.Sheets("Scheda di Valutazione").Copy After:=Sheets(Sheets.Count)
End If
Next i

End Sub


ovvero crea tante copie del foglio "scheda di valutazione" quanti sono i lavoratori inseriti nel foglio 1.

ecco le mie due rischieste:
è possibile integrare il codice con uno script che:
1) dopo aver eseguito le n copie, rinomini i nuovi fogli con i nomi dei lavoratori inseriti in foglio 1?
2) ed inoltre è possibile inserire lo stesso "nome lavoratore" in cella C3 del singolo nuovo foglio copiato?

spero di essere stato abbastanza comprensibile.

grazie in anticipo
aspetto vostre
francesco
Francesco

Win7 + Office 2007 Ita
Fpas
Newbie
 
Post: 7
Iscritto il: 17/10/14 12:00

Sponsor
 

Re: Excel - Macro per Copia e Rinomina Fogli

Postdi ricky53 » 16/02/15 13:23

Ciao,
il link che hai inserito vien bloccato dal firewall.
Per il futuro utilizza FileDropper.



Per le tue richieste prova in questo modo:

dopo
Codice: Seleziona tutto
            ActiveWorkbook.Sheets("Scheda di Valutazione").Copy After:=Sheets(Sheets.Count)



inserisci le due righe che seguono
Codice: Seleziona tutto
[code]
            ActiveSheet.Name = Sheets("Elenco Lavoratori").Cells(I, 1)
            ActiveSheet.Range("C3") = Sheets("Elenco Lavoratori").Cells(I, 1)
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel - Macro per Copia e Rinomina Fogli

Postdi Fpas » 16/02/15 13:36

il link che hai inserito vien bloccato dal firewall.
Per il futuro utilizza FileDropper.

ti chiedo scusa, per la prossima provvedo con FileDropper


inserisci le due righe che seguono
Codice: Seleziona tutto
            ActiveSheet.Name = Sheets("Elenco Lavoratori").Cells(I, 1)
            ActiveSheet.Range("C3") = Sheets("Elenco Lavoratori").Cells(I, 1)



funziona alla grande.
Grazie Mille
Francesco

Win7 + Office 2007 Ita
Fpas
Newbie
 
Post: 7
Iscritto il: 17/10/14 12:00

Re: Excel - Macro per Copia e Rinomina Fogli

Postdi ricky53 » 16/02/15 13:40

Ciao,
BENE.

Alla prossima e buon proseguimento.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Macro per Copia e Rinomina Fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 89 ospiti