Insert Row by a defined Number

C

comotoman

I have a macro that inserts a line, how can i modify it to insert a line
by a number in a cell corresponding to the row number?

ex:

J8: "22"
Inserts a new row between rows 22 and 23

J8:"10"
Inserts a new row between rows 10 and 11
 
Z

zero635

comotoman said:
I have a macro that inserts a line, how can i modify it to insert a line
by a number in a cell corresponding to the row number?

ex:

J8: "22"
Inserts a new row between rows 22 and 23

J8:"10"
Inserts a new row between rows 10 and 11
Click to expand...

Comotoman,

Not sure if this is what you are looking for but hope it helps. Let me
know.

Sub InsertRow()
Rows("23:23").Select
Selection.Insert Shift:=xlDown
Rows("11:11").Select
Selection.Insert Shift:=xlDown
End Sub


This will insert rows between 22 and 23 and 10 and 11.

Good Luck,
zero :cool:
 
C

comotoman

Sub InsertRow()
Rows("23:23").Select
Selection.Insert Shift:=xlDown
Rows("11:11").Select
Selection.Insert Shift:=xlDown
End Sub

i need the row number determined by a cell on the active sheet.

j8: '15'
Sub InsertRow()
Rows("15:15").Select
Selection.Insert Shift:=xlDown
End Sub
 
Z

zero635

comotoman said:
Sub InsertRow()
Rows("23:23").Select
Selection.Insert Shift:=xlDown
Rows("11:11").Select
Selection.Insert Shift:=xlDown
End Sub

i need the row number determined by a cell on the active sheet.

j8: '15'
Sub InsertRow()
Rows("15:15").Select
Selection.Insert Shift:=xlDown
End Sub
Click to expand...

I tried this code and based on the cell value in J8 it will jump down
to that line and insert a row.

Sub Insert()
Rows(Range("j8")).Select
Selection.Insert Shift:=xlDown
End Sub

If you use this code it will place one under to insert under the value
of J8 or you could do negative to do it above.

Sub Insert()
Rows(Range("j8") + 1).Select
Selection.Insert Shift:=xlDown
End Sub

Maybe alittle closer to what you need?

zero
 
Top