P
Pierre
I'm using this code to add 3 blank rows between existing records. How
might I populate the new cells between records just in column B with a
predefined group of values located on another worksheet? These will
not change between rows, but need to be inserted in all the new rows,
in column B. Have tried highlighting the column, F5 for going to
special, blanks, and pasting. . .it works intermittently (getting
frequent paste same size and shape errors), and I'm afraid I need
something more reliable. Thoughts? Many thanks.
Pierre
Sub Insert3Rows_into_927ver2()
Application.ScreenUpdating = False
Sheets("927VER2").Select
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 3
For r = r To 2 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub
might I populate the new cells between records just in column B with a
predefined group of values located on another worksheet? These will
not change between rows, but need to be inserted in all the new rows,
in column B. Have tried highlighting the column, F5 for going to
special, blanks, and pasting. . .it works intermittently (getting
frequent paste same size and shape errors), and I'm afraid I need
something more reliable. Thoughts? Many thanks.
Pierre
Sub Insert3Rows_into_927ver2()
Application.ScreenUpdating = False
Sheets("927VER2").Select
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 3
For r = r To 2 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub