Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find word and copy
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find word and copy
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 -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to find a particular word? | Excel Worksheet Functions | |||
Copy contents of Find (Find and Replace) | Excel Discussion (Misc queries) | |||
How do you export Word 2007 ur equations to new copy of Word 2007? | New Users to Excel | |||
Copy from Word to Excel, and retain indent, plus word wrap | Excel Discussion (Misc queries) | |||
Find Whole Word Only | Excel Programming |