Rinominare automaticamente foglio di lavoro excel

Question

salve a tutti ecco il mio problema:

Ho una cartella di lavoro con i seguenti fogli:

NomiPartiti (da A1 a A10 devo inserire i nomi dei partiti: PD, PDL ecc)

Partito1

Partito2 ...

.. Partito 10

Mi piacerebbe un codice che all'inserimento del valore alla cella A1 mi cambiasse il nome del foglio Partito1 con il valore A1 e così via.

Grazie Andrea Villano

Answer 1

salve a tutti ecco il mio problema:

<cut>

Mi piacerebbe un codice che all'inserimento del valore alla cella A1 mi cambiasse il nome del foglio Partito1 con il valore A1 e così via.

Grazie Andrea Villano

Non è chiaro quello che chiedi.

Se in A1 inserisco Pippo, il foglio prende il nome di Pippo.

Se in A2 inserisco Pluto, il foglio, lo stesso foglio, deve cambiare nome?

Copia/Incolla questo nel modulo di codice del foglio dove vuoi questa cosa:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range

    Set rng = Me.Range("A1:A10")

    If Target.Cells.Count > 1 Then Exit Sub

    If Not Intersect(rng, Target) Is Nothing Then

        If Target.Value <> "" Then

            Me.Name = Target.Value

        Else

            Me.Name = "Nome di default"

        End If

    End If

    Set rng = Nothing

End Sub

Grazie.

Answer 2

Ciao Mauro

con A2 deve cambiare nome il foglio 2

Aggiungo che i valori di a1, a2, a3 ecc sono contenuti in un FoglioMaster diverso da foglio1, foglio2 dcc

grazie per la risposta

ciao Andrea