loop

[watkins6878]

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

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

 

[watkins6878]

bump

 

[watkins6878]

HELP Please any suggestions

Thank you

 

[Richard Schollar]

Hi Alan

Can you provide examples of what you might encounter and the result of the macro you want to achieve? Thanks.

Best regards

Richard

 

[watkins6878]

HI RichardSchollar

GP SKIP.xls
	A	B	C	D	E	F	G	H	I	J
1	Today'sDate>>>>>>>>				12/10/2006		04/10/2006
2	DATE	NAME	TYPE	HOUSENO:	HOUSENAME	ADDRESS	TOWN	PERMIT	PERMITSTART	PERMITEXPIRE
3	01/09/2006	Alan	DEL			FreeStreet
4	01/09/2006	David	DEL			ChesterRd
5	16/09/2006	Alan	E+R			FreeStreet
6	16/09/2006	Jim	DEL			silverstreet
7	24/09/2006	David	E+R			ChesterRd
8	09/10/2006	David	E+R			ChesterRd
9	12/10/2006	deborah	DEL			inkermanRoad
10
11			30+daysLate
12			Between7&30dayslate
13			OK
14
15
16
17
18
Skips

So if you look at david he has had the same skip for over a month But it has been emptied and taken back so i need the code to ignore the first 2 entries and just check that the last entire for david is not older than 7 days. To do this i would like to check for duplicate addresses and then look to see if the skip is E+R or E+O or DEL if it is E+O it needs to be ignore alltogether

Sorry if this makes no sense

Thanks for looking

Alan