Insert row between different item
 

Dear all,

Please see the following data:

Part no. Loacation Date
637A A1 10-MAY-2004
807K B1 11-MAY-2004
639A B2 12-MAY-2004
807K C1 12-MAY-2004
807K D1 15-MAY-2004


How can I use macro or function to sort the data by part
no. and then insert a row between each different part no
automatically. Like the below result:

Part no. Loacation Date
637A A1 10-MAY-2004

639A B2 12-MAY-2004

807K B1 11-MAY-2004
807K C1 12-MAY-2004
807K D1 15-MAY-2004

Insert row between different item
 

do it manually and record it in a new macro
Tools - Macro - Record new macro

open the new macro and edit to your suit
Tools - Macro - Macros - Edit


---
Message posted from http://www.ExcelForum.com/

Insert row between different item
 

Try

Sub InsertRow()
Dim lRow As Long

For lRow = Range("a" & Rows.Count).End(xlUp).Row To 2 Step -1
If Cells(lRow - 1, "a").Value < "" And Cells(lRow, "a").Value <
"" Then
If Cells(lRow, "a").Value < Cells(lRow - 1, "a") Then
Rows(lRow).Insert
End If
End If
Next lRow
End Su

--
Message posted from http://www.ExcelForum.com