Question

I am using an Excel worksheet to allocate work and their are 3-4 users in the Team. What I want to do is that based on some value I wish to allocate a task to a user (this step has been achieved with some VBA and Macros), the next step is to colour code each user. So, based on the name that appears in front of the task, the cell colour needs to change to reflect the user.

Basically, each user should automatically get a colour when his name comes up against any task. This colour will be consistent for that user and does not depend on the task.

Answer 1

If names are in the first column:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim clr As Long, c As Range, v

    For Each c In Target.Cells
        If c.Column = 1 Then
            v = c.Value
            clr = -1
            If Len(v) > 0 Then
                Select Case v
                Case "Fred": clr = vbRed
                Case "Jeff": clr = vbBlue
                Case "Jane": clr = vbYellow
                End Select
            End If
            If clr > 0 Then
                c.Interior.Color = clr
            Else
                c.Interior.ColorIndex = xlNone
            End If
        End If
    Next c
End Sub