Insert Row by a defined Number
 

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


--
comotoman
------------------------------------------------------------------------
comotoman's Profile: http://www.excelforum.com/member.php...o&userid=27292
View this thread: http://www.excelforum.com/showthread...hreadid=475101

comotoman Wrote:
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

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:


--
zero635
------------------------------------------------------------------------
zero635's Profile: http://www.excelforum.com/member.php...o&userid=24802
View this thread: http://www.excelforum.com/showthread...hreadid=475101

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


--
comotoman
------------------------------------------------------------------------
comotoman's Profile: http://www.excelforum.com/member.php...o&userid=27292
View this thread: http://www.excelforum.com/showthread...hreadid=475101

comotoman Wrote:
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

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


--
zero635
------------------------------------------------------------------------
zero635's Profile: http://www.excelforum.com/member.php...o&userid=24802
View this thread: http://www.excelforum.com/showthread...hreadid=475101

Thats it, thanks


--
comotoman
------------------------------------------------------------------------
comotoman's Profile: http://www.excelforum.com/member.php...o&userid=27292
View this thread: http://www.excelforum.com/showthread...hreadid=475101