watkins6878
Board Regular
- Joined
- Nov 26, 2005
- Messages
- 96
Hi I am using this code to loop through my worksheet but whilst looping through Column A i need to check column B for duplicate Names and also column C for either "DEL" OR "E+R" could someone please point me in the right direction
Thanks in advance
Alan
Code:
Private Sub OverDue_Click()
Dim iDate As Range
Dim strDate As Date
strDate = Date
For Each iDate In Range("A:A")
If iDate > 0 And iDate < strDate - 30 Then
iDate.EntireRow.Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
ElseIf iDate > 0 And iDate < strDate - 7 And iDate > _
strDate - 30 Then
iDate.EntireRow.Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ElseIf iDate > 0 And iDate > strDate - 7 Then
iDate.EntireRow.Select
With Selection.Interior
.ColorIndex = xlNone
End With
End If
Next iDate
End Sub
Thanks in advance
Alan