Macro rinomina foglio

Question

Salve.

Ho il seguente codice che uso quando ho un Foglio che voglio rinominare automaticamente in base al valore di una cella.

Funziona perfettamente.

Se inavvertitamente nella in A1 di un Foglio inserisco un "nome" già esistente ovviamente mi dà errore.

Vorrei però che mi comparisse una finestra con un messaggio di errore scelto da me (per esempio "ERRORE: Questo nome esiste già"). Per il resto mi va bene così.

Grazie a chi vorrà darmi un aiuto.

Giuseppe

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set Target = Range("A1")

If Target = "" Then Exit Sub

Application.ActiveSheet.Name = VBA.Left(Target, 31)

Exit Sub

End Sub

---

Answer 1

Salve.

Ho il seguente codice che uso quando ho un Foglio che voglio rinominare automaticamente in base al valore di una cella.

Funziona perfettamente.

Se inavvertitamente nella in A1 di un Foglio inserisco un "nome" già esistente ovviamente mi dà errore.

Vorrei però che mi comparisse una finestra con un messaggio di errore scelto da me (per esempio "ERRORE: Questo nome esiste già"). Per il resto mi va bene così.

Grazie a chi vorrà darmi un aiuto.

Giuseppe

Io la scriverei così:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [A1]) Is Nothing Then 

    If ActiveSheet.Name = [A1].Value Or [A1].Value = "" Then 

        If [A1].Value = "" Then 

            MsgBox "La cella è vuota", vbInformation 

        Else 

            MsgBox "Nome esistente", vbInformation 

        End If 

    Else 

        On Error Resume Next 

        ActiveSheet.Name = [A1].Text 

        If Err.Number > 0 Then 

            MsgBox "Inserire un nome valido", vbCritical, "Errore!" 

            Err.Clear 

        End If 

        On Error GoTo 0 

    End If 

End If 

End Sub

Intercetti nomi uguali e cella vuota ed ottieni il messaggio che volevi, inoltre nell'assegnazione del nome controlli anche che non vengano usati caratteri non ammessi,

ciao.

Answer 2

Nel quesito ho letto che gli occorre per un Foglio specifico,

ciao.

Answer 3

ciao

una curiosità

Private Sub Worksheet_Change(ByVal Target As Range)

lo devi mettere una per foglio o sbaglio

se lo metti in

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

non è meglio?

la cella A1 di qualsiasi foglio verrà intercettata.

Answer 4

Grazie Gianfranco.

Faccio due osservazioni:

1. Con il tuo codice nel Modulo "Questa Cartella di lavoro" ogni Foglio della cartella cambia nome quando cambia il Valore della Cella A1 nello stesso Foglio . Invece io vorrei un codice nel Modolo del Foglio da usare solo in quei Fogli per i quali voglio che assumano il nome di una determinata cella.
2. Anche con il tuo codice se cambio la cella A1 cambia il nome del Foglio.

Giuseppe

Answer 5

Ciao

pur non essendo esperto

mi permetto di sconsigliarti di utilizzare

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ogni qualvolta tocchi un cella lanci la macro

e mi sembra esagerato.

prova a mettere nella cartella di lavoro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 

    If Sh.Name <> Sh.Range("A1").Text Then 

        On Error Resume Next 

            Sh.Name = Sh.Range("A1").Text 

        On Error GoTo 0 

    End If 

End Sub

oppure

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 

    If Not Intersect(Target, Range("A1")) Is Nothing Then 

    On Error Resume Next 

        If Target <> "" And Target.Count = 1 Then 

            ActiveSheet.Name = Target.Value 

             End If 

    End If 

End Sub