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