Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Definire nome foglio (cavaliere) leggendo nome in una cella del foglio "impostazioni"

120 views
Skip to first unread message

Bruno.62

unread,
Sep 30, 2015, 4:05:42 AM9/30/15
to
Excel 2010..
Ciao a tutto il gruppo.

ualcuno conosce il modo per impostare il nome foglio come scritto in
oggetto.
Grazie, Bruno

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus

Bruno.62

unread,
Sep 30, 2015, 4:34:16 AM9/30/15
to
Il 30/09/2015 10:05, Bruno.62 ha scritto:
> Excel 2010..
> Ciao a tutto il gruppo.
>
> ualcuno conosce il modo per impostare il nome foglio come scritto in
> oggetto.
> Grazie, Bruno
>

^^^^^^^^^^^^^^^^^^^^^^
Ho provato così, ma non funzia.


Private Sub Worksheet_Activate()

Dim Dipendente As String
Dipendente = Sheets("Foglio6").Range("D5").value

Worksheets("Foglio4").Name = Dipendente

End Sub

casanmaner

unread,
Sep 30, 2015, 4:35:00 AM9/30/15
to
Prova questa:
E' da inserire direttamente nel modulo del foglio "impostazioni"
FIndex rappresenta il numero di posizione del foglio al quale vuoi che venga dato il nome
rngImp è la cella del foglio "impostazioni" dal quale, una volta digitato, il nome viene assegnato il nome al foglio di "destinazione".
La procedura prevede che nel caso venga digitato un carattere non valido per i nomi dei fogli a seguito dell'errore venga dato come nome un nome "standard".

'----
Private Sub Worksheet_Change(ByVal Target As Range)
Const FIndex As Integer = 2
Dim rngImp As Range
Set rngImp = Me.Range("A1")

Application.EnableEvents = False
If Not Intersect(Target, rngImp) Is Nothing Then
On Error GoTo NomeStandard
Worksheets(FIndex).Name = Target.Value
End If

ChiudiSub:
Set rngImp = Nothing
Application.EnableEvents = True
Exit Sub

NomeStandard:
Worksheets(FIndex).Name = "Foglio " & FIndex
GoTo ChiudiSub
End Sub
'---

casanmaner

unread,
Sep 30, 2015, 4:42:46 AM9/30/15
to
Puoi utilizzare anche questo metodo però dovresti indicare:
Private Sub Worksheet_Activate()

Dim Dipendente As String
Dipendente = Sheets("Foglio6").Range("D5").value

Me.Name = Dipendente

End Sub

Bruno.62

unread,
Sep 30, 2015, 4:52:47 AM9/30/15
to
^^^^^^^^^^^^^^^^^^^^
No grazie, è bellissima la prima; si fissa il nome e via.
Sono proprio una scarpa bucata in confronto a tanti di voi del gruppo.
Hai una risposta per tutto. Grazie
Ho acquistato un paio di testi che sto leggendo, ma è tanta roba ed ho
urgenza di terminare questo foglio.
Posso sapere il tuo nome; non saprei come identificare "casanmaner".
Ciao.

casanmaner

unread,
Sep 30, 2015, 5:21:40 AM9/30/15
to
Prego, ma se avessi una risposta a tutto ... sarei euromiliardario :D
0 new messages