Risultati da 1 a 9 di 9

Discussione: Come far aprire i fogli automaticamente



  1. #1
    L'avatar di fravince
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    57
    Messaggi
    3
    Versione Office
    excel2007
    Likes ricevuti
    0
    Likes dati
    0

    Come far aprire i fogli automaticamente

    Salve ho un problema e non so come risolverlo ,non so se questa discussione lavete gia trattata se è si mo date il link perchè non l'ho trovato.
    Il problema è questo:
    Ho un file con dieci fogli io dal primo foglio vorrei accedere al 6 foglio automaticamente .
    vi allego un esempio
    seezionando franco mi dia franco,selezionando il nome anna mi dia il foglio anna.
    C'è una possibilita che si possa fare?
    Grazie anticipatamente
    File Allegati File Allegati

  2. #2
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Come far aprire i fogli automaticamente

    Ciao Fravince
    sarebbe meglio allegassi il file di esempio
    se non ho capito male penso si possa fare con il collegamento ipertestuale
    windows 10
    Excel 2016

  3. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4043
    Versione Office
    2013
    Likes ricevuti
    1235
    Likes dati
    929

    Re: Come far aprire i fogli automaticamente

    Ciao a tutti,

    @fravince

    come ha detto giustamente "nick" (un saluto) la prossima volta allega direttamente il file excel visto che con immagini e/o pdf non ci si può lavorare....

    Naturalmente devi usare il VBA (quindi sposto la discussione nella giusta sezione).

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    
    On Error GoTo errore
    If Not Intersect(Target, Range("A2:A7")) Is Nothing Then
        Sheets(Target.Value).Activate
        ActiveSheet.Range("A1").Select
    End If
    Exit Sub
    
    
    errore:
    MsgBox "Il Foglio non esiste!!!"
    End Sub
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  4. #4
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Come far aprire i fogli automaticamente

    Ciao Cromagno e grazie come al solito.........
    senza Vba ma semplicemente con il collegamento ipertestuale non si può fare ???
    io avevo inteso che cliccando sul nome volesse spostarsi direttamente sul voglio voluto.......
    windows 10
    Excel 2016

  5. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4043
    Versione Office
    2013
    Likes ricevuti
    1235
    Likes dati
    929

    Re: Come far aprire i fogli automaticamente

    Citazione Originariamente Scritto da nick0573 Visualizza Messaggio
    Ciao Cromagno e grazie come al solito.........
    senza Vba ma semplicemente con il collegamento ipertestuale non si può fare ???
    io avevo inteso che cliccando sul nome volesse spostarsi direttamente sul voglio voluto.......
    Ciao nick,
    si, hai ragione, si potrebbe usare l'hyperlink ma non sapendo quanti fogli ci siano in realtà, direi che il VBA è la soluzione più pratica (gli hyperlink, a meno di non assegnarli tramite VBA, dovresti assegnarli manualmente uno alla volta).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  6. #6
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: Come far aprire i fogli automaticamente

    :28:
    windows 10
    Excel 2016

  7. #7
    L'avatar di fravince
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    57
    Messaggi
    3
    Versione Office
    excel2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Come far aprire i fogli automaticamente

    grazie cromagno ho visto e proprio quello che stavo cercando,pero modoficandolo con i numeri non funziona perche
    ti allego la modifica che dico

  8. #8
    L'avatar di fravince
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    57
    Messaggi
    3
    Versione Office
    excel2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Come far aprire i fogli automaticamente

    questa e la modifica
    File Allegati File Allegati

  9. #9

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4043
    Versione Office
    2013
    Likes ricevuti
    1235
    Likes dati
    929

    Re: Come far aprire i fogli automaticamente

    Ciao fravince,
    ti dava problemi con il formato "numero" perchè il nome del foglio è una stringa di testo, quindi quando cercava il numero tra i vari fogli (quindi tra le varie stringhe) non trovava nessuna corrispondenza.

    Basta convertire in stringa quello che c'è scritto all'interno delle celle con "Cstr()" (la parte in rosso nel codice):

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    
    On Error GoTo errore
    If Not Intersect(Target, Range("A2:A6")) Is Nothing Then
        Sheets(CStr(Target.Value)).Activate
        ActiveSheet.Range("A1").Select
    End If
    Exit Sub
    
    
    errore:
    MsgBox "Il Foglio non esiste!!!"
    End Sub
    Ti riallego il file...
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  10. I seguenti 2 utenti hanno dato un "Like" a cromagno per questo post:


Discussioni Simili

  1. Inserire commento automaticamente
    Di Franco71 nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 09/06/17, 13:17
  2. Aprire file automaticamente all'inserimento pennetta.
    Di Berna11 nel forum Pausa caffè (Off-Topic)
    Risposte: 0
    Ultimo Messaggio: 23/01/17, 18:21
  3. ordinare un elenco automaticamente
    Di Mammut65 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 13/10/16, 16:22
  4. Creare automaticamente fogli excel da un database in base a condizioni specifiche
    Di luigi.simone nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 30/07/16, 19:24
  5. Trasferire dati automaticamente su due fogli diversi
    Di Dilly nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 25/07/16, 17:59

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •