copy data

[cg1980]

Hi
in the attached file, i want to copy paste 3 cells on a monthly frequency.

If you open the file, you can see the structure I mean:

Each beginining of month, I copy the 3 groups of cells on the first colum on the right

For instance, fisrt column are in s1, then at the beginning of the next month (column A are the dates), I copy S1 S2 S3 and past in T22-T23_T24
I continue in this way up to the end of the data set.
thanks if someone could help

[PCI]

Could we say that every beginning of the month you need the data from column "R" to "XX" to shift 1 column on the right and down 1 month according to the date in column "A"

[cg1980]

not exactly.
S2 S3 S4 cells are a block of cells that i need to replicate (formula Inside refering always to column R)

I need to shift 1 column of the right each beginning of month.

For instance S2toS4 are formula.

In line 23, I see that i am in a new month (see cells A22, we begin Feb 1992). So i Need to copy S2toS3 and paste those 3 cells one column on the right (so column T).

All block in red are just a copy past from the previous red block. But each month I shift 1 column on the right

[PCI]

You want insert a column to shift right all columns from S to ... X and to do it manually is not good ? or do you want something special?

[cg1980]

I attached some print screen with the différents steps detailed. I think my first message is not clear.
thanks again for your help

NB: I dont want to do it manually as I gave 1800 line and many other data. I was thinking to do it via VBA

[PCI]

OK, try next code and comment
When testing the code, I got some messages because there is some links to external data in the formulas: Should not happen for you ...!

Option Explicit

Sub Treat()
Dim LR  As Long, I As Long
Const SC As String = "S"            '  Starting  Column
Const SR As Integer = 2             '  Starting Row
Dim WkM As Integer          '  Working  Month
Dim WkColOff As Integer       '  Working Column Offset
    Application.ScreenUpdating = False
    WkM = Month(Cells(SR, "A"))
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For I = SR + 1 To LR
        If (Month(Cells(I, "A")) <> WkM) Then
            WkColOff = WkColOff + 1
            Cells(SR, SC).Resize(3, 1).Copy Destination:=Cells(I, SC).Offset(0, WkColOff)
            WkM = Month(Cells(I, "A"))
        End If
    Next
    Application.ScreenUpdating = True
End Sub

[cg1980]

great. thanks very much. I ll test it. Your have really a high level!!