VBA Macro Conditional FormattingClosed

Question

I need to find out how to write a macro that includes Conditional Formatting.

=if(and(Column A has the word "Dial")and(Column F has the word "Booked")and(Column J has a date in it I need the Columns from Row A:M to turn Blue.

I then have about 30 more conditions to add to the macro.

The macro can be set as a private or a command button or even on open or close of workbook

Any help on this would be great.

venkat1926 · Answer

try this macro 
row 1 is header row



Option Compare TextSub test()'assume row 1 is header row and no blank cells, blanks rows, blank columnsDim r As Range, c As Range, j As IntegerSet r = Range(Range("A2"), Range("A2").End(xlDown))For Each c In rj = c.RowIf Cells(j, "A") = "Dial" And Cells(j, "F") = "Booked" ThenRange(Cells(j, "A"), Cells(j, "M")).Cells.Interior.ColorIndex = 5End IfNext cEnd Sub

slohman · Answer

Thank you so much for that it works great for the first one but yes there is blanks in columns and rows and cells and the Dial Before You Dig appears down a number of times in column A and also Booked is found more than once in column f and the date appears in j many times. Can it look for the word Dial with a wildcard attached.

slohman · Answer

Can anyone help with this??

VBA Macro Conditional Formatting

3 responses

Similar discussions

Subscribe To Our Newsletter!