Inserting blank rows to seperate data by Date

[Bytor47]

I am trying to insert some blank rows into a spreadsheet to break up each section of data.

I have found a bit of code that works based on a column of text data but it will not work with a column containing dates.

Please Login or Register  to view this content.

I keep getting a runtime error 13 on the Elseif line.

It works fine if I use Column I.

Column C contains Date/Time (yyyy/mm/dd hh:mm:ss) info and I only want to insert a line based on the Date.
Any help is appreciated.

[Domski]

Hi,

Not sure why you would get that error, the code should run fine. To split out by date though you would need to use:

Please Login or Register  to view this content.

Dom

[arlu1201]

Can you attach the sample workbook? I will look into it right away.

[Bytor47]

While putting together the sample spreadsheet, I found that some data in the column was not as expected. I guess it had an issue comparing different data types and that was causing the runtime error.

I have since fixed up my other code so I have consistant data and this portion works perfectly with the Int() modification.

Thanks to all for your help.