Hoe willekeurige cellen in VBA selecteren voor het in kleur veranderen bij printen.

[jvmiert]

Ik heb een invul formulier gemaakt waarin ik de in te vullen cellen een bepaalde kleur heb gegeven.
Ik heb in deze cellen ook een voorwaardelijke opmaak in gemaakt, zodat deze blanco worden als er tekst in staat.
Het is zo dat ik niet dat ik altijd alle cellen hoef in te vullen, deze blijven dus gekleurd, als ik wil printen wil ik dat de
on-ingevulde cellen toch blank worden.
Ik heb een code maar die werkt maar op één cel. Hoe kan ik in deze code meerdere willekeurige cellen bijvoegen?

Weet iemand voor mij oplossing?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Range("A1")   [COLOR="#FF0000"]Ik wil hier meerdere cellen toevoegen, bijvoorbeeld B5, G9, K24. [/COLOR]
.Interior.ColorIndex = 0 'transparant
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Range("A1") [COLOR="#FF0000"]En hier ook natuurlijk.[/COLOR]
.Interior.ColorIndex = 42 'blauw
End With
End Sub

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie. Tevens dient code tussen codetags geplaatst te worden voor uitleg zie hier http://www.helpmij.nl/forum/showthread.php/321171-Lees-dit-eerst-voor-je-een-vraag-plaatst