You are here:---Rispondi a: [RISOLTO] Nascondere e visualizzare fogli in base a condizione.
Rispondi a: [RISOLTO] Nascondere e visualizzare fogli in base a condizione.2018-05-21T10:04:34+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Nascondere e visualizzare fogli in base a condizione. Rispondi a: [RISOLTO] Nascondere e visualizzare fogli in base a condizione.

sidsid
Moderatore
    Post totali: 718

    Fai questa modifica al codice; come vedi mi sono costruito un array con i nomi dei fogli che devono essere nascosti; in questo modo puoi aggiungere tutti i fogli che vuoi, inserendo nell’array la stringa tra virgolette, separata da virgola.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vFogli As Variant
    Dim xlVis As Excel.XlSheetVisibility
    Dim j As Long
    
    vFogli = Array("AUSINC", "PENSPOSTAUS") 'fogli da nascondere
    
    If Not Intersect(Target, Me.Range("E20")) Is Nothing Then
        Select Case Target.Value
            Case "AUSILIARIA"
                xlVis = xlSheetVisible
            Case Else
                xlVis = xlSheetHidden
        End Select
            
        For j = LBound(vFogli) To UBound(vFogli)
            Sheets(vFogli(j)).Visible = xlVis
        Next j
    
    End If
    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi