Find cell (with duplicates)

L

leonidas

Hi,

I have a worksheet(1) with a lot of data in column B. In this data
duplicates exist. I have another worksheet(2) (a copy of worksheet(1))
on which the user can add rows and data in column B. I have some code
(see below) to copy values from column P of worksheet(2) to column F of
worksheet(1).
The only problem is there are duplicates in column B of worksheet(1).
So by using the code below it allways gets the first duplicate and
that's not how it should go.
Can someone help me change the code so it will find the right
duplicate? Thanks in advance!


Code:
--------------------
For Each cell In Sheets("Begroting WVB Won").Range("B12:B242")
myvalue = cell.Offset(0, 14).Value
Set myCell = Worksheets("Totaaloverzicht Won").Range("B:B").Find _
(cell.Value)
myCell(1, 5).Value = myvalue
Next cell
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top