insert rows automatically

[sbrown64]

HiI have created a table & in column B I enter a number (i.e 3) is there a way to automatically add 2 rows below the line, so if the number was 5, it would add 4 rows below?RegardsStephen​

 

[Fluff]

That code is not automatic & needs to be run manually. It will reset the event handler & should then mean that if you change a value in col B the other code should then work.

 

[sbrown64]

ok, so do i put that code in a module? then run it as a macro everytime i enter data or is there another way?

 

[Fluff]

If you just put the cursor on the line that says

Sub Improve()

and then press F5.
Then go back to the workbook & enter a value of 2 or greater into col B.

 

[sbrown64]

Hi again, just followed your instructions and nothing happened?

 

[Fluff]

You are entering the numbers into col B manually aren't you?

 

[sbrown64]

yes, i tab to column b enter a number and then press tab/enter to the next cell and nothing happens.

 

[Fluff]

In that case I don't understand why it's not working for you. Especially as the original code works in the file you supplied.
Try removing that code & using

Private Sub Worksheet_Change(ByVal Target As Range)
   Stop
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Value < 2 Then Exit Sub
   On Error GoTo Xit
   Application.EnableEvents = False
   If Target.Column = 2 And IsNumeric(Target.Value) Then Rows(Target.Row).Offset(1).Resize(Target.Value - 1).Insert
Xit:
   If Err.Number <> 0 Then MsgBox "Oops"
   Application.EnableEvents = True
End Sub

When you enter a number in col B the code window should open up with the "Stop" line highlighted in yellow.
Does that happen?
If so step through the code line by line using F8. What happens?

 

[sbrown64]

hi
pressing F8 just tabs through the lines of code (each line being yellow) until the end, if i then go back to the sheet nothing has changed and if i press tab to a new line it then goes back to the code page.

 

[Fluff]

Did the part in red here get highlighted yellow

If Target.Column = 2 And IsNumeric(Target.Value) Then [COLOR=#ff0000]Rows(Target.Row).Offset(1).Resize(Target.Value - 1).Insert[/COLOR]

The first part of that will get highlighted, but does the second part?

 

[sbrown64]

hi
it all got highlighted