Specifieke cellen kleuren per rij

[fabnab]

Goedemiddag,

Ik ben een actielijst aan het maken waarin staat wanneer een bepaalde actie nu moet gebeuren. In het voorbeeld is per maand een actielijst. Elke maand staat op een ander tabblad. Nu wil ik zeer gemakkelijk elke cel per week per actie opvullen met kleur. De kleur geeft namelijk aan op die actie nu wel of niet gedaan moet worden. In het voorbeeld staat nu alleen een macro die het per week inkleurt, maar ik wil ook per maand en per half jaar.
Nu lijkt dit allemaal een beetje overbodig voor zo'n kleine actielijst, maar er komen nog veel meer acties bij en als je die allemaal moet inkleuren dan is dat ook weer zo'n gedoe.

Wat nu niet lukt is om het per week in te kleuren per actie. Dus dat hij per rij voor elke week bij elke sheet alles opvult. De macro die ik nu heb kleurt alleen de cellen in die zijn aangeklikt.

Wat ik wil is dat wanneer ik op een bepaalde rij/actie ga staan, dat hij van die rij/actie voor elke week op elk tabblad de cellen inkleurt.
In de bijlage staat het Excel bestand wat ik tot nu toe heb.

Alvast bedankt,

Groetjes,
fabnab

 

[Haije]

fabnab,

welkom op Helpmij.nl.

Het is mij op basis van je omschrijving niet duidelijk wat er wel en wat er niet een kleurtje moet krijgen.
Kin je dat in een nieuwe bijlage aangeven?

 

[paul1950]

Sub ColourWeek2()
'
' ColourWeek Macro
' Kleurt elke weeksectie.
'

'
Sheets(Array("Maand1", "Maand2", "Maand3", "Maand4", "Maand5")).Select
Sheets("Maand1").Activate
Range("B6:E6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Maand1").Select
End Sub


zoiets?

 

[Cobbe]

Bij deze kan je op een rij gaan staan binnen je tabel en druk de macroknop, dan wordt op elk blad in je werkboek dezelfde rij gekleurd:

Sub ColourWeek()
' ColourWeek Macro
' Kleurt elke weeksectie.
If Selection.Count = 1 And Not Intersect(ActiveCell, Range("A3:E26")) Is Nothing Then
For Each sh In ThisWorkbook.Sheets
  With sh
    With .Range("A" & Selection.Row & ":E" & Selection.Row)
        .Interior.ColorIndex = 6
    End With
 End With
Next
End If
End Sub