How to copy a column to another column in another workbook according to today's date using VBA?

[MazExpress]

I'm totally new to VBA. I want to build a code that can DAILY copy values of column B in a workbook named by today's date (picture 1)

to sheet 1 in another workbook named Credit (picture 2) in the column corresponding to today's date. The column headers of the file Credit is the days of every month starting from column E.

 

[Trevor G]

Welcome to the Forum MazExpress,

See if this will do what you want.

Sub findDate()
'Declare toDay
Dim toDay As String
toDay = Format(Date, "dd-mm-yyyy")
ThisWorkbook.Sheets(toDay).Activate
Range(Range("G2"), Range("G2").End(xlDown)).Copy
Workbooks.Open "add path here/Credit.xlsx" 'Enter the path and change the file extension if needed
Sheets("Sheet1").Activate
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[MazExpress]

I'll try it. Really appreciated. Thank you so much.

 

[MazExpress]

It worked well. Many thanks.