Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting a row (update)
I am currently using this VBA, but would like for it to insert (2) rows
instead of (1), how can I do that? TFTH, Tom Sub InsertRows() StartRow = 2 'Change the 2 to the row actual data start DataColumn = 5 'Change the 1 to the column where your data is i = StartRow + 1 While Cells(i, DataColumn) < "" If Cells(i, DataColumn) < Cells(i - 1, DataColumn) Then Cells(i, DataColumn).EntireRow.Insert i = i + 1 End If i = i + 1 Wend End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting a row (update)
Sometimes life gets a lot easier if you start at the bottom and work your way up
to the top. Option Explicit Sub InsertRows() Dim StartRow As Long Dim DataColumn As Long Dim LastRow As Long Dim iRow As Long With ActiveSheet StartRow = 2 DataColumn = 5 LastRow = .Cells(.Rows.Count, DataColumn).End(xlUp).Row For iRow = LastRow To StartRow Step -1 If .Cells(iRow, DataColumn).Value _ = .Cells(iRow - 1, DataColumn).Value Then 'do nothing Else .Rows(iRow).Resize(2).Insert End If Next iRow End With End Sub Tom wrote: I am currently using this VBA, but would like for it to insert (2) rows instead of (1), how can I do that? TFTH, Tom Sub InsertRows() StartRow = 2 'Change the 2 to the row actual data start DataColumn = 5 'Change the 1 to the column where your data is i = StartRow + 1 While Cells(i, DataColumn) < "" If Cells(i, DataColumn) < Cells(i - 1, DataColumn) Then Cells(i, DataColumn).EntireRow.Insert i = i + 1 End If i = i + 1 Wend End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting a row (update)
Worked perfectly!
Thanks. "Dave Peterson" wrote: Sometimes life gets a lot easier if you start at the bottom and work your way up to the top. Option Explicit Sub InsertRows() Dim StartRow As Long Dim DataColumn As Long Dim LastRow As Long Dim iRow As Long With ActiveSheet StartRow = 2 DataColumn = 5 LastRow = .Cells(.Rows.Count, DataColumn).End(xlUp).Row For iRow = LastRow To StartRow Step -1 If .Cells(iRow, DataColumn).Value _ = .Cells(iRow - 1, DataColumn).Value Then 'do nothing Else .Rows(iRow).Resize(2).Insert End If Next iRow End With End Sub Tom wrote: I am currently using this VBA, but would like for it to insert (2) rows instead of (1), how can I do that? TFTH, Tom Sub InsertRows() StartRow = 2 'Change the 2 to the row actual data start DataColumn = 5 'Change the 1 to the column where your data is i = StartRow + 1 While Cells(i, DataColumn) < "" If Cells(i, DataColumn) < Cells(i - 1, DataColumn) Then Cells(i, DataColumn).EntireRow.Insert i = i + 1 End If i = i + 1 Wend End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
options to update automatic links | Excel Worksheet Functions | |||
Prompt to update links | Links and Linking in Excel | |||
Update links prompt not wanted | Excel Discussion (Misc queries) | |||
How can a formula in a cell automatically update when inserting a. | Excel Worksheet Functions | |||
Auto Update upon shifting, inserting or deleting | Excel Worksheet Functions |