This will paint it green but you will have to add in the conditions you want
to exist.
e.g. If... Then

Worksheets(2).Cells(k + 5, j + 1).EntireRow.Interior.ColorIndex = 4

End If

"hon123456" wrote:

Dear all,

I have code as follows:

k = 0
For i = 0 To rs.RecordCount - 1
k = k + 2
For j = 0 To rs.Fields.Count - 1

Sheet1.Cells(k + 5, j + 1) = rs.Fields(j).Value
' How to add code to change the row of k+5

Next j

rs.movenext
next i

In the above code, I want to change the row color of rows
k+5 to green. How can I do that?

Thanks