You can use the following subroutine. You will have to modify the line No. 3 to identify which cells have to be formatted accordingly.
Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print Target.NumberFormat
If Target.Row > 2 And Target.Row < 100 And Target.Column = 6 Then
Select Case Target.Value
Case Is > 3
Target.NumberFormat = Chr(34) & "HD" & Chr(34)
Case Is > 2
Target.NumberFormat = Chr(34) & "DI" & Chr(34)
Case Is > 1
Target.NumberFormat = Chr(34) & "Cr" & Chr(34)
Case Is > 0
Target.NumberFormat = Chr(34) & "P" & Chr(34)
Case Else
Target.NumberFormat = Chr(34) & "F" & Chr(34) & ";" & Chr(34) & "F" & Chr(34)
End Select
End If
End Sub
Saqib
Main Topics
Browse All Topics





by: webtubbsPosted on 2006-10-29 at 19:33:31ID: 17831571
Hi Jivlain,
How about using another column, with the following formula....
=IF(A1>3, "HD", IF(A1>2, "DI", IF(A1>1, "Cr", IF(A1>0, "P", "F"))))
...and use this column for your y-axis.
Regards,
Wayne