Changing cell color based on cell values

**pkdash** · 09-27-2012, 02:46 AM

Hi Guys,

I have an excel sheet with 60 rows and 5 columns and I want to change the color of individual cells based on cell values.

I'm posting a code below for this which seems to be working but still has some flaws in it. Please help me rectifying this code.

Sub changecolor()

Dim i, j As Integer
For i = 1 To 60
For j = 1 To 5
If Cells(i, j) < 8 Then
Cells(i, j).Interior.ColorIndex = 6
Else: Cells(i, 1).Interior.ColorIndex = 8
End If
Next j
Next i

End Sub

Or suggest me a better way to do this.

Thanks,
Prasanna

**Sindhus** · 09-27-2012, 02:58 AM

Hi Prasanna,

I think in the else portion, you should have Cells(i,j).intereior.colorindex = 8.

Regards,
Sindhu

**Winon** · 09-27-2012, 02:59 AM

Hello pkdash,

Please read the Forum Rules, and wrap code that you post. Until you comply with this request and follow the Rules, you will not receive any help.

**pkdash** · 09-27-2012, 03:03 AM

Originally Posted by pkdash

Hi Guys,

I have an excel sheet with 60 rows and 5 columns and I want to change the color of individual cells based on cell values.

I'm posting a code below for this which seems to be working but still has some flaws in it. Please help me rectifying this code.

Sub changecolor()

Dim i, j As Integer
For i = 1 To 60
For j = 1 To 5
If Cells(i, j) < 8 Then
Cells(i, j).Interior.ColorIndex = 6
Else: Cells(i, 1).Interior.ColorIndex = 8
End If
Next j
Next i

End Sub

Or suggest me a better way to do this.

Thanks,
Prasanna

Great solved my problem, Thanks a lot Sindhu...

**Winon** · 09-27-2012, 04:10 AM

Hello pkdash,

Thank you for correcting your Post.

You could use Conditional Formatting to achieve your objective without having to use VBA.

If your problem is solved however, please do Mark your Thread as Solved.

Thank you.