Hi I have a few files at work and in a column "J" I have different dates. For example from J2:J11 I have 01.01.2011, then from J12:J53 i have 17.01.2011 and so on to the end (more than 10 000 rows full with dates). My question is if there is a way with VBA marco to insert a blank row after the end of every date. (After J11 then after J53, so everytime the date change it will insert a blank row.) Thank you in advanced
P.S. Can't provide the files, 'cos it's a classified
It's easy to provide a "declassified" example file, right?
This little macro should do that:
Option Explicit Sub InsertRowsAtChanges() Dim LR As Long, Rw As Long LR = Range("J" & Rows.Count).End(xlUp).Row For Rw = LR To 2 Step -1 If Range("J" & Rw) <> Range("J" & Rw - 1) Then Rows(Rw).Insert xlShiftDown Rw = Rw - 1 End If Next Rw End Sub
_________________
Microsoft MVP 2010 - Excel
Visit: Jerry Beaucaire's Excel Files & Macros
If you've been given good help, use theicon below to give reputation feedback, it is appreciated.
Always put your code between code tags. [CODE] your code here [/CODE]
“None of us is as good as all of us” - Ray Kroc
“Actually, I *am* a rocket scientist.” - JB (little ones count!)
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Reply With Quote
Bookmarks