Copy data from one workbook and paste to another workbook beside the specified date

Hello Everyone,

I'm cracking my head over VBA codes that would help me, copy a set of data from a specific range in a workbook and paste it to another workbook beside the dates in a row. I quite spent some time looking for solutions but most of the answers were for sheet to sheet transfers.
Ideally what I'm trying to do is

1. Copy data from customer workbook range A2:F5000 from Sheet 1
2. Activate target workbook and Sheet 1 and search in column B for the date that is equal to a date specified in Cell A1 in the target workbook
3. Paste the data in the target workbook beside the corresponding date
4. Save and close the customer workbook.

I have my code below but the search and the paste part is my issue.

I would appreciate it if someone could help me.Thanks

Sub Import()

Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook

' make assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook

' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)

Set customerWorkbook = Application.Workbooks.Open(customerFilename)

' copy data from customer to target workbook
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)

targetSheet.Range("A2", "F50000").Value = sourceSheet.Range("A2", "F50000").Value

'should find search for a corresponding to a cell value in cell A1 in destination workbook and paste the data beside it

' Close customer workbook
customerWorkbook.Close

MsgBox "Imported"

End Sub

Thanks Dave,

I uploaded the sample file that I'm working on. Basically the data in customer workbook will be transferred to Target workbook.

Thanks in advance.

Anyone could help me figure out what to do?

Please Login or Register  to view this content.

thanks

Hi Dave,

thanks so much works fine, quick question how to I change the code to include the data from the other dates?
such as include 15 October data and onward?

14-10-2015 04-01-53.png

Originally Posted by davesexcel

What other dates are you referring to? There is only 1 date in A1

Apologies for not being specific. What I mean was i need to copy allnthe data from the date in A1 and beyond. So if the date is 14 october data for 14 october and beyond will.copied ro the target sheet.

Hi Dave,

Any solution to the last request. I will be forever grateful to you if this will be solved.

Thanks in advance

Hi Dave,
Sorry to be a bit annoying, but the code seems to copy only the column headers and not the data.

Thanks again.