dopo mesi di inattività ritorno a chiedere il vostro aiuto.
in un file ho un foglio principale e numerosi altri fogli secondari
dal foglio principale selezionando una cella della colonna B, contenente il nome del foglio secondario,
seleziono il foglio secondario.
quando sono nel foglio secondario selezionando una cella vuota del range A1-C2 ritorno al foglio principale.
ho realizzato le seguenti 2 macro che funzionano se prese singolarmente, nel senso che nel file deve essere
presente una delle due
nel modulo del foglio principale ho inserito la seguente macro
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim NomeFoglio As String
If Target.Count > 1 Then Exit Sub
On Error GoTo MESSAGGIO
Application.EnableEvents = False
With ThisWorkbook.Worksheets("Main")
If Not Intersect(Target, .Range("B3:B70")) Is Nothing Then
NomeFoglio = Target.Value
ThisWorkbook.Worksheets(NomeFoglio).Select
End If
CONTINUA:
End With
Application.EnableEvents = True
Exit Sub
MESSAGGIO:
MsgBox Err.Description
Resume CONTINUA
End Sub
nel modulo "QUESTA CARTELLA..." ho inserito questo codice
- Codice: Seleziona tutto
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim NOME As String
On Error GoTo MESSAGGIO
Application.ScreenUpdating = False
'Application.Calculation = xlManual
Application.EnableEvents = False
With ThisWorkbook
NOME = ActiveSheet.Name
If NOME <> "Main" Then
If Not Intersect(Target, Worksheets(NOME).Range("A1:C2")) Is Nothing Then
ActiveSheet.Range("A1").Select
Worksheets("Main").Select
End If
End If
CONTINUA:
End With
Application.EnableEvents = True
'Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
MESSAGGIO:
MsgBox Err.Description
Resume CONTINUA
End Sub
stranamente ricevo messaggio di errore "IL METODO INTERSEC PER L'OGGETTO GLOBAL NON RIUSCITO" ma il foglio secondario viene selezionato.
non capisco dove si trova l'errore e quindi come modificarlo
va bene anche una diversa soluzione del problema
ciao grazie
