Duplicare foglio excel

[serber]

Con questa routine vorrei duplicare un foglio excel di base "Modello" in
abse all'ID dell'anagrafica.
Tutto è Ok ma il foglio modello viene sovrascritto e non duplicato.
Dove sbaglio?
ciao
serber

Public Sub DuplicaSheet()
With Worksheets("Modello")
.Visible = xlSheetVisible
.Copy After:=Sheets(Sheets.count)
ActiveSheet.Name = Anagrafica
.Visible = xlSheetVeryHidden
End With

End Sub

P.S il tutto viene lanciato da Access che:

1) apre il file .xls;
2) vefica la presenza del foglio di lavoro in riferimento alla anagrafica;
3) se mancante duplica il foglio (vedi funzione sopra)

[Mauro Gamberini]

Post by serber
Con questa routine vorrei duplicare un foglio excel di base "Modello" in
abse all'ID dell'anagrafica.
Tutto è Ok ma il foglio modello viene sovrascritto e non duplicato.
Dove sbaglio?

Questa a me non da errori e fa quello
che chiedo:

Public Sub DuplicaSheet(ByVal tuaVariabile as String)
With Worksheets("Modello")
.Visible = xlSheetVisible
.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = tuaVariabile
.Visible = xlSheetVeryHidden
End With
End Sub

Cioè, mostra Modello, lo copia,
assegna alla copia il nome del parametro
tuaVariabile e la posiziona come ultimo foglio
e, infine, nasconde Modello.

Adesso, sei tu che devi sapere *come*
e *quando* riempire quella variabile,
cioè le passerai il valore dell'ID di tuo interesse.

[serber]

Grazie Mauro,
non avevo tenuto conto che il modello viene nascosto.
Grazie
serber

Post by Mauro Gamberini

Post by serber
Con questa routine vorrei duplicare un foglio excel di base "Modello" in
abse all'ID dell'anagrafica.
Tutto è Ok ma il foglio modello viene sovrascritto e non duplicato.
Dove sbaglio?

Questa a me non da errori e fa quello
Public Sub DuplicaSheet(ByVal tuaVariabile as String)
With Worksheets("Modello")
.Visible = xlSheetVisible
.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = tuaVariabile
.Visible = xlSheetVeryHidden
End With
End Sub
Cioè, mostra Modello, lo copia,
assegna alla copia il nome del parametro
tuaVariabile e la posiziona come ultimo foglio
e, infine, nasconde Modello.
Adesso, sei tu che devi sapere *come*
e *quando* riempire quella variabile,
cioè le passerai il valore dell'ID di tuo interesse.
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/

[Mauro Gamberini]

Post by serber
non avevo tenuto conto che il modello viene nascosto.
Grazie

;-)
Grazie a te per i riscontro.