voorwaardelijke opmaak lijn per lijn in draaitabel

[Spiesse]

Beste forumleden,

in bijgevoegd bestand heb ik een jaaroverzicht gemaakt van onze stock.

Nu zou ik in de draaitabel (lijn per lijn) een voorwaardelijke opmaak dmv de 3-kleurenschaal willen gebruiken.

Voor de ganse draaitabel dit doen lukt me, maar niet lijn per lijn... Ik vermoed dat het een easy one is maar hij ontgaat me momenteel...

Thx in advance om dit te bekijken!!!

Groeten,
SpiesseBekijk bijlage AAA.xlsx

 

[MarcelBeug]

Bekijk bijlage AAA MB.xlsm
Zie bijlage.
Ik heb een macro opgenomen tijdens 1 lijn van voorwaardelijke opmaak te voorzien.
Daaromheen heb ik een Loop toegevoegd en wat finishing touches, waaronder het verwijderen van de VO van de gehele draaitabel aan het begin, voordat nieuwe regels aangemaakt worden.

Dit is welgeteld mijn tweede bijdrage met VBA, dus er zal vast nog wel wat op aan te merken zijn

 

[HSV]

Niet slecht voor een tweede code Marcel. :thumb:

Geen kritiek, maar een beetje opgepimpt (zonder select, zonder te weten waar de pivottable zich bevindt bv. rijen/kolommen invoegen).

Sub Kleurregels()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("AAA").PivotTables(1).DataBodyRange
   .FormatConditions.Delete
 For i = 1 To .Rows.Count - 1
   With .Rows(i).Resize(, 3)
        .FormatConditions.AddColorScale ColorScaleType:=3
        With .FormatConditions(1)
           .ColorScaleCriteria(1).Type = xlConditionValueLowestValue
           .ColorScaleCriteria(1).FormatColor.Color = 7039480
        
           .ColorScaleCriteria(2).Type = xlConditionValuePercentile
           .ColorScaleCriteria(2).Value = 50
           .ColorScaleCriteria(2).FormatColor.Color = 8711167
       
           .ColorScaleCriteria(3).Type = xlConditionValueHighestValue
           .ColorScaleCriteria(3).FormatColor.Color = 8109667
         End With
      End With
    Next i
 End With
End Sub

 

[MarcelBeug]

Dank je Harry, zo leer ik weer wat bij.

Maarre ... moet die ScreenUpdating niet weer aangezet worden?

 

[HSV]

De screenupdating weer op True te zetten is echt overbodig na een test.
Bij een tweede keer de code laten lopen zonder de screenupdating op False te zetten flikkert het beeld weer.
Conclusie: ....behoeft niet op True aan het einde van de code.
Dit is wel de enige van alle applicaties wat je op False zet die niet op True hoeft.

 

[Spiesse]

goedemorgen heren,

bedankt voor de tips. Ik bekijk dit vandaag in het bestand waarmee ik aan de slag moet
Maar jullie kennende zal het wel perfectamanto zijn

Ik laat nog iets weten!

Groeten,
Spiesse

 

[Spiesse]

Fantastisch! Jullie verdienen opslag

Ik zet deze op opgelost.

Thx!!
Spiesse