Good mornig, pls help me, i want insert 3 rows when the data changed
Colum A
Row 1 920
Row 2 920
Row 3 920
Row 4 728
Row 5 661

I want insertation automatique 3 rows atfter Rows3 and after rows4.
Thans so much.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

Try this macro

Sub AddRows()
Dim lrow As Long

For lrow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(lrow, 1) < Cells(lrow - 1, 1) Then _
Cells(lrow, 1).Range("A1:A3").EntireRow.Insert
Next lrow

End Sub



--
Regards
Dave Hawley
www.ozgrid.com
"tran1728" wrote in message
...
Good mornig, pls help me, i want insert 3 rows when the data changed
Colum A
Row 1 920
Row 2 920
Row 3 920
Row 4 728
Row 5 661

I want insertation automatique 3 rows atfter Rows3 and after rows4.
Thans so much.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

Thank you so much, it is OK.



"ozgrid.com" wrote:

Try this macro

Sub AddRows()
Dim lrow As Long

For lrow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(lrow, 1) < Cells(lrow - 1, 1) Then _
Cells(lrow, 1).Range("A1:A3").EntireRow.Insert
Next lrow

End Sub



--
Regards
Dave Hawley
www.ozgrid.com
"tran1728" wrote in message
...
Good mornig, pls help me, i want insert 3 rows when the data changed
Colum A
Row 1 920
Row 2 920
Row 3 920
Row 4 728
Row 5 661

I want insertation automatique 3 rows atfter Rows3 and after rows4.
Thans so much.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc