Conditional Formatting & VBA Code

Originally Posted by Sharp

Hi,

I am currently using "Private Sub WorkBOOK_BeforeSave" code to ensure that if certain cells are not filled in then the file will not save.

Does anyone know any code that will allow me to stop the file from saving if CONDITIONAL FORMATTING is active in a cell or if a cell turns red through conditional formatting to stop it saving???

thanks in advance

Hi,

why not just test the condition that would cause the Format to display Red?

---

Originally Posted by Sharp

Oh...

the problem with that is the cell may turn red, depending on the data in a number of other cells. Sometimes it may be ok to be empty and other times it may not.

For example;

If cell 'A1' is YES then 'B1' needs to have a number in it and conditional formatting will turn 'B1' red until a number is empty.

If cell 'A1' is NO then 'B1' doesn't need to have a number in it and conditional formatting will not activate and the cell can be left empty

Hi,

so whatever code is in the Conditional Format formula for 'Red' needs to be used in your 'before_close' routine, where something like If UCase(Cells(1,1).value) = "YES" And Cells(1,2).value <> "" then should go close.

hth
---