[Kleurenschalen] Snel voor meerdere regels instellen per regel

[remcop1989]

Zie bijlage voor een voorbeeld

Het werkelijke Excel-document bestaat uit enkele honderden regels.

Iedere regel bevat 1 klant en per kolom zijn omzet voor een specifiek jaar.

Ik zou graag zien dat middels de kleurenschalen in Excel per regel toegepast worden. Zo kan ik zien welk jaar het laagste bedrag is omgezet voor die klant en welk jaar het hoogste. Nogmaals, dit wil ik dan per klant kunnen zien.

Ik weet hoe dit per regel moet, maar om dit voor honderden regels te gaan doen, dat duurt natuurlijk eeuwig.

Hoe kan ik dit automatisch en snel door Excel laten doen?

Alvast bedankt voor de moeite en geïnvesteerde tijd.

 

[Niels28]

met een macro, is een aangepaste opgenomen macro

Sub VW_opmaak()
Application.ScreenUpdating = False
j = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To j
With Cells(i, 2).Resize(1, 4)
    .FormatConditions.Delete
    .FormatConditions.AddColorScale ColorScaleType:=3
  .FormatConditions(.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With .FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
    End With
    .FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
    .FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With .FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
    End With
    .FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With .FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
    End With
End With
 Next
End Sub

Niels

 

[remcop1989]

Ik heb het even geprobeerd op het uiteindelijke bestand, maar ik heb te weinig informatie verschaft zie ik nu.

Het originele bestand staat in een draaitabel.
De kolommen met omzetbedragen zijn de kolommen C, D, E en F. Kolom G bevat totalen,
deze kolom moet NIET meegenomen worden in het kleuren.
De eerste klant met zijn omzetbedragen staat in rij 8.

Ik heb het even geprobeerd met volgende code, maar die werkt niet.

Sub VW_opmaak()
Application.ScreenUpdating = False
j = Cells(Rows.Count, 2).End(xlUp).Row
For i = 8 To j
With Cells(i, 3).Resize(1, 4)
    .FormatConditions.Delete
    .FormatConditions.AddColorScale ColorScaleType:=3
  .FormatConditions(.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With .FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
    End With
    .FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
    .FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With .FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
    End With
    .FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With .FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
    End With
End With
 Next
End Sub

Wat doe ik fout?

 

[Niels28]

In mijn voorbeeld werk jouw macro, wat ik heb verandert is:

j = Cells(Rows.Count, [COLOR="#FF0000"]3[/COLOR]).End(xlUp).Row

Bekijk bijlage vwopmaak.xlsm

Niels

 

[remcop1989]

Ja, dat werkt. Dank je!

Wat doet de regel die jij hebt aangepast?

 

[VenA]

Schuift een kolom op.:d

Onlangs heb ik nog iets gemaakt/gezien/aangepast waarmee VO ook werkt in een draaitabel. Dan heb je geen code nodig. Maar kan het even niet vinden. Kom ik misschien nog op terug:d

Edit, Even het orginele bestandje bekeken en volgens mij kan het gewoon met VO.

 

[remcop1989]

Oké, ik zet deze in ieder geval op opgelost.

Stuur me maar een Persoonlijk Bericht als je hem nog vind.

 

[VenA]

Waar mag ik het naar toe sturen? #6 heb ik aangepast met een voorbeeldje.

 

[VenA]

Is #6 niet afdoende? PB's zijn alleen voor forumleden? Ik kan je wel mailen maar lijkt mij niet echt nodig.

 

[remcop1989]

Welke #6?

 

[VenA]

Even rechts in het scherm kijken. Elke post krijgt een nummer mee. Dit is dus #11

 

[Niels28]

@VenA

Jouw voorbeeld is niet wat TS vraagt, als je een waarde van bv in regel 10 op 1,2,3,4 zet dan is die hele regel rood en dat was volgens mij niet de bedoeling.

Niels

 

[VenA]

Heb je gelijk in. Volgens mij kan je dit wel aanpassen door een beetje te spelen met de instellingen. Je kan ook vier losse regels in de VO zetten waarin je de kleur vast zet.