hopeloos op zoek achter de formule

[triny]

Beste vrienden,

U hebt een cel met een waarde in (bijvoorbeeld "2")

Welke formule is van toepassing om ook alle andere cellen op het excelblad met dezelfde waarde automatisch dezelfde kleur krijgen aub?

Ik hoor het graag.

Oprechte dank,


Triny

 

[jverkerk]

Zo misschien?

 

[triny]

hallo,
Ik bedoel als ik in Uw geval B2 een kleurtje geef gaan c6 en d6 automatisch ook in het groen komen

 

[peter59]

Dat was u vraag toch?

 

[jverkerk]

Ik weet niet wat je bedoeld maar als je ergens een 2 zet of een 2 weg haalt dan zie je wat er gebeurt.

 

[peter59]

U hebt een cel met een waarde in (bijvoorbeeld "2")

Of? Wat bedoelt u hier mee?

 

[roeljongman]

Probeer het eens door in het bestand van jverkerk de voorwaardelijke opmaak formule aan te passen naar.

=B2=$B$2

dan zal elke cel groen worden die dezelfde waarde heeft als cel B2


edit: bestandje alsnog toegevoegd

 

[triny]

het gehele blad is ongekleurd.

als ik bijvoorbeeld een cel selecteer waar bijvoorbeeld 2 in staat en groen kleur gaan automatisch alle andere cellen waar ook een 2 in staat groen kleuren.

 

[jverkerk]

Ben geen deskundige, maar zo ongeveer?
Wel na het downloaden bij blokkering opheffen een vinkje zetten.

 

[triny]

Ben geen deskundige, maar zo ongeveer?

jaaaaaa dat bedoel ik en hoe moet die opmaak (zoals in uw voorbeeldje) aub?

 

[jverkerk]

Dat is vba.
druk op Alt + F11 om de VBA-editor te openen voor wijzigingen.

 

[triny]

Dat is vba.
druk op Alt + F11 om de VBA-editor te openen voor wijzigingen.

en hoe slaag ik erin om 2, 5 en 8 groen te houden want als ik overschakel van 2 naar 5 gaat de eerste celkleur terug weg.

end if
next cel is niet van toepassing

 

[Warme bakkertje]

Een lege cel selecteren wist alle kleuren. Anders gelijke waarden kleuren voor alle geselecteerde waarden.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cel As Range, _
        waarde As Variant
    
    ' Bij het selecteren van een lege cel alle kleuren wissen wissen
    If Target.Value = vbNullString Then Cells.Interior.ColorIndex = xlNone
    
    ' instellen van de te zoeken waarde
    waarde = Target.Value

    ' Alleen kleuren als de geselecteerde cel dezelfde waarde bevat
    If Target.Value <> vbNullString Then
        For Each cel In Me.UsedRange
            If cel.Value = waarde Then
                cel.Interior.Color = RGB(144, 238, 144) ' Lichtgroen
            End If
        Next cel
    End If
End Sub

 

[emields]

en ik ben hopeloos op zoek naar een voorbeeldbestandje.

 

[jverkerk]

Verschillende kleuren.