Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Rinomina foglio di Fausto (utente non iscritto) data: 24/08/2010
Ancora ciao a tutti,
avrei un altro quesito da sottoporre:
È possibile rinominare un foglio incollando il contenuto di una cella dello stesso foglio, e che il foglio si rinomini automaticamente al variare del contenuto nella cella?
di Franco_44 (utente non iscritto) data: 24/08/2010
Si lo puoi fare con una macro che inserisci su change del foglio. nell'esempio la cella di riferimento per rinominare il foglio è la a3; adattala alle tue esigenze
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then
Exit Sub
Else
Dim Nomef As String
ActiveSheet.Select
ActiveSheet.Unprotect
Nomef = Range("A3")
ActiveSheet.Name = Nomef
End If
End Sub