VBA to insert row based on criteria

[Spartan300]

Hi,

I have a sheet of around 5000 rows, I would like a macro to do some manual work for me.

Is it possible for a macro to insert a row if a "1" is present in column I. If possible I would like the row to be inserted above the 1.

Thanks

 

[geomincos]

Hi All,


how to insert a row above different content in the column use the formula unequal and interval validations as follow;


Example;
A B C
ID2 3 6
ID2 7 8
ID4 0 2
ID5 2 3
ID5 4 6
ID5 6 8
ID7 1 3
ID8 0 2
ID8 2 3






Result;
A B C
ID From To


ID2 0 3 (row inserted, interval validated)
ID2 3 6
ID2 6 7 (row inserted, interval validated)
ID2 7 8
ID4 0 2
ID5 0 2 (row inserted, interval validated)
ID5 2 3
ID5 3 4 (row inserted, interval validated)
ID5 4 6
ID5 6 8
ID7 0 1 (row inserted, interval validated)
ID7 1 3
ID8 0 2
ID8 2 3




I greatly appreciate your help. Thank you