Adding rows

's Computer Specifications

This should be easy but is giving me grief.
I need code that, after selecting a random cell in column A ( I have the
code to do that part) will then select the next 12 entire rows underneath it.

Squeaky

's Computer Specifications

As ALWAYS, post your code for comments
activecell.resize(12).select

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Squeaky" <(E-Mail Removed)> wrote in message
news:E724E974-EA1F-40CC-9A60-(E-Mail Removed)...
> This should be easy but is giving me grief.
> I need code that, after selecting a random cell in column A ( I have the
> code to do that part) will then select the next 12 entire rows underneath
> it.
>
> Squeaky

's Computer Specifications

If you mean *** entire *** row...from the active cell; try the below

Rows(activecell.row & ":" & activecell.row+12).select

If this post helps click Yes
---------------
Jacob Skaria

"Squeaky" wrote:

> This should be easy but is giving me grief.
> I need code that, after selecting a random cell in column A ( I have the
> code to do that part) will then select the next 12 entire rows underneath it.
>
> Squeaky

's Computer Specifications

The wording of your request is not entirely clear to me. When you say "then
select 12 entire rows **underneath** it"... to you mean the 12 row below the
active cell? If so...

ActiveCell.EntireRow.Resize(12).Offset(1).Select

If, on the other hand, you are requesting 12 entire rows *starting with* the
active cell, then do this instead...

ActiveCell.EntireRow.Resize(12).Select

--
Rick (MVP - Excel)

"Squeaky" <(E-Mail Removed)> wrote in message
news:E724E974-EA1F-40CC-9A60-(E-Mail Removed)...
> This should be easy but is giving me grief.
> I need code that, after selecting a random cell in column A ( I have the
> code to do that part) will then select the next 12 entire rows underneath
> it.
>
> Squeaky

's Computer Specifications

Sub selectrng()
ActiveCell.Resize(12).EntireRow.Select
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Don Guillett" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> As ALWAYS, post your code for comments
> activecell.resize(12).select
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "Squeaky" <(E-Mail Removed)> wrote in message
> news:E724E974-EA1F-40CC-9A60-(E-Mail Removed)...
>> This should be easy but is giving me grief.
>> I need code that, after selecting a random cell in column A ( I have the
>> code to do that part) will then select the next 12 entire rows underneath
>> it.
>>
>> Squeaky
>

's Computer Specifications

Thanks for all of the suggestions.

The one from Rick did the trick.

Squeaky

"Squeaky" wrote:

> This should be easy but is giving me grief.
> I need code that, after selecting a random cell in column A ( I have the
> code to do that part) will then select the next 12 entire rows underneath it.
>
> Squeaky

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding my own rows to a Union Query without adding another table?	PaulSchrum	Microsoft Access Queries	3	15th Feb 2011 08:28 PM
adding some rows in the middle of adding some other rows	=?Utf-8?B?SmFuaXM=?=	Microsoft Excel Programming	3	4th Oct 2007 03:20 AM
Adding rows to a data table: Rows do not show up	=?Utf-8?B?dnZlbms=?=	Microsoft VB .NET	2	10th Oct 2006 12:07 AM
Adding Rows offsets to working rows across two worksheets	=?Utf-8?B?VG9t?=	Microsoft Excel Setup	3	30th Jul 2006 07:54 PM
How to prevent drawing DataGrid rows while adding rows?	=?Utf-8?B?VFQgKFRvbSBUZW1wZWxhZXJlKQ==?=	Microsoft C# .NET	2	6th Apr 2005 04:51 PM