H
Having A Hard Time
Hi,
I am having a very had time making this work. I was given
a modification to some code I have that will allow an
inout box to appear asking for a value but the code will
not copy the rows and formulas as I need them...Can
someone please help me make this work? I am trying to get
it to display the input box, then after a value is put in
there, the rows and formulas will be copied to the next
row...This modification does accept the input but it
inserts a blank row then a row with the copied formulas
instaed of however many rows stated with the formulas also
copied and no blanks...
Sub insertrowswithformulas()
nrows = InputBox("How many rows")
ActiveCell.Resize(nrows, 1).EntireRow.Insert
With ActiveCell
...EntireRow.Insert
Range(Cells(.Row - 2, "I"), Cells(.Row - 2, "AL")).Copy _
Cells(.Row - 1, "I")
Range(Cells(.Row - 2, "B"), Cells(.Row - 2, "G")).Copy _
Cells(.Row - 1, "B")
End With
End Sub
I am having a very had time making this work. I was given
a modification to some code I have that will allow an
inout box to appear asking for a value but the code will
not copy the rows and formulas as I need them...Can
someone please help me make this work? I am trying to get
it to display the input box, then after a value is put in
there, the rows and formulas will be copied to the next
row...This modification does accept the input but it
inserts a blank row then a row with the copied formulas
instaed of however many rows stated with the formulas also
copied and no blanks...
Sub insertrowswithformulas()
nrows = InputBox("How many rows")
ActiveCell.Resize(nrows, 1).EntireRow.Insert
With ActiveCell
...EntireRow.Insert
Range(Cells(.Row - 2, "I"), Cells(.Row - 2, "AL")).Copy _
Cells(.Row - 1, "I")
Range(Cells(.Row - 2, "B"), Cells(.Row - 2, "G")).Copy _
Cells(.Row - 1, "B")
End With
End Sub