Macro using for loop to repeat rows based on from and to date columns

[haribabu]

Hello Excel users,
i am trying to create a macro where i can repeat rows based on from and to date columns.
So is there any way using for loop which can get the below desired output in csv by using macro?



INPUT from excel sheet

From	To	Product	Growth
19-09-2018	25-09-2018	A	2%
23-09-2018	27-09-2018	B	3%

<tbody>
</tbody>

Expected Output in CSV

Date	Product	Growth
19-09-2018	A	2%
20-09-2018	A	2%
21-09-2018	A	2%
22-09-2018	A	2%
23-09-2018	A	2%
24-09-2018	A	2%
25-09-2018	A	2%
23-09-2018	B	3%
24-09-2018	B	3%
25-09-2018	B	3%
26-09-2018	B	3%
27-09-2018	B	3%

<tbody>
</tbody>

Thanks a lot

 

[John_w]

Try this macro:

Public Sub Create_CSV_File()

    Dim csvFile As Variant
    Dim csvData As String
    Dim lastRow As Long, r As Long
    Dim d As Date
    
    csvFile = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path, FileFilter:="CSV file (*.csv), *.csv", Title:="CSV output file")
 
    If csvFile <> False Then
        With ActiveSheet
            lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
            csvData = "Date,Product,Growth" & vbCrLf
            For r = 2 To lastRow
                For d = .Cells(r, "A").Value To .Cells(r, "B").Value
                    csvData = csvData & Format(d, "dd-mm-yyyy") & "," & .Cells(r, "C").Value & "," & .Cells(r, "D").Text & vbCrLf
                Next
            Next
        End With
        Open csvFile For Output As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
        Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , csvData
        Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
    End If
    
End Sub

 

[haribabu]

Thanks a lot John
It works like a charm