[excel] stessa cella di ogni foglio

[marcoc]

Buongiorno a tutti, ho un file con 10 fogli tutti con la stessa struttura. Ho la necessità di scorrer spesso da uno all'altro. Mi servirebbe un modo affinché se seleziono la cella x del foglio1, passando al foglio2 sia selezionata in automatico la cella x, così come negli altri 8 fogli, senza dovermi spostare sulla stessa cella col mouse o con le frecce. In pratica dove seleziono, guida la selezione degli altri fogli del file. Che dite?

[Anthony47]

Prova a mettere nel modulo QuestaCartellaDiLavoro /ThisWorkbook questo codice:

Codice: Seleziona tutto

Dim cSel As String

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If cSel <> "" Then Range(cSel).Select
On Error GoTo 0
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
cSel = Target.Address
End Sub


Fai sapere...

[marcoc]

ottimo, come sempre.
Se anziché volerlo fare per tutti i fogli, ne volessi escludere qualcuno?

[Anthony47]

Allora modifica il codice:

Codice: Seleziona tutto

Dim cSel As String

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ignora = Array("Foglio2", "Foglio4")        '<<<
If IsError(Application.Match(Sh.Name, ignora, 0)) Then
    On Error Resume Next
    If cSel <> "" Then Range(cSel).Select
    On Error GoTo 0
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ignora = Array("Foglio2", "Foglio4")        '<<<
If IsError(Application.Match(Sh.Name, ignora, 0)) Then
    cSel = Target.Address
End If
End Sub

Immagino che si capisce cosa scrivere nelle righe marcate <<<