VBA Loop to Find then Copy & Paste

B

B J Hankinson

I have been trying to figure out how to loop when using a copy formulas and
then find specific words and paste ( I am also using an offset to paste below
the text I find)

Example:
Colmn Q Colmn R Colmn S
row2 =K2/I2 =(SUM(K2:K3)/(SUM(I2:I3))) =(SUM(K2:K4)/(SUM(I2:I4)))

row5 Write formulas
row10 Write formulas
row11 Write formulas
row20 Write formulas


What I am trying to get to loop is as follows:
Find copy and paste formulas Macro
' Macro recorded 4/2/2009 by BJ
'

'
Range("Q2:T2").Select
Selection.Copy
Cells.Find(What:="write formulas", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Thank you - am pulling my hair out
 

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

Paste Spl Optn Bttn Req For Pasting the Formlas with Original cell 0
Find copy data from a cell in Personal workbook and copy it to a cellin current workbook 14
loop to copy paste 5
Macro to find and paste rows 5
Finding, grouping, then copy/paste to new sheet 15
Find Result Copy And Paste 0
Loop through cells to find a string and copy/paste the matching column to a new wkbk 3
Find & loop in VBA 3

Top