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
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
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
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
>
^^^^^^^^^^^^^^^^^^^^^^
> 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
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
'---
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
Sep 30, 2015, 4:42:46 AM9/30/15
to
Private Sub Worksheet_Activate()
Dim Dipendente As String
Dipendente = Sheets("Foglio6").Range("D5").value
Me.Name = Dipendente
Dim Dipendente As String
Dipendente = Sheets("Foglio6").Range("D5").value
End Sub
Bruno.62
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
Sep 30, 2015, 5:21:40 AM9/30/15
to
0 new messages