Find word and copy

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Didn't save my macro list since the reset, so I have to rebuild it.
I want to find the word grand total and copy 8 columns across and 10 rows
down
Thanks,
DJ
 
DJ

Here is somthing I came up with.

Sub mysub()
Dim firstrng
Dim secondrng
Cells.Find(What:="grand total", After:=ActiveCell, LookIn:=xlFormulas
LookAt _
:=xlPart).Activate
firstrng = (ActiveCell.Address)
secondrng = (ActiveCell.Offset(10, 7).Address)
Range(firstrng & ":" & secondrng).Copy
End Sub

HTH

Charle
 
You must log in or register to reply here.

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

The next Grand Theft Auto title has been officially announced 0
Marcro to copy and paste a formula 4
Code to do a simple clean of one column by copying and pasting(finding and replacing) phrases in adj 4
Calculating subtotals 22
selecting a range 2
Searching for a word and then copy the whole row 5
Subtotal GroupBy text string 2
find last row, copy until end 2

Back
Top