If/Then formula to change cell color

[tinkerbell737]

I want to know if it's possible to use an If/Then formula to change a cell's color? Even changing the text color would be cool.

I have two worksheets in the same spreadsheet. The first one is a complete list of names and the second is a list of names in a particular group.

I want to say IF this person belongs to the group on worksheet2, then highlight the cell with their name on worksheet1.

Can this be done?

ALTERNATELY, I would be happy with a remark in another column that indicates that the person is part of the group.

 

[combatvolcano]

This will, for all cells in a given numerical range, color red any cell that is not blank.

Adjust variables/objects/conditinals as you need.

Sub ScanAndColor() 'by Combat Volcano
    For x = 1 To 100 ' x range, can be "40 to 41" etc
        For y = 1 To 100 ' y limit same deal
            If Sheets("Sheet1").Cells(x, y).Value <> "" Then
                Sheets("Sheet1").Cells(x, y).Interior.Pattern = xlSolid
                Sheets("Sheet1").Cells(x, y).Interior.PatternColorIndex = xlAutomatic
                Sheets("Sheet1").Cells(x, y).Interior.Color = 255
            End If
        Next y
    Next x
End Sub

 

[combatvolcano]

New and improved... still larnin mah veebee

Sub ScanAndColor()
    For x = 1 To 100 ' x limit
        For y = 1 To 100 ' y limit
            If Sheets("Sheet1").Cells(x, y).Value <> "" Then
                With Sheets("Sheet1").Cells(x, y)
                    .Interior.Pattern = xlSolid
                    .Interior.PatternColorIndex = xlAutomatic
                    .Interior.Color = 255
                End With
            End If
        Next y
    Next x
End Sub