Adding additional rows to table

[Aussiebear]

The following code adds an additional row after each odd row


Sub Tbl_Add_Rows()
'In the selected tbl, insert a row after each odd row.
Dim LastRow As Integer
Application.ScreenUpdating = False
LastRow = selection.Tables(1).rows.count
If LastRow Mod 2 = 0 Then
LastRow = LastRow
Else: LastRow = LastRow - 1
End If
For i = LastRow To 2 Step -2
selection.Tables(1).rows(i).Select
With selection.Tables(1).rows(i)
selection.InsertRowsAbove 1
End With
Next i
Application.ScreenUpdating = True
End Sub

I'm assuming then that if one knows the "pattern" of when you would like a row inserted you need to adapt either Mod(?) or For i = LastRow to 2 step(?) or both to adjust the insertion point. Is this correct?

[Aussiebear]

Anyone care to comment?

[georgiboy]

The MOD part looks if the last row of the table is odd, if it is it subtracts 1 from the last row variable to make it even. So I suppose if you want it to start from an odd row you could omit that part.

With Step set to -2.
MOD part removed:


1



2







3



4







5



6







7




MOD part kept:


1







2



3







4



5







6



7





As for the loop part, you could adjust the step to make it insert rows every 3 or 4 etc. If you wanted to insert a row every other row (Step -1) then you would need to omit the MOD part unless your table ended on an even row, otherwise it will not add a row until the first even row.

For example with Step set to -1 and a table with 7 rows.
With MOD:


1







2







3







4







5







6



7




Without MOD:


1







2







3







4







5







6







7

[Aussiebear]

Interesting. As i was trying to understand the initial concept was to insert a new row every third row, and that there must have been a header row.

[gmaxey]

Ted,

I think I would use a Do ... Loop Until with an error handler. Also I wouldn't use the selection object:


Sub Tbl_Add_RowsII()
Dim oTbl As Table
Dim oRow As Row
Dim lngSeq As Long
Application.ScreenUpdating = False
Set oTbl = Selection.Tables(1)
lngSeq = 2 'Use 2 to insert row after each odd or even row. Use 3 for every third, 4 for every fourth, etc.)
Set oRow = oTbl.Rows(lngSeq) 'For every odd row
'Set oRow = oTbl.Rows(lngSeq + 1) 'For every even row, or other sequence (e.g., every third, fourth, fifth etc.)
Do
oTbl.Rows.Add oRow
On Error GoTo Err_Index
Set oRow = oTbl.Rows(oRow.Index + lngSeq)
Loop Until oRow.Index = oTbl.Rows.Count
oTbl.Rows.Add oRow
lbl_Exit:
Exit Sub
Err_Index:
If oTbl.Rows.Last.Index - oRow.Index = lngSeq - 1 Then
oTbl.Rows.Add
End If
Resume lbl_Exit
End Sub

[Aussiebear]

Now thats a different approach to the subject, and conversely for inserting extra columns it could be



Sub Tbl_Add_ColumnsII()
Dim oTbl As Table
Dim oCol As Column
Dim lngSeq As Long
Application.ScreenUpdating = False
Set oTbl = Selection.Tables(1)
lngSeq = 2 'Use 2 to insert row after each odd or even Column. Use 3 for every third, 4 for every fourth, etc.)
Set oCol = oTbl.Columns(lngSeq) 'For every odd Column
'Set oCol = oTbl.Columns(lngSeq + 1) 'For every even Column, or other sequence (e.g., every third, fourth, fifth etc.)
Do
oTbl.Columns.Add oCol
On Error GoTo Err_Index
Set oCol = oTbl.Columns(oCol.Index + lngSeq)
Loop Until oCol.Index = oTbl.Columns.Count
oTbl.Columns.Add oCol
lbl_Exit:
Exit Sub
Err_Index:
If oTbl.Columns.Last.Index - oCol.Index = lngSeq - 1 Then
oTbl.Columns.Add
End If
Resume lbl_Exit
End Sub

[gmaxey]

Ted,

Yes. Then only thing I would do differently is:


Sub Tbl_Add_ColumnsII()
Dim oTbl As Table
Dim oCol As Column
Dim lngSeq As Long
Application.ScreenUpdating = False
Set oTbl = Selection.Tables(1)

lngSeq = 2 'Use 2 to insert row after each odd or even Column. Use 3 for every third, 4 for every fourth, etc.)
'Set oCol = oTbl.Columns(lngSeq) 'For every odd Column
Set oCol = oTbl.Columns(lngSeq + 1) 'For every even Column, or other sequence (e.g., every third, fourth, fifth etc.)
Do
oTbl.Columns.Add oCol
On Error GoTo Err_Index
Set oCol = oTbl.Columns(oCol.Index + lngSeq)
Loop Until oCol.Index = oTbl.Columns.Count
oTbl.Columns.Add oCol
lbl_Exit:
oTbl.AutoFitBehavior wdAutoFitWindow 'Added GKM
Exit Sub
Err_Index:
If oTbl.Columns.Last.Index - oCol.Index = lngSeq - 1 Then
oTbl.Columns.Add
End If
Resume lbl_Exit
End Sub

[Vladimir]

Hi! Since I am the one (vivka) who suggested the original code at a different forum, I can offer an improved version of it:

Sub Tbl_Add_Row()
'In the selected tbl, insert a row after each n-th row.

Dim LastRow As Integer, RemainderRows As Integer, CountBy As Integer
Application.ScreenUpdating = False

CountBy = InputBox("Enter the number to count rows by:", "ENTER A ROW AFTER EACH...")
LastRow = selection.Tables(1).rows.count
RemainderRows = LastRow \ CountBy

If LastRow Mod CountBy = 0 Then
LastRow = LastRow
Else: LastRow = CountBy * RemainderRows
End If
For i = LastRow To 2 Step -CountBy
selection.Tables(1).rows(i).Select
With selection.Tables(1).rows(i)
selection.InsertRowsBelow 1
End With
Next i
Application.ScreenUpdating = True
End Sub

[gmaxey]

Vivka,

This code doesn't address the question posted here. Code to insert a row after each odd row. Also, why do you declared some variables e.g., LastRow, Countby etc., but not others e.g., i?

[Vladimir]

gmaxey, thank you for your remarks! I'm still learning vba and, naturally, making mistakes. But, hopefully, I'm slowly progressing with the tips and codes from experts at different forums (you and Aussiebear are among those experts).

[Aussiebear]

... (you and Aussiebear are among those experts).. Tis only one there who's the "expert' Vladimir, and it definitely isn't me.

[Vladimir]

:rotlaugh: