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

Status
Niet open voor verdere reacties.

jvmiert

Gebruiker
Lid geworden
22 okt 2009
Berichten
10
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?

Code:
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

Code:
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
 
Laatst bewerkt door een moderator:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan