Macro to insert row

[mewalker0]

Need to find a macro that will check the value "DATE" of a cell and insert a row if the cell below it is greater.

 

[tactps]

Sub macro()
If ActiveCell.Value < ActiveCell.Offset(1, 0).Value Then ActiveCell.Offset(1, 0).EntireRow.Insert
End Sub

You will need to add in some sort of loop to keep it running, eg:
Sub macro()
counter = 1
do until counter = 500
If ActiveCell.Value < ActiveCell.Offset(1, 0).Value Then ActiveCell.Offset(1, 0).EntireRow.Insert
if activecell.offset(1,0).text = "" then activecell.offset(1,0).select
activecell.offset(1,0).select
counter = counter + 1
loop
End Sub

 

[Smitty]

Welcome to the Board!

How about this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> InsertRow()
    <SPAN style="color:#00007F">If</SPAN> ActiveCell.Offset(1, 0).Value > ActiveCell.Value <SPAN style="color:#00007F">Then</SPAN> ActiveCell.Offset(1, 0).EntireRow.Insert
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Smitty

 

[tactps]

Looks a lot like mine, Smitty (lol) - Beat you again! Hope you are well.

 

[mewalker0]

Thanks for the FAST help.

 

[mewalker0]

That works great but what would I have to change to make it look at a range in a collumn instead of starting on the active cell? Looking for a way to add this , run the macro and have if just look within a range.