View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Sam Sam is offline
external usenet poster
 
Posts: 19
Default Insert blank row macro question.


Sam wrote:
Hi Gang,

What is the VBA statement or sequence needed to insert a blank row in
between changes in a particular column? Say I have a column that has
the alphanumeric sequence of abc123. It then repeats 5 times downward
in the same column. Then the sequence changes to def456. How do I
insert a blank row in between the changes in sequence?

Thank you as always.


Sam

================================================== ====
My apologies I found Don Guillett had answered this question already.

Thank you though.

2 From: Don Guillett - view profile
Date: Fri, Feb 3 2006 9:00 am
Email: "Don Guillett"
Groups: microsoft.public.excel.misc
Not yet ratedRating:
show options
Reply | Reply to Author | Forward | Print | Individual Message | Show
original | Report Abuse | Find messages by this author


try this. the key is working from the bottom up instead of the top
down.


Sub insertrowifnotminusonerow()
lr = Cells(Rows.Count, "c").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i - 1, "c") < Cells(i, "c") Then Rows(i).Insert
Next i
End Sub


--
Don Guillett
SalesAid Software

"rtidrtid"
wrote in
message ...



- Hide quoted text -
- Show quoted text -

anyone a dab hand at Excel? I need a had creating a macro. What i have
is a column with numbers, for example



12222
12222
21111
21111
13333
13333



what i need is a macro which will insert a blank row after an identical
sequence of numbers, turning the above into



12222
12222



21111
21111



13333
13333



any ideas?



--
rtidrtid
------------------------------------------------------------------------
rtidrtid's Profile:
http://www.excelforum.com/member.php...o&userid=31148
View this thread: http://www.excelforum.com/showthread...hreadid=508130




Reply Rate this post: