Kolommen inkleuren met VBA

[HWV]

Beste,

Met onderstaande code probeer ik verschillende kolommen een kleur mee te geven
Nu geef hij enkel de eerste twee en de laatste een kleur geel.

Hoe kan ik er voor zorgen dat ik de geselecteerde kolommen toch allemaal geel gekleurd krijg

Sub Opmaaktest()
    Range("C5:C" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("E5:E" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("G5:G" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("I5:I" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("K5:K" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("E5:M" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("O5:O" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("Q5:Q" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("S5:S" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("U5:U" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("W5:W" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
    Range("Y5:Y" & Cells(Rows.count, 1).End(xlUp).Offset(-1).Row).Select
           
    With Selection.Interior
        .ColorIndex = 19
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    
End Sub

Groet HWV

 

[zapatr]

Je macro geeft bij mij al vanaf de eerste regel een foutmelding.
Omschrijf eens in gewone bewoordingen welk gedeelte van de kolommen je wil kleuren.

 

[trucker10]

Waarom met VBA ? je kan dit met een voorwaardelijke opmaak " niet lege cellen " en dan je range bepalen .

 

[Warme bakkertje]

Sub Opmaaktest()
For i = 67 To 89 Step 2
With Range(Chr(i) & "5:" & Chr(i) & Cells(Rows.Count, 1) _
            .End(xlUp).Offset(-1).Row).Interior
    .ColorIndex = 19
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
 End With
 Next
End Sub

Je macro geeft bij mij al vanaf de eerste regel een foutmelding.

Normaal als je de code probeert uit te voeren met een lege kolom A, aangezien deze minstens 2 gevulde cellen moet bevatten om geen foutmelding te krijgen op End(xlUp).Offset(-1)

 

[zapatr]

Normaal als je de code probeert uit te voeren met een lege kolom A, aangezien deze minstens 2 gevulde cellen moet bevatten om geen foutmelding te krijgen op End(xlUp).Offset(-1)

Dat is mij bekend, en niet de reden van de foutmelding in mijn bestand.
Jouw code geeft dezelfde foutmelding, nl.: "door de toepassing of object gedefinieerde fout".

HWV:
je gebruikt in je code o.a. Range("E5:M".....
dat zal Range("M5:M"..... moeten zijn denk ik.

 

[Warme bakkertje]

Dan zal de fout wel ergens bij jou liggen want dit werkt perfect

 

[HWV]

Beste,

Bedankt voor alle reactie`s.
@trucker10
Mijn lijst is helemaal dynamisch, dus weet niet van te voren welk cellen gevuld moeten worden

@zapatr
In mijn code stond inderdaad een fout maar naar correctie werkte deze nog steeds niet.

@Warme bakkertje
Jou suggestie werkt, en doet wat hij moet doen.
Ik zal deze gaan toepassen.

Allemaal bedankt voor de inzet.

Groet HWV