Conditional formatting in Excel 2003(more than 3)
Closed
plangey
Posts
2
Registration date
Saturday April 6, 2013
Status
Member
Last seen
April 8, 2013
-
Apr 6, 2013 at 01:44 PM
plangey Posts 2 Registration date Saturday April 6, 2013 Status Member Last seen April 8, 2013 - Apr 8, 2013 at 04:05 PM
plangey Posts 2 Registration date Saturday April 6, 2013 Status Member Last seen April 8, 2013 - Apr 8, 2013 at 04:05 PM
Related:
- Conditional formatting in Excel 2003(more than 3)
- Hitman 3 cheats - Guide
- Psiphon 3 download - Download - VPN
- Five nights in anime 3 - Download - Adult games
- Acer aspire 3 keyboard light - Guide
- Hitman 3 free download - Download - Action and adventure
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Apr 8, 2013 at 10:27 AM
Apr 8, 2013 at 10:27 AM
Hi Plangey,
So column D is entered manually and column E is calculated using a formula.
This code should cover that:
To implement the code, right-click the sheets tab and select "View code", then paste the code in the big white field.
Hopefully the code makes some sense to you.
Best regards,
Trowa
So column D is entered manually and column E is calculated using a formula.
This code should cover that:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Columns("D:D")) Is Nothing Then Exit Sub If Target.Offset(0, 1).Value >= 0 And Target.Offset(0, 1).Value <= 25 Then Target.Offset(0, 1).Interior.ColorIndex = xlNone ElseIf Target.Offset(0, 1).Value >= 26 And Target.Offset(0, 1).Value <= 33 Then Target.Offset(0, 1).Interior.ColorIndex = 45 ElseIf Target.Offset(0, 1).Value >= 34 And Target.Offset(0, 1).Value <= 38 Then Target.Offset(0, 1).Interior.ColorIndex = 6 ElseIf Target.Offset(0, 1).Value >= 39 Then Target.Offset(0, 1).Interior.ColorIndex = 3 End If End Sub
To implement the code, right-click the sheets tab and select "View code", then paste the code in the big white field.
Hopefully the code makes some sense to you.
Best regards,
Trowa
Apr 8, 2013 at 04:05 PM