Prev: Installation Issues
Next: Sumifs
From: Katerinia on 6 Apr 2010 14:31
I need a macro
that will insert a number of blank rows
based on the number of months between a start and end date
and then copy the information in the reference row to the new blank rows.

repeat for each start and end date sequence.

The records are over 8,350.. so ill also need some idea how to get it to
stop when it fills the worksheet so i can transfer those into another workbook

From: Bob Phillips on 6 Apr 2010 15:02
Assuming start date in column A, end date in column B

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long
Dim NumRows As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1

NumRows = .Cells(i, "B").Value2 - .Cells(i, "A").Value2
If NumRows > 0 Then

.Rows(i + 1).Resize(NumRows).Insert
.Rows(i).Copy .Cells(i + 1, "A").Resize(NumRows)
End If
Next i
End With

End Sub


--

HTH

Bob

"Katerinia" <Katerinia(a)discussions.microsoft.com> wrote in message
news:C8AE1783-91D1-4DC3-9D76-6F18BBBC7369(a)microsoft.com...
>I need a macro
> that will insert a number of blank rows
> based on the number of months between a start and end date
> and then copy the information in the reference row to the new blank rows.
>
> repeat for each start and end date sequence.
>
> The records are over 8,350.. so ill also need some idea how to get it to
> stop when it fills the worksheet so i can transfer those into another
> workbook
>


 | 
Pages: 1
Prev: Installation Issues
Next: Sumifs