voorwaardelijke opmaak werkt niet goed

vrouw · 23 sep 2019

Hi

Onderstaande wil voor de 2e opmaak niet weken. er komt geen voorwaardelijke opmaak in de sheet te staan.
Iemand die ziet wat er fout gaat?

Code:

    With Range("A12:J500")
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$H12<0,50*$G12"
    With .FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .Color = 49407
       .TintAndShade = 0
    End With
    End With

'2e regel voorwaardelijke opmaak

     With Range("A12:J500")
    .FormatConditions.Add Type:=xlExpression, Formula1:="=AND($G12>0;$H12=0)"
      With .FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .Color = 65535
       .TintAndShade = 0
    End With
    End With

OctaFish · 23 sep 2019

In de bovenste staat in je formule een komma (lijkt me goed aangezien je hem met VBA maakt) en in de tweede een puntkomma. Willen we er écht naar kunnen kijken, dan is een voorbeeldbestandje natuurlijk veel makkelijker. Ik ga de situatie in ieder geval zelf niet nabouwen

.

Timshel · 23 sep 2019

De voorwaardelijke opmaak wordt wel ingesteld maar de kleuring niet

Code:

Sub Dude()
    With Range("A12:J500").FormatConditions.Add(Type:=xlExpression, Formula1:="=$H12<0,50*$G12").Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    With Range("A12:J500").FormatConditions.Add(Type:=xlExpression, Formula1:="=AND($G12>0;$H12=0)").Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
End Sub

voorwaardelijke opmaak werkt niet goed

vrouw

Terugkerende gebruiker

OctaFish

Verenigingslid

Timshel

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy