Hi
Ok i do not like to post my VBA Scripted codes as most dont understand my odfd programming, However this i have developwed over time, to colour the whole row which i wanted subject to Col m anywher reading K, thisits does FAST!
I owe Dave Hawley a big ti[p of the hat as really he set the seeds on this one and this is his style of programming, it never fails me, i use this bit MUCH bigger 25 conditions not just row colour easy to convert or edit to WHATEVER.
Everopne will what this its that goos just add section but section to add conditions as you like,
Cheers Dave Hawley
http://www.ozgrid.com
.........
Sub Rows_Color()
On Error GoTo Z
Sheets("Sheet1").Select
Range("A1:R500").Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
Application.ScreenUpdating = False
Rw = 1
'>>>>>>>>>>>>>>>>>>>>
With Sheets("Sheet1") 'Jack in the UK
For K = 1 To WorksheetFunction.CountIf(.Columns("M:M"), "K")
Set RKateFoundCell = .Columns("M:M").Find(What:="K", _
After:=.Cells(Rw, 13))
RKFoundCell.EntireRow.Interior.ColorIndex = 4
Rw = RKFoundCell.Row
Next K
End With
'>>>>>>>>>>>>>>>>>>>>>
'>>>>>>>>>>>>>>>>>>>>>
Columns("R:IV").Select
Selection.Interior.ColorIndex = xlNone
Application.Goto Reference:="R1C14"
Application.ScreenUpdating = True
Z:
End Sub
..............
These is the base to any conditional format problems !