Scelta foglio da cella



  • Scelta foglio da cella
    di Sergio (utente non iscritto) data: 01/09/2011

    E' possibile chiedere ad una macro di scegliere un certo foglio di lavoro prendendo il nome dello stesso da una cella?
    grazie



  • di Franco_44 (utente non iscritto) data: 02/09/2011

    Ciao
    prova così: metti tutti i fogli, escluso il foglio1, in modalità nascosta; poi nel foglio1 apri il vba (alt+f11) e digiti il primo codice di cui sotto. in g1 (puoi cambiare questa cella a tuo piacimento) digiti il nome del foglio che vuoi aprire e dai invio.
    se inserisci anche il secondo codice, quando torni sul foglio1, il foglio precedentemente aperto, torna in modalità nascosta
    (adatta l'elenco dei fogli nascosti ai tuoi).
    se hai problemi fai sapere
     
    Primo Codice
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    X = Range("G1").Value
    If X = "" Then Exit Sub
    10
    Worksheets(X).Visible = True
    Sheets(X).Select
    End Sub
    
    Secondo Codice
    
    Private Sub Worksheet_Activate()
    X = Range("G1").Value
    If X = "" Then Exit Sub
        Sheets("Foglio2").Visible = False
        Sheets("Foglio3").Visible = False
        Sheets("Foglio4").Visible = False
        Sheets("Foglio5").Visible = False
        10
    Worksheets(X).Visible = False
        Sheets("MENU").Select
        Range("G1").ClearContents
    Range("G1").Select
    End Sub