VBA - Creare Fogli in Cartella di Lavoro con numerazione progressiva

dodo47, 11/12/2018 13.43:

---

ciao
perchè non usi il registratore di macro e poi adatti il codice alle tue necessità ?

saluti

---

raven286k1, 11/12/2018 15.29:

---

Vorrei ma sono poco pratico purtroppo con tutto quello che riguarda la scheda Sviluppo e le Macro..

---

alfrimpa, 11/12/2018 15.39:

---

E' molto semplice.

Vai sulla scheda Sviluppo
In alto a sinistra trovi Registra macro
Fai le operazioni manualmente
Al termine clicca su Interrompi registrazione e nell'editor di VBA (per visualizzarlo premi Alt+F11) ti ritroverai il codice.

---

alfrimpa, 11/12/2018 18.34:

---

Visto che sinora non lo hai fatto sarebbe il caso che allegassi un file di esempio e su questo spiegassi quello che vuoi fare.

---

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.

---

alfrimpa, 12/12/2018 16.00:

---

Grazie a te del riscontro.

Dimenticavo di dire due cose:

1) i fogli "Riepilogo" e Schedanuova" devono essere i primi due della cartella; non vanno mai spostati.

2) Forse è meglio che tu protegga il foglio "Riepilogo" per prevenire una cancellazione accidentale delle formule.

Devo anche rendere omaggio all'amico Canapone (anch'egli frequentatore di questo forum) per il risolutivo aiuto sulle formule con le quali io zoppico parecchio.

---

alfrimpa, 12/12/2018 16.19:

---

Credo di si ma ripeto io con le formule faccio a cazzotti.

---

raven286k1, 12/12/2018 16.21:

---

Provato e confermo che funziona con quella formula!!! Che Spettacolo!!!!

---

alfrimpa, 12/12/2018 16.32:

---

Per me gli spettacoli sono altri

---

dodo47, 13/12/2018 11.46:

---

Ciao
puoi provare in A4:

=COLLEG.IPERTESTUALE("[TRATTORIOK.xlsm]" & RIF.RIGA()-1 &"!$A$1";B4)

trascinando in basso finchè serve.

Nel momento che inserisci in col. B il numero del foglio, in A vedrai il numero con il collegamento.

saluti

---