Only running an action once per entry

[bruty]

I have some code that sends an email to the list of people in a selected range, but recently there have been duplicates in the range due to the way the data is keyed.

Is there any way of adding in some code that checks if the name has already been actioned and so skip that entry.

The email addresses are in column A and I just select the range I want (eg A2:A1500) then run the macro on that selection.

Hope someone understands this, as I don't think I've explained it very well.

Cheers,

bruty

 

[bruty]

But using the code you have posted above, it performs the action for every cell selected - it doesn't omit the duplicates

 

[Domski]

I'll try and have a look later. Having a bad day at the office.

Dom

 

[bruty]

Cheers - I know that feeling

 

[bruty]

Just wondering if anyone had been able to put their finger on the problem yet?

 

[Domski]

It should be:

If WorksheetFunction.CountIf(Range(Cells(Firstrow, Range("ContactEmail").Column), _
    Cells(crow, Range("ContactEmail").Column)), Cells(crow, _
    Range("ContactEmail").Column).Value) = 1 Then

Dom

 

[bruty]

Seems to have done the trick - many thanks for your help and patience with this