Condividi:        

Excel: raggiungere velocemente 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: raggiungere velocemente foglio

Postdi karug64 » 23/02/15 23:12

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
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: Excel: raggiungere velocemente foglio

Postdi Flash30005 » 23/02/15 23:51

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel: raggiungere velocemente foglio

Postdi karug64 » 24/02/15 00:18

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
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Re: Excel: raggiungere velocemente foglio

Postdi Flash30005 » 24/02/15 00:29

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

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel: raggiungere velocemente foglio

Postdi karug64 » 24/02/15 00:44

Ok. Ora funziona. Grazie
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Re: Excel: raggiungere velocemente foglio

Postdi ricky53 » 24/02/15 01:02

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel: raggiungere velocemente foglio

Postdi enrico43 » 24/02/15 12:02

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
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Excel: raggiungere velocemente foglio

Postdi ricky53 » 24/02/15 12:59

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 ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel: raggiungere velocemente foglio

Postdi enrico43 » 24/02/15 17:25

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
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Excel: raggiungere velocemente foglio

Postdi karug64 » 24/02/15 19:56

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

ricky53 ha scritto: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
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Re: Excel: raggiungere velocemente foglio

Postdi Anthony47 » 25/02/15 23:25

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

Re: Excel: raggiungere velocemente foglio

Postdi enrico43 » 08/03/15 21:06

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
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino


Torna a Applicazioni Office Windows


Topic correlati a "Excel: raggiungere velocemente foglio":


Chi c’è in linea

Visitano il forum: Nessuno e 100 ospiti