View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default Copy names to another sheet

Person = "John"
set c = Range("Contact
List").find(what:=Person,lookin:=xlvalues,lookat:= xlwhole)
if c is nothing then
'enter code here
else
'enter more code here
end if

" wrote:

I have a list of data in a sheet named Official List. This list is
added to each day. 1 of the columns on this list shows a name of a
person. These persons show up multiple times on the list.
What I want to do is to copy each name once from this list in Official
List to another sheet named Contact List. Ive poked around in past
posts, and couldnt find anything close enough for me to play around
with.
I know how to copy & paste data via macro. What I dont know is how to
make it compare the text in the cell vs the list in Contact List to
see if that name is on the list already.

Im think of something along these lines€¦..

Goto Contacts (named range of column header in Official List sheet)
Down 1

Do until isempty

Read 1st cell
If cell = name from list in sheet Contact List (name already on the
list)
Then move down 1 cell
Next
Else copy that name to list.

This would loop until the 1st empty cell is found.

As always, I appreciate your help.
Thanks
jeff