VBA script
1. I have this formular written with VBA as follows, it is working
fine. Where the string "key is zero", however, I would like to replace
it with the next formular. That would say, if the condition is true,
format the range with this color.
Range("B17:D17").Select
ActiveCell.FormulaR1C1 =
"=IF(COUNTA(RC[4]:RC[10])<0,IF(RC[3]=0,""key is
zero"",""""),IF(RC[3]<0,""data is zero"",""""))"
Formular replacing the above string "key is zero",
Range("B17:D17").Select
With Selection.Interior.ColorIndex = 6
.Pattern = xlSolid
End With
2. I want to do the above for rows from 17 to 200.
Thanks for your input.
Faye
|