Select range

wildpitch · Apr 8th, 2002, 02:29 AM

Help, please.
I've got a VB app that dumps two columns of text into an spreadsheet for formatting and tidying, before being copied back out to another app. Where I'm stuck is that it's a random ammount of text, ranging from 1 row up to 30, and always 2 columns. Everything works a treat whilst I have defined a range to select in the Excel macro. What I want to do is make the select range dynamic, so that if only 5 rows contain data, the macro only copies 5 rows. Anyone able to help please?

Thanks

Dave Hawley · Apr 8th, 2002, 02:53 AM

Hi Wildpitch

Try this

Code:

Sheet1.Range("B1", Sheet1.Range("B65536").End(xlUp)).Copy Destination:= _
Sheet2.Range("A1")

Just change references to suit.

wildpitch · Apr 8th, 2002, 03:11 AM

Fantastic, thanks very much Dave. Much easier than I had thought.

Apr 8th, 2002, 02:53 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Wildpitch Try this Code: Sheet1.Range("B1", Sheet1.Range("B65536").End(xlUp)).Copy Destination:= _ Sheet2.Range("A1") Just change references to suit.

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

Apr 8th, 2002, 02:29 AM	#1
wildpitch New Member Join Date: Apr 2002 Posts: 2	Help, please. I've got a VB app that dumps two columns of text into an spreadsheet for formatting and tidying, before being copied back out to another app. Where I'm stuck is that it's a random ammount of text, ranging from 1 row up to 30, and always 2 columns. Everything works a treat whilst I have defined a range to select in the Excel macro. What I want to do is make the select range dynamic, so that if only 5 rows contain data, the macro only copies 5 rows. Anyone able to help please? Thanks

Apr 8th, 2002, 03:11 AM	#3
wildpitch New Member Join Date: Apr 2002 Posts: 2	Fantastic, thanks very much Dave. Much easier than I had thought.