You are here:---Rispondi a: [RISOLTO] Formattazione condizionale dato invisibile ;;;
Rispondi a: [RISOLTO] Formattazione condizionale dato invisibile ;;; 2018-10-28T16:54:49+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Formattazione condizionale dato invisibile ;;; Rispondi a: [RISOLTO] Formattazione condizionale dato invisibile ;;;

sidsid
Moderatore
    Post totali: 437

    Semplice: imposta un range con gli intervalli interessati, e inseriscilo nel costrutto With
    Imposta anche il riferimento alla cella della convalida.
    Un esempio da adattare ai tuoi intervalli:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rConvalida As Range, rng As Range
    
    Set rConvalida = Me.Range("D11") ' range della convalida
    Set rng = Me.Range("F11:F10000,G11:G100,K11:K1000") 'range da rendere invisibile
    
    If Not Intersect(rConvalida, Target) Is Nothing And Target.Count = 1 Then
        With rng
            Me.Unprotect
            If Target.Value = "si" Then
                .NumberFormat = "General"
                .FormulaHidden = False
            Else
                .NumberFormat = ";;;"
                .FormulaHidden = True
            End If
            Me.Protect
        End With
    End If
    Set rConvalida = Nothing
    Set rng = Nothing
    
    End Sub

    ATTENTO: ricorda che alle celle che vengono formattate , devi togliere il flag “bloccata” prima di proteggere il foglio.

    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