Excel Nominare 200 fogli

Question

Buon giorno a tutti

Anzitutto  vorrei pubblicamente ringraziare questa community perche' GRATUITAMENTE (in Italia !!!! )  mi ha aiutato a realizzare una serie di fogli di lavoro che ha velocizzato in maniera mostruosa una parte del mio lavoro ...

Un grazie particolare a M.Borrelli e N. Jones che con i loro codici ,formule e suggerimenti hanno reso possibile il tutto .

                                                                          GRAZIE

dopodiche' , adesso mi trovo ad affrontare la parte finale del mio progetto , purtroppo ripetitiva (copia incolla a iosa ...)

la parte piu' fastidiosa e' quella di nominare i 200 fogli che creero' .

il foglio di partenza e'      "Pratica 100" , il successivo sara'   "Pratica 101 ......fino a "Pratica 200"

Mi era stato gentilmente fornito (dalla community ) un codice che digitando il nome voluto nella cella A1 del foglio da nominare , automaticamente rinominava il foglio ..........pero' questo non riduce i tempi perche' comunque bisogna ripetere questa operazione N volte ....

Esiste una soluzione piu' rapida ???

                                GRAZIE     Claudio P

Answer 1

Ciao Claudio,

Oppure, per selezionare il primo numero (ad esempio 100), prova la seguente versione:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim i As Long

    Const sPrefix As String = "Practica "                                  '<<=== Modifica

    Const iPrimoNumero As Long = 100 '<<=== Modifica

    Set WB = ActiveWorkbook

    With WB

        For i = 1 To .Worksheets.Count

            .Sheets(i).Name = sPrefix & iPrimoNumero + i - 1

        Next i

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Buon giorno Claudio,

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Buon giorno Norman

Grandioso il secondo codice funziona benissimo !!!!!!

GRAZIE    ciao   Claudio P

Answer 4

Ciao Claudio,

Prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim i As Long

    Const sPrefix As String = "Practica "

    Set WB = ActiveWorkbook

    With WB

        For i = 1 To .Worksheets.Count

            .Sheets(i).Name = sPrefix & i

        Next i

    End With

End Sub

'<<=========

===

Regards,

Norman