Kleinste waarde kleuren

[radio]

Hoe moet je de kleinste waar uit een rij kleuren naar het zelfde kleur van de kop kolom.
Een nul waarde wordt niet mee gerekend.

 

[danny147]

Beste radio

Zie bestandje

Heb iets geprobeerd maar men moet telkens de cel in G2 steeds Enteren.
Heb ook Range ("G2").Calculate gedaan maar tevergeefs.

Misschien heeft iemand anders wel een oplossing voor dit probleempje.

Groetjes Danny. :thumb:

 

[HSV]

Zoiets?

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If [g2] > 0 Then
        Set c = Range("B1:E1").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then [g2].Interior.ColorIndex = c.Interior.ColorIndex
       End If
    Range("B2:E2").Interior.ColorIndex = None
    Application.ScreenUpdating = True
End Sub

Edit: werkt niet echt goed als je de waarden weer ophoogt.

 

[radio]

Danny & Harry alvast bedankt voor jullie reactie,
Het is de bedoeling dat er meerdere rijen zijn en dat de kleinste waarde van elke rij het kleur krijgt van de kop kolom.
De bedoeling van G2 was de formule van de kleinste waarde uit te testen.

 

[HSV]

Zoiets bedoel je?
Alleen voorwaardelijke opmaak gebruikt.

 

[danny147]

Beste radio

Zie dit bestandje.
Het bestandje van HSV loopt bij mij niet zoals het zou moeten

Groetjes Danny. :thumb:

 

[HSV]

Beste radio

Zie dit bestandje.
Het bestandje van HSV loopt bij mij niet zoals het zou moeten

Groetjes Danny. :thumb:

Het is de bedoeling dat er meerdere rijen zijn en dat de kleinste waarde van elke rij het kleur krijgt van de kop kolom.

 

[radio]

Danny,
Je bent er bijna.
Het is de bedoeling dat per rij van B2 tot en met E2 de kleinste waarde de kleur krijgt. En zo opnieuw van B3 tot en met E3 enz.

Gr

 

[ppms]

Hallo,

Bedoel je dit soms, zie bijlage.

Groet PPMS

 

[danny147]

Beste radio

Nog maar eens een poging gedaan

Zie bestandje.

In rij 1 staat bij de kleuren de ColorIndex nummer.
Kolom F en G zijn hulpkolommen.

Groetjes Danny. :thumb:

 

[danny147]

Beste radio

Hier dan zonder code enkel met formule.

Groetjes Danny. :thumb:

 

[HSV]

Zonder hulpkolom.
Als de nul niet telt.

 

[radio]

Ok dat is het :thumb:

Nog een vraagje hoe kan je nu nog een kolom of meerdere bij maken en het kleur aanpassen.

 

[ClickandKnow]

Ctrl + C op een bestaande kolom
Ctrl + V op een nieuwe kolom en de voorwaardelijke opmaak aanpassen voor een andere kleur

 

[HSV]

Ctrl + C op een bestaande kolom
Ctrl + V op een nieuwe kolom en de voorwaardelijke opmaak aanpassen voor een andere kleur

Alsook de formule in de Vw opmaak.

 

[radio]

Ok guys thx :thumb:

 

[HSV]

Ok guys thx :thumb:

Dan gelieve de vraag als opgelost te zetten.
Bvd.