Generare più fogli contemporaneamente con una macro

[The_Gladiator]

Ho un foglio in excel, devo generare questo foglio 100 volte contemporaneamente tramite una macro in VBA, chi mi aiuta?

[Flash30005]

Benvenuto nel Forum, Gladiator

Supponendo che tu abbia un foglio di nome "Modello" e vorresti duplicarto 100 volte puoi usare questa macro

Codice: Seleziona tutto

Sub CreaFogli()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For I = 1 To 100    '<<<< 100 = max numero di fogli che vuoi ottenere
    NomeF = Format(I, "000")
    Sheets("Modello").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = NomeF
  Next I
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

I fogli avranno un nome formato da tre cifre (001, 010, 100)

Ciao