Conditional Formatting - Losing Values

  • Thread starter Thread starter Dana
  • Start date Start date
D

Dana

MS Excel 2007
I set up conditional formatting looking for certain values. The formatting
works as expected; when I save, close, then re-open the worksheet, the values
disappear. Any ideas as to what is causing this problem?
 
Gord,
Disappear from CF Parameters - Specifically "Format all cells based on their
values", Format Style "Icon Sets", Icon Style "3 traffic lights - unrimmed"
and "when value is" ... the values I place in the dialog boxes "when value
is" are lost when I apply, save, exit, and re-open.
 
I have having the same problem, it is very weird. Please let me know
if someone fixes this.
 
I figured it out after a ton of digging in forums. Turns out that
there is some sort of CSS style sheet that is causing the problem.
Copy and paste the below code into your "this worksheet" section of
VBA code for excel (F12 shortcut key to open code view). After
pasting the code, run the macro, save the file, close, re-open, ensure
that your changes are still there, remove the code, and you should be
good to go from now on...

Copy and Paste from here:


Sub RebuildDefaultStyles()

'The purpose of this macro is to remove all styles in the active
'workbook and rebuild the default styles.
'It rebuilds the default styles by merging them from a new workbook.

'Dimension variables.
Dim MyBook As Workbook
Dim tempBook As Workbook
Dim CurStyle As Style

'Set MyBook to the active workbook.
Set MyBook = ActiveWorkbook
On Error Resume Next
'Delete all the styles in the workbook.
For Each CurStyle In MyBook.Styles
'If CurStyle.Name <> "Normal" Then CurStyle.Delete
Select Case CurStyle.Name
Case "20% - Accent1", "20% - Accent2", _
"20% - Accent3", "20% - Accent4", "20% - Accent5", "20%
- Accent6", _
"40% - Accent1", "40% - Accent2", "40% - Accent3", "40%
- Accent4", _
"40% - Accent5", "40% - Accent6", "60% - Accent1", "60%
- Accent2", _
"60% - Accent3", "60% - Accent4", "60% - Accent5", "60%
- Accent6", _
"Accent1", "Accent2", "Accent3", "Accent4", "Accent5",
"Accent6", _
"Bad", "Calculation", "Check Cell", "Comma", "Comma
[0]", "Currency", _
"Currency [0]", "Explanatory Text", "Good", "Heading
1", "Heading 2", _
"Heading 3", "Heading 4", "Input", "Linked Cell",
"Neutral", "Normal", _
"Note", "Output", "Percent", "Title", "Total", "Warning
Text"
'Do nothing, these are the default styles
Case Else
CurStyle.Delete
End Select

Next CurStyle

'Open a new workbook.
Set tempBook = Workbooks.Add

'Disable alerts so you may merge changes to the Normal style
'from the new workbook.
Application.DisplayAlerts = False

'Merge styles from the new workbook into the existing workbook.
MyBook.Styles.Merge Workbook:=tempBook

'Enable alerts.
Application.DisplayAlerts = True

'Close the new workbook.
tempBook.Close

End Sub
 
Hi KFitz

Could you please let me know what this code is exactly doing?? I am
facing more or less the same issue and run your code but looks like
the problem is not resolved..

your help on this would be highly appreciated.

Thanks!!
Milind
 
You are replying to a post that is a month old.

Please post the contents of the original post including the code that did
not work.


Gord Dibben MS Excel MVP
 
Back
Top