ZEER voorwaardelijke opmaak

[cor.de.kruijf]

Ik heb in een sheet controleregels staan welke middels vba uitgevoerd worden.
de bewuste code is:

Range("Q4").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ALS(EN(Q4=""R"";P4=""N"");1;0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.Copy
    Range("Q7,Q10,Q13,Q16,Q19,Q22,Q25,Q28,Q31,Q34,Q37,Q40,Q43,Q46,Q49,Q52,Q55,Q58,Q61,Q64").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=True, Transpose:=False

Hierbij wordt voorwaardelijke opmaak gekopieerd en dat werkt eigenlijk prima, op 1 kleinigheidje na wat ik niet opgelost krijg.
In bijgevoegde map1.xls word weliswaar de code niet gebruikt maar het illustreerd wel wat mijn probleem is.
Ik heb nl alleen de achtergrondkleur nodig, de kaders moeten wegblijven.

Iemand een idee hoe ik dat oplos?

met vriendelijke groet,
Cor

 

[sylvester-ponte]

hoi

dit werkt zonder kaders

Sub testOpmaak()
    Range("Q4,Q7,Q10,Q13,Q16,Q19,Q22,Q25,Q28,Q31,Q34,Q37,Q40,Q43,Q46,Q49,Q52,Q55,Q58,Q61,Q64").Select
    Selection.Interior.ColorIndex = 6
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ALS(EN(Q4=""R"";P4=""N"");1;0)"
    With Selection.FormatConditions(1).Interior
        .Color = 255
    End With
End Sub

groet sylvester

 

[cor.de.kruijf]

Bedankt voor je reactie Sylvester,
helaas is dit niet de oplossing. Hiermee wordt de opmaak van de bestaande cellen verwijderd en de voorwaardelijke opmaak in de onderste cel geplakt, weliswaar zonder kaders.
De voorwaardelijke opmaak moet gecopieerd worden zonder de kaders, alleen de kleur dus.
Ik kan dat niet per cel instellen omdat de sheet gegenereerd wordt en de controle achteraf gebeurt.

met vriendelijke groet,
Cor

 

[sylvester-ponte]

en als je dat regeltje met delete weg haalt?
zo dus:

Sub testOpmaak()
    Range("Q4,Q7,Q10,Q13,Q16,Q19,Q22,Q25,Q28,Q31,Q34,Q37,Q40,Q43,Q46,Q49,Q52,Q55,Q58,Q61,Q64").Select
    Selection.Interior.ColorIndex = 6
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ALS(EN(Q4=""R"";P4=""N"");1;0)"
    With Selection.FormatConditions(1).Interior
        .Color = 255
    End With
End Sub

groet