Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do I insert Item numbers | Excel Discussion (Misc queries) | |||
I can't insert a calculated item in a pivot table | Excel Discussion (Misc queries) | |||
automatically insert date when I scan an item | Excel Discussion (Misc queries) | |||
Removing a subtotal from an insert item in a pivot table | Excel Discussion (Misc queries) | |||
Why is the menu item "Insert - Name" greyed out? | Excel Discussion (Misc queries) |