Prev: Conditional unlock for cells
Next: Open TIF or MDI files in Excel
From: eva cheng on 1 Apr 2010 06:04
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
From: Mike H on 1 Apr 2010 06:19
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
From: ozgrid.com on 1 Apr 2010 21:51
I suggest NOT inserting blank rows in you table and simply increase row
heights instead.



--
Regards
Dave Hawley
www.ozgrid.com
"eva cheng" <evacheng(a)discussions.microsoft.com> wrote in message
news:818BC1B2-E367-4048-9794-01214BF8AAAD(a)microsoft.com...
> 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

 | 
Pages: 1
Prev: Conditional unlock for cells
Next: Open TIF or MDI files in Excel