insert rows between sequence gaps

[jacob128]

I recently found a thread with the same name (http://www.mrexcel.com/forum/showthread.php?t=420750), and two people had posted codes which were said to insert rows between sequence gaps, i.e. making 1,2,4,5 : 1,2,3,4,5 in column b (for example), but when I have tried using the codes, neither actually do anything to the active sheet. anyone know why this may be?

Code 1: Zack Barresse

Sub ExpandDataPlease()    

Dim i As Long, iRow As Long     
With ActiveSheet         
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1             
.Rows(i).Cut .Rows(.Cells(i, 1).Value)         
Next i     
End With 
End Sub

Code 2: Texasalynn

Sub insertSeqRows() 
Dim LR As Long, i As Long, x As Long 
LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' get last row 
For i = LR To 2 Step -1    
x = Cells(i, "A").Value - Cells(i - 1, "A").Value       
If x <> 1 Then         
Rows(i).Resize(x - 1).EntireRow.Insert     
End If      
Next i 
End Sub

(both formatted properly in in other thread)

 

[AlphaFrog]

codes which were said to insert rows between sequence gaps, i.e. making 1,2,4,5 : 1,2,3,4,5 in column b (for example)

The two macros insert rows based on the sequence in column A. Your question implies your sequence is in column B.

 

[jacob128]

according to zack:

It also assumes your data is in cols A & B (col A houses a number of the destination row, col B houses your values)

which is how i've set it up... (and i get the error type:mismatch if i dont have them set up as quoted above)

 

[jacob128]

problem solved using first code here http://excel.bigresource.com/Track/excel-jjR6W5lE/

please note if using this code, you need to insert the second number down in column A (ONLY COLUMN A, not the rest of your data) if you use this method.

Good luck,

Jacob