cor.de.kruijf
Gebruiker
- Lid geworden
- 5 mrt 2001
- Berichten
- 233
Ik heb in een sheet controleregels staan welke middels vba uitgevoerd worden.
de bewuste code is:
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
de bewuste code is:
Code:
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
Bijlagen
Laatst bewerkt door een moderator: