Difficult Question

something like

Sub insertrowssize()
ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
End Sub
--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
> Okay, I'm trying to do something very strange, but I have to find a way to
> get all the data in an orderly fashion. I want to do the following:
>
> Seek the blank rows and select each cell one up from the blanks. For each
> selection(essentially the last row of each set of data separated by a
> blank
> row),
>
> IF (Cell = 2) Then
> Insert 28 rows
>
> IF (Cell = 3) Then
> Insert 27 rows
>
> IF (Cell = 4) Then
> Insert 26 rows
>
> ETC.ETC....
>
> That would make each grouping of data have the exact same amount of rows,
> which is what I NEED to continue with my project. Need more
> clarification,
> please ask. THANKS!!!!!!

How do I get it to select the cells right above the blank ones? Thanks!!!

"Don Guillett" wrote:

> something like
>
> Sub insertrowssize()
> ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
> End Sub
> --
> Don Guillett
> SalesAid Software
> dguillett1@austin.rr.com
> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
> message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
> > Okay, I'm trying to do something very strange, but I have to find a way to
> > get all the data in an orderly fashion. I want to do the following:
> >
> > Seek the blank rows and select each cell one up from the blanks. For each
> > selection(essentially the last row of each set of data separated by a
> > blank
> > row),
> >
> > IF (Cell = 2) Then
> > Insert 28 rows
> >
> > IF (Cell = 3) Then
> > Insert 27 rows
> >
> > IF (Cell = 4) Then
> > Insert 26 rows
> >
> > ETC.ETC....
> >
> > That would make each grouping of data have the exact same amount of rows,
> > which is what I NEED to continue with my project. Need more
> > clarification,
> > please ask. THANKS!!!!!!
>
>
>

How do I get it to select the cells right above the blank ones? Thanks!!!

"Don Guillett" wrote:

> something like
>
> Sub insertrowssize()
> ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
> End Sub
> --
> Don Guillett
> SalesAid Software
> dguillett1@austin.rr.com
> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
> message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
> > Okay, I'm trying to do something very strange, but I have to find a way to
> > get all the data in an orderly fashion. I want to do the following:
> >
> > Seek the blank rows and select each cell one up from the blanks. For each
> > selection(essentially the last row of each set of data separated by a
> > blank
> > row),
> >
> > IF (Cell = 2) Then
> > Insert 28 rows
> >
> > IF (Cell = 3) Then
> > Insert 27 rows
> >
> > IF (Cell = 4) Then
> > Insert 26 rows
> >
> > ETC.ETC....
> >
> > That would make each grouping of data have the exact same amount of rows,
> > which is what I NEED to continue with my project. Need more
> > clarification,
> > please ask. THANKS!!!!!!
>
>
>

IF?? I understand your question

ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert
--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
message news:1DA86C5D-AF33-4EC4-B72F-F970FA3DB768@microsoft.com...
> How do I get it to select the cells right above the blank ones? Thanks!!!
>
> "Don Guillett" wrote:
>
>> something like
>>
>> Sub insertrowssize()
>> ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
>> End Sub
>> --
>> Don Guillett
>> SalesAid Software
>> dguillett1@austin.rr.com
>> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote
>> in
>> message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
>> > Okay, I'm trying to do something very strange, but I have to find a way
>> > to
>> > get all the data in an orderly fashion. I want to do the following:
>> >
>> > Seek the blank rows and select each cell one up from the blanks. For
>> > each
>> > selection(essentially the last row of each set of data separated by a
>> > blank
>> > row),
>> >
>> > IF (Cell = 2) Then
>> > Insert 28 rows
>> >
>> > IF (Cell = 3) Then
>> > Insert 27 rows
>> >
>> > IF (Cell = 4) Then
>> > Insert 26 rows
>> >
>> > ETC.ETC....
>> >
>> > That would make each grouping of data have the exact same amount of
>> > rows,
>> > which is what I NEED to continue with my project. Need more
>> > clarification,
>> > please ask. THANKS!!!!!!
>>
>>
>>

IF?? I understand your question

ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert
--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
message news:1DA86C5D-AF33-4EC4-B72F-F970FA3DB768@microsoft.com...
> How do I get it to select the cells right above the blank ones? Thanks!!!
>
> "Don Guillett" wrote:
>
>> something like
>>
>> Sub insertrowssize()
>> ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
>> End Sub
>> --
>> Don Guillett
>> SalesAid Software
>> dguillett1@austin.rr.com
>> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote
>> in
>> message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
>> > Okay, I'm trying to do something very strange, but I have to find a way
>> > to
>> > get all the data in an orderly fashion. I want to do the following:
>> >
>> > Seek the blank rows and select each cell one up from the blanks. For
>> > each
>> > selection(essentially the last row of each set of data separated by a
>> > blank
>> > row),
>> >
>> > IF (Cell = 2) Then
>> > Insert 28 rows
>> >
>> > IF (Cell = 3) Then
>> > Insert 27 rows
>> >
>> > IF (Cell = 4) Then
>> > Insert 26 rows
>> >
>> > ETC.ETC....
>> >
>> > That would make each grouping of data have the exact same amount of
>> > rows,
>> > which is what I NEED to continue with my project. Need more
>> > clarification,
>> > please ask. THANKS!!!!!!
>>
>>
>>

Right, that makes sense, but how do I select the blank spaces first? I
know I'm too demanding.... Thanks!!!

"Don Guillett" wrote:

> IF?? I understand your question
>
> ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert
> --
> Don Guillett
> SalesAid Software
> dguillett1@austin.rr.com
> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
> message news:1DA86C5D-AF33-4EC4-B72F-F970FA3DB768@microsoft.com...
> > How do I get it to select the cells right above the blank ones? Thanks!!!
> >
> > "Don Guillett" wrote:
> >
> >> something like
> >>
> >> Sub insertrowssize()
> >> ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
> >> End Sub
> >> --
> >> Don Guillett
> >> SalesAid Software
> >> dguillett1@austin.rr.com
> >> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote
> >> in
> >> message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
> >> > Okay, I'm trying to do something very strange, but I have to find a way
> >> > to
> >> > get all the data in an orderly fashion. I want to do the following:
> >> >
> >> > Seek the blank rows and select each cell one up from the blanks. For
> >> > each
> >> > selection(essentially the last row of each set of data separated by a
> >> > blank
> >> > row),
> >> >
> >> > IF (Cell = 2) Then
> >> > Insert 28 rows
> >> >
> >> > IF (Cell = 3) Then
> >> > Insert 27 rows
> >> >
> >> > IF (Cell = 4) Then
> >> > Insert 26 rows
> >> >
> >> > ETC.ETC....
> >> >
> >> > That would make each grouping of data have the exact same amount of
> >> > rows,
> >> > which is what I NEED to continue with my project. Need more
> >> > clarification,
> >> > please ask. THANKS!!!!!!
> >>
> >>
> >>
>
>
>

Also, how do I input that into an If Statement? I tried to just do

If (Cell = 16) Then
ActiveCell.offset(-1).Resize(14 - Range("a1")).EntireRow.Insert
End If

But that didn't work

I know I'm missin somethin...


"Don Guillett" wrote:

> IF?? I understand your question
>
> ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert
> --
> Don Guillett
> SalesAid Software
> dguillett1@austin.rr.com
> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
> message news:1DA86C5D-AF33-4EC4-B72F-F970FA3DB768@microsoft.com...
> > How do I get it to select the cells right above the blank ones? Thanks!!!
> >
> > "Don Guillett" wrote:
> >
> >> something like
> >>
> >> Sub insertrowssize()
> >> ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
> >> End Sub
> >> --
> >> Don Guillett
> >> SalesAid Software
> >> dguillett1@austin.rr.com
> >> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote
> >> in
> >> message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
> >> > Okay, I'm trying to do something very strange, but I have to find a way
> >> > to
> >> > get all the data in an orderly fashion. I want to do the following:
> >> >
> >> > Seek the blank rows and select each cell one up from the blanks. For
> >> > each
> >> > selection(essentially the last row of each set of data separated by a
> >> > blank
> >> > row),
> >> >
> >> > IF (Cell = 2) Then
> >> > Insert 28 rows
> >> >
> >> > IF (Cell = 3) Then
> >> > Insert 27 rows
> >> >
> >> > IF (Cell = 4) Then
> >> > Insert 26 rows
> >> >
> >> > ETC.ETC....
> >> >
> >> > That would make each grouping of data have the exact same amount of
> >> > rows,
> >> > which is what I NEED to continue with my project. Need more
> >> > clarification,
> >> > please ask. THANKS!!!!!!
> >>
> >>
> >>
>
>
>

nextblankrow=range("a1").end(xldown).row+1

so maybe this would work. not tested

range("a1").end(xldown).row+1.Resize(30 - Range("a1")).EntireRow.Insert


--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote in
message news:EB21C767-9CDA-4B28-BD9B-378FF4F29A96@microsoft.com...
> Also, how do I input that into an If Statement? I tried to just do
>
> If (Cell = 16) Then
> ActiveCell.offset(-1).Resize(14 - Range("a1")).EntireRow.Insert
> End If
>
> But that didn't work
>
> I know I'm missin somethin...
>
>
> "Don Guillett" wrote:
>
>> IF?? I understand your question
>>
>> ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert
>> --
>> Don Guillett
>> SalesAid Software
>> dguillett1@austin.rr.com
>> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com> wrote
>> in
>> message news:1DA86C5D-AF33-4EC4-B72F-F970FA3DB768@microsoft.com...
>> > How do I get it to select the cells right above the blank ones?
>> > Thanks!!!
>> >
>> > "Don Guillett" wrote:
>> >
>> >> something like
>> >>
>> >> Sub insertrowssize()
>> >> ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
>> >> End Sub
>> >> --
>> >> Don Guillett
>> >> SalesAid Software
>> >> dguillett1@austin.rr.com
>> >> "bodhisatvaofboogie" <bodhisatvaofboogie@discussions.microsoft.com>
>> >> wrote
>> >> in
>> >> message news:7FFE0C7A-6998-4E45-864A-5F53395B0213@microsoft.com...
>> >> > Okay, I'm trying to do something very strange, but I have to find a
>> >> > way
>> >> > to
>> >> > get all the data in an orderly fashion. I want to do the following:
>> >> >
>> >> > Seek the blank rows and select each cell one up from the blanks.
>> >> > For
>> >> > each
>> >> > selection(essentially the last row of each set of data separated by
>> >> > a
>> >> > blank
>> >> > row),
>> >> >
>> >> > IF (Cell = 2) Then
>> >> > Insert 28 rows
>> >> >
>> >> > IF (Cell = 3) Then
>> >> > Insert 27 rows
>> >> >
>> >> > IF (Cell = 4) Then
>> >> > Insert 26 rows
>> >> >
>> >> > ETC.ETC....
>> >> >
>> >> > That would make each grouping of data have the exact same amount of
>> >> > rows,
>> >> > which is what I NEED to continue with my project. Need more
>> >> > clarification,
>> >> > please ask. THANKS!!!!!!
>> >>
>> >>
>> >>
>>
>>
>>