Help please! Anyone know if i can amend the expersion below to find values in Column A of Workbook 1 and Column A of workbook 2. If found paste range D##:G## of workbook 1 into D##:G## of workbook 2? With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

expersion.Find??

Thread starter Tarqs
Start date Feb 20, 2011

Tarqs

Board Regular

Feb 20, 2011

Help please!

Anyone know if i can amend the expersion below to find values in Column A of Workbook 1 and Column A of workbook 2. If found paste range D##:G## of workbook 1 into D##:G## of workbook 2?

<CODE>With Worksheets(1).Range("a1:a500") </CODE>
<CODE>Set c = .Find(2, lookin:=xlValues) </CODE>
<CODE>If Not c Is Nothing Then </CODE>
<CODE>firstAddress = c.Address </CODE>
<CODE>Do </CODE>
<CODE>c.Value = 5 </CODE>
<CODE>Set c = .FindNext(c) </CODE>
<CODE>Loop While Not c Is Nothing And c.Address <> firstAddress </CODE>
<CODE>End If</CODE>
<CODE>End With</CODE>
</PRE>