Nasty IF Statement

[bodhisatvaofboogie]

Okay :

On Error Resume Next
Columns("A").SpecialCells(xlBlanks).Offset(-1).Select
On Error GoTo 0

This works up to here.....this is what I'm trying to accomplish after I have
that selected.....

If the value of the cell is equal to 16 then insert 14 rows, if the value is
15 then insert 15 rows, if the value 14 then insert 16 rows, if the value is
13 then insert 17 rows...etc etc on down the list. It's a pretty nasty
sounding IF statement, how do I get something like that to work and what
would the code look like??? THANKS!!!

THANKS!!!!!

[Barb Reinhardt]

I can't help with the code, but it looks like you need to insert 30 - (value
of cell) rows. Is this correct?

"bodhisatvaofboogie" wrote:

> Okay :
>
> On Error Resume Next
> Columns("A").SpecialCells(xlBlanks).Offset(-1).Select
> On Error GoTo 0
>
> This works up to here.....this is what I'm trying to accomplish after I have
> that selected.....
>
> If the value of the cell is equal to 16 then insert 14 rows, if the value is
> 15 then insert 15 rows, if the value 14 then insert 16 rows, if the value is
> 13 then insert 17 rows...etc etc on down the list. It's a pretty nasty
> sounding IF statement, how do I get something like that to work and what
> would the code look like??? THANKS!!!
>
> THANKS!!!!!

[JMB]

Is this along the lines of what you're thinking?

Range(ActiveCell, ActiveCell(30 - _
ActiveCell.Value, 1)).EntireRow.Insert


"Barb Reinhardt" wrote:

> I can't help with the code, but it looks like you need to insert 30 - (value
> of cell) rows. Is this correct?
>
> "bodhisatvaofboogie" wrote:
>
> > Okay :
> >
> > On Error Resume Next
> > Columns("A").SpecialCells(xlBlanks).Offset(-1).Select
> > On Error GoTo 0
> >
> > This works up to here.....this is what I'm trying to accomplish after I have
> > that selected.....
> >
> > If the value of the cell is equal to 16 then insert 14 rows, if the value is
> > 15 then insert 15 rows, if the value 14 then insert 16 rows, if the value is
> > 13 then insert 17 rows...etc etc on down the list. It's a pretty nasty
> > sounding IF statement, how do I get something like that to work and what
> > would the code look like??? THANKS!!!
> >
> > THANKS!!!!!

[Barb Reinhardt]

See JMBs response.

"bodhisatvaofboogie" wrote:

> Okay :
>
> On Error Resume Next
> Columns("A").SpecialCells(xlBlanks).Offset(-1).Select
> On Error GoTo 0
>
> This works up to here.....this is what I'm trying to accomplish after I have
> that selected.....
>
> If the value of the cell is equal to 16 then insert 14 rows, if the value is
> 15 then insert 15 rows, if the value 14 then insert 16 rows, if the value is
> 13 then insert 17 rows...etc etc on down the list. It's a pretty nasty
> sounding IF statement, how do I get something like that to work and what
> would the code look like??? THANKS!!!
>
> THANKS!!!!!