Macro for conditional formatting

**jbyrne** · 03-09-2010, 06:11 AM

Hi,

I am inexperienced in VB but would like to shade cells in multiple worksheets if their value is higher than that in the cell adjacent to the left. I can do this through conditional formatting but cannot get it to work for the full workbook within a macro. The cells for possible shading are d5 : e(end of data). For example if d17 is greater in value than c17, d17 will be shaded. I have been unable to create the IF statement to identify cells to the left. Pls see my attempt below. Also this macro changes font colour rather than cell shading which would be preferable.

Please Login or Register  to view this content.

Thanks in advance.

**rwgrietveld** · 03-09-2010, 06:14 AM

Edited: CODE TAGS added.

**teylyn** · 03-09-2010, 06:19 AM

Hi jbyrne, welcome to the forum. However, as Ricardo has already stated, your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

I'll add the tags for you this time, so our helpers are free to reply, but please remember to use code tags from now on.

**JeanRage** · 03-09-2010, 06:21 AM

Hi,

If I understood your request ... to be tested

Sub conditshad()
Dim i As Long
Dim WS As Worksheet
Dim c As Range
i = Cells(Cells.Rows.Count, "E").End(xlUp).Row
For Each WS In ThisWorkbook.Worksheets
For Each c In WS.Range("D5:D" & i)
If c.Value > c.Offset(0, 1).Value Then c.Font.ColorIndex = 3
Next c
Next WS
End Sub

HTH