Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro for inserting one row between different data
Hi,
I am using excel 2003, my file looks like below order no invoice no amount 123 S1000 $10 234 S1000 $20 456 S1001 $30 123 S1001 $40 I want to use a macro to insert a blank row to separate different invoice no, how to write it ? Thanks eva cheng |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro for inserting one row between different data
Hi,
I have assumed your invoice numbers are in column B Sub Insert_Rows() 'insert a row at every name change in a column B Dim X As Long Set Sht = Sheets("Sheet1") MyColumn = "B" For X = Sht.Cells(Rows.Count, MyColumn).End(xlUp).Row To 3 Step -1 If Sht.Cells(X - 1, MyColumn) < Cells(X, MyColumn) Then Rows(X).Insert Next X End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "eva cheng" wrote: Hi, I am using excel 2003, my file looks like below order no invoice no amount 123 S1000 $10 234 S1000 $20 456 S1001 $30 123 S1001 $40 I want to use a macro to insert a blank row to separate different invoice no, how to write it ? Thanks eva cheng |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro for inserting one row between different data
I suggest NOT inserting blank rows in you table and simply increase row
heights instead. -- Regards Dave Hawley www.ozgrid.com "eva cheng" wrote in message ... Hi, I am using excel 2003, my file looks like below order no invoice no amount 123 S1000 $10 234 S1000 $20 456 S1001 $30 123 S1001 $40 I want to use a macro to insert a blank row to separate different invoice no, how to write it ? Thanks eva cheng |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inserting function into worksheet via macro | Excel Discussion (Misc queries) | |||
Macro Inserting a formula | Excel Discussion (Misc queries) | |||
Macro Help- Inserting Blank Rows | Excel Discussion (Misc queries) | |||
Pivot Table Macro not inserting all data fields | Excel Discussion (Misc queries) | |||
inserting row macro | Excel Discussion (Misc queries) |