Excel: raggiungere velocemente foglio

[karug64]

Salve a tutti.
Ho un file excel con circa 300 fogli (con nome uguale a dei codici clienti).
Dovendo spostarmi tra il primo (riepilogo) ed i vari fogli (per controllare) sapreste dirmi se c'e' una scorciatoia da tastiera che mi permetta di digitare il nome del foglio e di raggiungerlo immediatamente senza dover scorrere con le freccette fino al suo raggiungimento ?

Grazie

[Flash30005]

Supponendo che il foglio che contiene i nomi dei fogli (codici cliente) sia nominato "Riepilogo" e in colonna A tu abbia i codice cliente
inserisci nel VBA del foglio "Riepilogo" (o altro nome)
questo codice

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row
If UR < 2 Then UR = 2
CheckArea = "A2:A" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
ShS = Target
Worksheets(ShS).Select
End If
End Sub


Inoltre in un modulo inserisci questa macro per tornare al foglio riepilogo

Codice: Seleziona tutto

Sub HomeR()
Sheets("Riepilogo").Select
End Sub


Nelle opzioni della macro HomeR inserirai i tasti di scelta rapita Ctrl + m (o altra lettera)
cliccando sulla colonna del codice cliente si attiverà il relativo foglio
con Ctrl+m tornerai nel foglio riepilogo

ciao

P.s. Se preferisci attivare la macro "Private Sub Worksheet_SelectionChange" con doppio click del mouse puoi utilizzare appunto il doppio click invece di selectionchange

[karug64]

Intanto grazie per la velocità della risposta.

Ho fatto come mi hai suggerito, ma nonostante esiste il foglio (per esempio) 446051, ottengo l'errore

indice non incluso nell'intervallo, nonostante, in debug, la variabile ShS contenga il valore 446051.

Grazie

[Flash30005]

Si possibile
sostituisci la variabile ShS con questa
ShS = Target.Text

ciao

[karug64]

Ok. Ora funziona. Grazie

[ricky53]

Ciao,
visto che hai già risolto mi permetto, riallacciandomi a quanto ti ha proposto Flash, di proporti la soluzione, citata da Flash, che utilizza il "Doppio Click":

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    UR = Range("A" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Range("A2:A" & UR)) Is Nothing Then
        On Error GoTo Errore
        Sheets(Target.Text).Select
    End If
    GoTo Fine

Errore:
    MsgBox "Il foglio:  '" & Target.Text & "'  non esiste", vbCritical
Fine:
    Cancel = True
End Sub


Il codice va copiato nel Foglio "Riepilogo"

A. l'elenco dei fogli è in colonna "A" del foglio "Riepilogo"
B. fai "Doppio Click" su un nome di questo elenco e ti troverai nel foglio scelto
C. per il ritorno al foglio "Riepilogo" utilizza la soluzione di Flash

[enrico43]

Visto che cercava una scorciatoia da tastiera, basterebbe cliccare il tasto destro del mouse direttamente sulle freccette di scorrimento dei fogli, in basso a sinistra.
Saluti
Enrico

[ricky53]

Ciao Enrico,
con "300" foglio quanto sarebbe stato facile, avendo i fogli i nomi dei clienti arrivare per esempio al cliente "Rossi_Mario" che è il 257-esimo foglio ?

E se i fogli non fossero in ordine alfabetico ?

[enrico43]

Già, poi aveva chiaramente detto di avere il foglio Riepilogo con codici clienti. Io uso quel sistema poichè ho al massimo 50-60 fogli.
A parte le freccette, tempo fa feci per una segretaria un file per la ricerca di info su fogli nominati con nome o cognome della persona di cui estrarre i dati, ma se si vuol chiudere senza aver scritto il nome, nè l'Annulla e nè la X fermano il loop. Come si fa ?
Ti ringrazio.
Un saluto
Enrico
http://www.filedropper.com/sceltafoglio
Si attiva con Ctrl+a

[karug64]

Grazie anche a te.
Ed a tutti coloro che hanno proposto soluzioni al problema. Grazie

Ciao,
visto che hai già risolto mi permetto, riallacciandomi a quanto ti ha proposto Flash, di proporti la soluzione, citata da Flash, che utilizza il "Doppio Click":

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    UR = Range("A" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Range("A2:A" & UR)) Is Nothing Then
        On Error GoTo Errore
        Sheets(Target.Text).Select
    End If
    GoTo Fine

Errore:
    MsgBox "Il foglio:  '" & Target.Text & "'  non esiste", vbCritical
Fine:
    Cancel = True
End Sub


Il codice va copiato nel Foglio "Riepilogo"

A. l'elenco dei fogli è in colonna "A" del foglio "Riepilogo"
B. fai "Doppio Click" su un nome di questo elenco e ti troverai nel foglio scelto
C. per il ritorno al foglio "Riepilogo" utilizza la soluzione di Flash

[Anthony47]

Per enrico43:
Era meglio se non inserivi il quesito in questa discussione, comunque per poter accettare anche un Annulla sul tuo inputbox potresti aggiungere questa riga in questa posizione:

Codice: Seleziona tutto

    shname = InputBox("Scrivi il Nome del Cliente")
    If Len(shname) = 0 Then Exit Sub                  '<<< AGGIUNGERE
    If Not WorksheetExists(shname) Then MsgBox shname & " non esiste!", vbExclamation


Ciao

[enrico43]

Buonasera, rispondo con un pò di ritardo e me ne scuso.
Un grazie ad Anthony per la dritta, che ovviamente risolve il problema, da lui e da tutti Voi mod ogni suggerimento/soluzione colpisce nel segno. Questa volta al primo colpo e senza fare le ore piccole, come fate spesso tutti Voi, Ricky e Flash in testa.
Un cordiale saluto
Enrico