Person = "John"
set c = Range("Contact List").find(what:=Person, _
lookin:=xlvalues,lookat:=xlwhole)
firstAddress = c.Address
if c is nothing then
'enter code here
else
do
'enter your code here
Set c = .FindNext(after:=c)
loop while not c is nothing And c.Address <> firstAddress
end if
"(E-Mail Removed)" wrote:
> On Oct 10, 11:46 am, Joel <J...@discussions.microsoft.com> wrote:
> > 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
> >
> >
> >
> > "wpreq...@yahoo.com" 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. I’ve poked around in past
> > > posts, and couldn’t find anything close enough for me to play around
> > > with.
> > > I know how to copy & paste data via macro. What I don’t 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.
> >
> > > I’m 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- Hide quoted text -
> >
> > - Show quoted text -
>
> Maybe I wasn't clear, or maybe I'm not understanding your solution.
>
> I want to copy 1 of each name on the list. There might be 50 different
> names on the list. Many of those may be on the listed 15, 20 times.
> So, the list in Official List sheet might be 300 lines, and if there
> were 50 different names on the list, then the list in the Contact List
> sheet will be 50 names long.
> Thanks for responding
>
|
Similar Threads
