Macro: Find the row, then copy certain cells in that row

richardff · Apr 28th, 2002, 07:35 PM

I'm trying to get my macro to find a row and then select/copy a certain range of cells in that row. So far, I have the macro that will find the row:

Selection.Find(what:="JT67", after:=ActiveCell, LookIn:=xlValues, _
lookat:=xlPart, searchorder:=xlByColumns, searchdirection:=xlNext, _
MatchCase:=False, searchformat:=False).Activate

Now I just need to select and copy the data in cells B to G of that row - anyone know the code for this? Thanks.

GeorgeB · Apr 28th, 2002, 08:14 PM

Range("B67:G67").Copy

Tinhare · Apr 28th, 2002, 08:14 PM

Hi,
Try the following :-

Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).Copy

Cheers,
Alan

Apr 28th, 2002, 08:14 PM	#2
GeorgeB Board Regular Join Date: Feb 2002 Location: Las Vegas Nevada USA Posts: 240	Range("B67:G67").Copy __________________ George Learn to listen. Opportunity sometimes knocks very softly.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 28th, 2002, 07:35 PM	#1
richardff New Member Join Date: Apr 2002 Posts: 8	I'm trying to get my macro to find a row and then select/copy a certain range of cells in that row. So far, I have the macro that will find the row: Selection.Find(what:="JT67", after:=ActiveCell, LookIn:=xlValues, _ lookat:=xlPart, searchorder:=xlByColumns, searchdirection:=xlNext, _ MatchCase:=False, searchformat:=False).Activate Now I just need to select and copy the data in cells B to G of that row - anyone know the code for this? Thanks.

Apr 28th, 2002, 08:14 PM	#3
Tinhare New Member Join Date: Apr 2002 Location: England Posts: 44	Hi, Try the following :- Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).Copy Cheers, Alan