Condividi:        

[excel] stessa cella di ogni foglio

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[excel] stessa cella di ogni foglio

Postdi marcoc » 10/04/18 00:32

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?
Avatar utente
marcoc
Utente Senior
 
Post: 317
Iscritto il: 22/03/07 21:58
Località: Nerviano

Sponsor
 

Re: [excel] stessa cella di ogni foglio

Postdi Anthony47 » 10/04/18 00:52

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...
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [excel] stessa cella di ogni foglio

Postdi marcoc » 10/04/18 22:21

ottimo, come sempre.
Se anziché volerlo fare per tutti i fogli, ne volessi escludere qualcuno?
Avatar utente
marcoc
Utente Senior
 
Post: 317
Iscritto il: 22/03/07 21:58
Località: Nerviano

Re: [excel] stessa cella di ogni foglio

Postdi Anthony47 » 11/04/18 01:35

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 <<<
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[excel] stessa cella di ogni foglio":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti