Macro die dubbele waarden een rode celkleur geeft

Status
Niet open voor verdere reacties.
N

NPersijn

Gebruiker
Lid geworden
27 jul 2018
Berichten
56
Beste,

Ik ben bezig op een personeelsweekplanning te maken.
Hierbij zou ik graag willen dat wanneer een naam dubbel op een dag voorkomt beide een rode celkleur krijgen.
Dit zou met voorwaardelijke opmaak kunnen doen, echter wanneer er een H of F dubbel of vaker in diverse cellen staan op de zelfde dag blijft de kleur wit.
Hoe kan ik dit bewerkstelligen.

Het voorbeeldfile heb ik toegevoegd.
Vast bedankt

Met vriendelijke groet,

Bekijk bijlage 328077
 
Deze code zal de namen rood kleuren (niet de cellen omdat je al met blauwe cellen werk). Als je bijvoorbeeld Barbara kiest, zal de cel blauw kleuren. Kies je tweemaal Barbara heb je twee blauwe cellen maar de naam Barabra zal rood kleuren.
Code herhalen voor iedere dag (met de juiste range) en de VO regels dubbele waarden verwijderen.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myDataRng As Range, cell As Range
    Set myDataRng = Range("C9:H50")
     For Each cell In myDataRng
        cell.Font.Color = vbBlack
        If Application.Evaluate("COUNTIF(" & myDataRng.Address & "," & cell.Address & ")") > 1 Then cell.Font.Color = vbRed
     Next cell
     Set myDataRng = Nothing
End Sub
 
gast0660 zei:
Deze code zal de namen rood kleuren (niet de cellen omdat je al met blauwe cellen werk). Als je bijvoorbeeld Barbara kiest, zal de cel blauw kleuren. Kies je tweemaal Barbara heb je twee blauwe cellen maar de naam Barabra zal rood kleuren.
Code herhalen voor iedere dag (met de juiste range) en de VO regels dubbele waarden verwijderen.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myDataRng As Range, cell As Range
    Set myDataRng = Range("C9:H50")
     For Each cell In myDataRng
        cell.Font.Color = vbBlack
        If Application.Evaluate("COUNTIF(" & myDataRng.Address & "," & cell.Address & ")") > 1 Then cell.Font.Color = vbRed
     Next cell
     Set myDataRng = Nothing
End Sub
Klik om te vergroten...

Hoi,

Bedankt voor je reactie.
Een deel van mijn probleem is opgelost.
Wanneer ik de F of H selecteer wordt deze ook rood.
Dit is niet de bedoeling.
Heb je een idee hoe ik dat kan oplossen?

Met vriendelijke groet.
 
probeer dit eens:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myDataRng As Range, cell As Range
    Set myDataRng = Range("C9:H50")
     For Each cell In myDataRng
        cell.Font.Color = vbBlack
        If cell.Value <> "F" And cell.Value <> "H" Then
            If Application.Evaluate("COUNTIF(" & myDataRng.Address & "," & cell.Address & ")") > 1 Then cell.Font.Color = vbRed
        End If
     Next cell
     Set myDataRng = Nothing
End Sub
 
Voorwaardelijke opmaak:
Code: 
=EN(C9<>"F ";C9<>"H";AANTAL.ALS($C$9:$H$50;C9)>1)

Doordat er ook een spatie in je validatielijst achter de "F" staat heb ik het ook in de formule toegepast. ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan