How to change the background color of entire row in Excel using VBA code - Conditional

Submitted by ravisagar on Sun, 02/10/2008 - 16:42

My friend Vinod gave me a problem to change the background color of entire row to Red and also to change the font to bold. It seems to be an easy task but there are two constraints.
1. He want to do this only for those lines which has font color of red.
2. There are 2500 entries in the excel.

Now if you have plenty of time then you can do this task in some hundred years :) but I am a Lazy guy so I wrote this little Macro code.

Private Sub Workbook_Open()
For Each cell In Worksheets("sheet1").Range(Worksheets("sheet1").Range("A1"), _
Worksheets("sheet1").Range("A1").End(xlDown))
        If cell.Font.Color = RGB(255, 0, 0) Then
            cell.Font.Color = RGB(0, 0, 0)
          cell.EntireRow.Font.Bold = True
          cell.EntireRow.Interior.Color = RGB(255, 0, 0)
        End If
       
    Next cell
End Sub

You can write this code either in the Open Event of the Workbook or write a Module for it.

For Each cell In Worksheets("sheet1").Range(Worksheets("sheet1").Range("A1"), Worksheets("sheet1").Range("A1").End(xlDown))

This code simply defines the range starting from cell A1 till the bottom most cell which has any data.

End(xlDown))
This is similar to pressing Ctrl + Down Arrow

cell.Font.Color = RGB(0, 0, 0)
This code changes the font color of the cell content

cell.EntireRow.Font.Bold = True
This code changes the font to Bold

cell.EntireRow.Interior.Color = RGB(255, 0, 0)
This code fills the cell with Red color

Add new comment

Want to contact me?

Life begins outside your comfort zone and that is where your courage is developed". Write to me by filling this form. For living I am an Atlassian Consultant who love both Jira and Drupal. I am the author of "Mastering JIRA" and "Mastering JIRA 7" books. I Love both JIRA and Drupal (a bit more). You can Write To Me and I will get back to you as soon as I can. Have a nice day!

Social Links

Subscribe to my mailing list.

Enter your email address: