how to automatically format a cell upon entry depending on the content??

[jamie.gill]

how to automatically format a cell upon entry depending on the content??

for multiple types of data with different colours for each

 

[ndendrinos]

start with case statements like this:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Dim CVal As String
If Target.Cells.Count > 1 Then Exit Sub
CVal = Target
Set MyRange = Range("A1")

If Not Intersect(Target, MyRange) Is Nothing Then
Select Case CVal
Case "10"
Target.Interior.ColorIndex = 3
Case "20"
Target.Interior.ColorIndex = 6
Case "30"
Target.Interior.ColorIndex = 33
Case "40"
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub

Above goes in the sheet code