Aanpassen interiorcolor

[KeBr]

Ik heb een deel van een WBS macro hieronder gezet. Nu zou graag zien dat naast het lettertype ook de rij opgemaakt wordt. dit met dezelfde argumenten. Wel moet de hele rij, die dynamisch is, worden opgemaakt. in de laatste kolom staat normaal niets m.u.v. van rij 6 en rij 7 daar staat altijd iets.
opmaak bij laatste deel moet RGB 217,217,217 zijn. bij ander RGB 191,191,191

  'Populate target cell with WBS number
                Cells(r, 1).Value = wbs

                'Get rid of annoying "number stored as text" error
                Cells(r, 1).Errors(xlNumberAsText).Ignore = True

                'Apply text format: next row is deeper than current
                If Cells(r + 1, 2).IndentLevel > Cells(r, 2).IndentLevel Then

                    Cells(r, 1).Font.Bold = True
                    Cells(r, 2).Font.Bold = True
                    Cells(r, 3).Font.Bold = True
                    Cells(r, 4).Font.Bold = True
                    Cells(r, 7).Font.Bold = True
                'Else (next row is same/shallower than current) no format
                Else
                    Cells(r, 1).Font.Bold = False
                    Cells(r, 2).Font.Bold = False
                    Cells(r, 3).Font.Bold = False
                    Cells(r, 4).Font.Bold = False
                    Cells(r, 7).Font.Bold = False
                End If
                'Special formatting for master (whole number) tasks)
                If Cells(r, 2).IndentLevel = 0 Then
                    Cells(r, 1).Font.Bold = True
                    Cells(r, 2).Font.Bold = True
                    Cells(r, 3).Font.Bold = True
                    Cells(r, 4).Font.Bold = True
                    Cells(r, 7).Font.Bold = True
                    'Add whatever other formatting you want here

                End If

 

[Bram65]

dit al geprobeerd?
Cells(r, x).Interior.Color = RGB(191, 191, 191)

 

[KeBr]

Bedankt voor de reactie. Dit geeft echter totaal geen resultaat.

 

[KeBr]

Ik heb nu ook onderstaande geprobeerd. dat werkt ook niet

ActiveSheet.Range(r, x).End(xlToLeft).Interior.Color = RGB(191, 191, 191)

ook met xlToRight werkt het niet

 

[AHulpje]

Plaats een (uitgekleed) voorbeelddocument en je wordt gegarandeerd geholpen.
Nu is het gokken.

 

[HSV]

Cells(r, x).End(xlToLeft).Interior.Color = RGB(191, 191, 191)

 

[AHulpje]

@HSV
Scherpe ogen!

 

[KeBr]

Helaas werkt dit ook niet. in de bijlage een erg uitgeklede versie van het document. In sheet8 (Projectplanning) staat de WBS macro. Ik laat hem nu module 2 aanroepen. hiermee worden wel de regels op juist wijze gekleurd, echter maar tot en met kolom H. Dit moet over de hele regel ook als er geen informatie in staat.
Ander punt is dat de opmaak niet weggaat als de WBS nummering veranderd. Graag zou ik willen dat dit in de WBS macro wordt toegevoegd.

 

[AHulpje]

Moeten de rijen t/m de laatste datum worden gekleurd? Dat botst wel een beetje met de vele voorwaardelijke opmaakregels.
Bedoel je met opmaak de achtergrondkleur of ook lettertype Bold?
En omdat je On Error Resume Next gebruikt valt het niet op dat x geen waarde heeft gekregen:

Cells(r, x).End(xlToLeft).Interior.Color = RGB(191, 191, 191)

zou anders een foutmelding hebben opgeleverd.

 

[edmoor]

Het is nooit een goed idee om een Sub of Function te beginnen met On Error Resume Next.
Het lijkt soms wel of men denkt dat dat op mysterieuze wijze eventuele fouten verhelpt.