copy and paste question

  • Thread starter Thread starter carlos_ray86
  • Start date Start date
C

carlos_ray86

Is there a way to serch for a word than copy the next few cells to
paste else where?
A B C
Item 1 11.2 101.2
Item 2 11.5 152.0
Item 3 11.68 134.2
Item 1 11.3 100.5


It would search for the item then copy and the next two rows and I can
then paste it.
 
With Worksheets(1).Range("a1:a500")
Set c = .Find(Item2, lookin:=xlValues)
If Not c Is Nothing Then

range(c.offset(0,1),c.offset(0,2)).copy
End If
End With
 

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

Back
Top