Check for the existence of conditional formatting
I have a mixture of 2003 / 2007 workbooks, and want to check for the
existence of condionally formatted cells using VBA, something like ..... For each cell in used.range.cells |
Check for the existence of conditional formatting
Sorry (pressed send by accident) ...
For each cell in usedrange.cells if cell.formatting = conditional then msgbox cell.addresss & " is condionally formatted" end if Next (Obviously the above code doesn't work, but merely describes what I'm trying to achieve) Any assistance appreciated Thanks John |
Check for the existence of conditional formatting
You sure you want to pop up a msgbox for each cell?
For Each cell In ActiveSheet.UsedRange.Cells If cell.FormatConditions.Count 0 Then MsgBox cell.Address & " is conditionally formatted" End If Next Gord Dibben MS Excel MVP On Thu, 18 Feb 2010 08:15:04 -0800 (PST), jh wrote: Sorry (pressed send by accident) ... For each cell in usedrange.cells if cell.formatting = conditional then msgbox cell.addresss & " is condionally formatted" end if Next (Obviously the above code doesn't work, but merely describes what I'm trying to achieve) Any assistance appreciated Thanks John |
Check for the existence of conditional formatting
Forgot to mention.
You can also check for CF on a sheet by F5SpecialCF Gord On Thu, 18 Feb 2010 12:50:11 -0800, Gord Dibben <gorddibbATshawDOTca wrote: You sure you want to pop up a msgbox for each cell? For Each cell In ActiveSheet.UsedRange.Cells If cell.FormatConditions.Count 0 Then MsgBox cell.Address & " is conditionally formatted" End If Next Gord Dibben MS Excel MVP On Thu, 18 Feb 2010 08:15:04 -0800 (PST), jh wrote: Sorry (pressed send by accident) ... For each cell in usedrange.cells if cell.formatting = conditional then msgbox cell.addresss & " is condionally formatted" end if Next (Obviously the above code doesn't work, but merely describes what I'm trying to achieve) Any assistance appreciated Thanks John |
Check for the existence of conditional formatting
On 18 Feb, 20:50, Gord Dibben <gorddibbATshawDOTca wrote:
You sure you want to pop up a msgbox for each cell? For Each cell In ActiveSheet.UsedRange.Cells * * If cell.FormatConditions.Count 0 Then * * * * MsgBox cell.Address & " is conditionally formatted" * *End If Next Gord Dibben *MSExcelMVP On Thu, 18 Feb 2010 08:15:04 -0800 wrote: Sorry (pressed send by accident) ... For each cell in usedrange.cells * *if cell.formatting = conditional then * * * *msgbox cell.addresss & " is condionally formatted" * end if Next (Obviously the above code doesn't work, but merely describes what I'm trying to achieve) Any assistance appreciated Thanks John Perfect ...thank you Gordon! |
All times are GMT +1. The time now is 08:04 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com