Reiterate group of columns based on cell value

[barryk0211]

I have a start date and end date. For each quarter I want to automatically create a group of columns (L:Q). Once it gets to zero quarter remaining the program ends.

 

[Rijnsent]

Hi Barry, welcome to the forum. What is your question? In your screenshot you'll have 18 quarters between start date and end date and only 6 columns, what's the idea there?
Thanks for some clarification!

 

[barryk0211]

Hi Barry, welcome to the forum. What is your question? In your screenshot you'll have 18 quarters between start date and end date and only 6 columns, what's the idea there?
Thanks for some clarification!

Thank you.

The project is to create a worksheet that automatically adds quarters based on the amount of quarters in the project (cell value). So from columns A through K will be a grand total SUMIF and the rest of the worksheet will be duplicates of columns L:Q (quarter).

So I'd like L:Q repeated based on the cell value in a specific cell.

Let me know if you'd like for me to elaborate, I appreciate the help!

 

[Rijnsent]

Hi Barry,
that does make a bit more sense . So you probably are looking for some VBA code to copy column L:Q and paste it after your current data. Hereby some code to get you started. Macro1 is the one I recorded copy-inserting columns C:E and CopyMeNTimes is the macro I created using a bit of that code.

Sub Macro1()
'
' Macro1 Macro

    Columns("C:E").Select
    Selection.Copy
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Columns("C:E").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Range("C1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("G6").Select
End Sub


Sub CopyMeNTimes()

n = Range("B1").Value

If n > 0 Then
    For c = 1 To n
        Columns("C:E").Copy
        Columns("F:F").Insert Shift:=xlToRight
        Range("C1").Offset(0, c * 3).Value = c
        Application.CutCopyMode = False
    Next c
End If

End Sub

Hope that gets you started, if you want to learn some more VBA, try e.g. Free VBA Training Course
Cheers