Hallo,
Met onderstaande code worden alleen de cellen met dubbel voorkomende getallen in kolom A rood gemaakt.
Deze cellen met de bijbehoren rijen dienen apart bewerkt te worden.
Echter zodra nadat de juiste cellen rood zijn gemaakt en de code verder gaat hebben de rood gekleurde cellen weer hun standaard opmaak.
Met als gevolg dat de unieke cellen ook worden meegenomen in de berekening, wat niet de bedoeling is.
Hoe zorg ik er voor dat de cellen rood blijven?
Frans
Met onderstaande code worden alleen de cellen met dubbel voorkomende getallen in kolom A rood gemaakt.
Deze cellen met de bijbehoren rijen dienen apart bewerkt te worden.
Echter zodra nadat de juiste cellen rood zijn gemaakt en de code verder gaat hebben de rood gekleurde cellen weer hun standaard opmaak.
Met als gevolg dat de unieke cellen ook worden meegenomen in de berekening, wat niet de bedoeling is.
Hoe zorg ik er voor dat de cellen rood blijven?
Frans
Code:
Columns("A:A").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
[SIZE=4] ''Hier zijn de juiste dubbele voorkomende cellen in kolom A rood gekleurd.[/SIZE]
.Range("A:M").RemoveDuplicates Columns:=Array(1, 13), Header:=xlNo
[SIZE=4]''Hier hebben de cellen al weer hun standaard kleur,
''met als gevolg dat zowel de dubbele als unieke cellen worden meegenomen in de berekening.[/SIZE]
.Cells(1, 14) = WorksheetFunction.CountIf(.Columns("M"), .Cells(1, 13))
rijen = .Cells(Rows.Count, 1).End(xlUp).Row
For rij = 2 To rijen
Etc, etc.