VBA - Creare Fogli in Cartella di Lavoro con numerazione progressiva

alfrimpa, 12/12/2018 12.35:

---

Ciao Raven

Ti riallego il tuo file dove ho inserito la macro che vedi qui e che è associata al pulsante "Crea Nuova Scheda" sul foglio "Riepilogo"

vb

Sub DuplicaFogli()
    Dim i As Integer
    Dim ur As Long
    Application.ScreenUpdating = False
    Sheets("Schedanuova").Range("ba:ba").ClearContents
    For i = 3 To Sheets.Count
        ur = Sheets("Schedanuova").Cells(Rows.Count, "BA").End(xlUp).Row
        Sheets("Schedanuova").Cells(ur + 1, "BA").Value = CInt(Sheets(i).Name)
    Next i
    Sheets("Schedanuova").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = WorksheetFunction.Max(Sheets("Schedanuova").Range("BA:BA")) + 1
    ActiveSheet.Range("BA:BA").ClearContents
    Application.ScreenUpdating = True
    ActiveSheet.Range("A1").Select
End Sub

Sul foglio "Schedanuova" c'è una colonna nascosta (la BA) che occorre per la determinazione del numero del nuovo foglio.

Per quanto riguarda l'ultima domanda la questione è, almeno per me un po' più complessa.

Se tu sul foglio "Riepilogo" hai delle formule che puntano ai fogli come fai ad inserirne altre quando i fogli non esistono ancora?

Secondo me va trovato un diverso approccio.

Ovviamente se la cartella dovesse contenere pi di 46 fogli le formule dovranno essere ricopiate dalla riga 50 in poi; in questo caso, però, più formule metti più il file si rallenta.

Fai sapere.

---