Cel kleuren via voorwaardelijke opmaak indien waarde 0 is

Bijgevoegd een file. Hier wil ik de cellen waarvan de waarde 0 is, een rode kleur geven. Het is echter niet voldoende om enkel de cellen te selecteren waar een waarde instaat, maar meer, (omdat niet elke week dezelfde aantallen cellen een waarde hebben). Dit zou ik graag in een macro zien... Dus enkel hetgeen ik in de macro moet intypen is voldoende. Aangezien dit maar een deel van de file is, wil ik het er achteraf zelf inzetten. (file bevat namen ed)

Alvast dank voor je hulp

Glenn

Is deze simpele voorwaardelijk opmaak formule niet voldoende?

Hoi Popipipo
Dat lukt helaas niet :-( althans bij mij niet... Cellen blijven wit

Zo ziet het er bij mij uit.

Zet de gegevens in een echte tabel. Geen omkijken meer naar het bereik.

Hoi Popipipo

Het is gelukt ;-) Thx!
Nu trachten om het in een macro te zetten. De Macro die ik momenteel heb doet het volgende:
Sub Macro3()
'
' Macro3 Macro
'

'
Rows("2:500").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Rows("2:2").Select
ActiveSheet.Paste
Columns("A:T").Select
Columns("A:T").EntireColumn.AutoFit
Range("A,H:H,K:K,M:M,O:O").Select
Range("O1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A2:L2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$L$65").AutoFilter Field:=9, Criteria1:= _
"Niet Factureren"
Rows("3:500").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$2:$L$23").AutoFilter Field:=9
ActiveSheet.Range("$A$2:$L$23").AutoFilter Field:=11, Criteria1:="0"
Rows("6:500").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$2:$L$20").AutoFilter Field:=11
Columns("K:L").Select
Selection.NumberFormat = "$ #,##0.00"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=SUM(C[-2])"
Range("N2").Select
With Selection.Font
.Name = "Calibri"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-18
Range("N1").Select
ActiveCell.FormulaR1C1 = "Totaal te factureren:"
Range("M1").Select
Selection.Font.Bold = True
ActiveCell.FormulaR1C1 = "Subtotalen:"
Range("M1").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Windows("Voorwaardelijke opmaak_2.xlsx").Activate
Windows("Pro-Forma GB.xlsm").Activate
Range("L3").Select
Sheets("Template GB").Select
ActiveWindow.SmallScroll Down:=-486
Rows("3:500").Select
Selection.ClearContents
Range("A3").Select
End Sub

Ik plak eerste data in mijn template
daarna kopieer ik die data naar een nieuw tabblad. Dit tabblad krijgt uiteindelijk de naam van de betreffende week. (Weet niet of dit kan opgenomen worden in de macro?)
Vervolgens delete ik een aantal kolommen, omdat de klant weinig waarde heeft aan die kolommen.
Zet een filter op mijn hoofding en filter er een aantal rijen uit, en zet de laatste 2 kolommen in valuta.
Hier zijn er een aantal rijen waarvan de waarde op 0 blijft staan, deze zou ik graag in het rood willen... Maar aangezien het telkens een nieuw tabblad wordt (bij elke nieuwe week, nieuwe data), doet die voorwaardelijke opmaak het niet...

Thx alleszins voor je hulp!

Glenn

Gebruik de Tag Code zie https://www.helpmij.nl/forum/announcement.php?f=5
En plaats eens een goed gelijkend voorbeeldbestand (zonder privacy gegevens.).

Hoi AD 1957
Ik ben niet goed thuis in die Tag codes, maar ik zal mijn best doen.
Heb je liever dat ik een nieuwe vraag lanceer dan? Zodat het makkelijker is voor andere gebruikers? En kwestie van 2 verschillende zaken niet door elkaar te halen?

Voor het gebruik van de code Tags.


Je kunt gewoon in deze Topic verdergaan, en vergeet niet een goed gelijkend voorbeeldbestand te plaatsen.