Copy and paste based on Date.

[mazadb]

I am currently trying to find an easier way to copy data source sheet to destination sheet based on date. But condition is source sheet “G” column will paste to destination sheet’s column “G” according to destination sheet’s “C” column. I am not able to make you understand that what I want. Here I attach two screenshot/file for your understanding. Can you help me to get the VBA code for copying the data which I shown the screenshot.
your help is greatly appreciated as always!! thank you for your time!!!

[nankw83]

Hi mazadb,

Try below code ...

Please Login or Register  to view this content.

[nankw83]

Thank you for the Rep+

If the provided solution takes care of your original question, please take a moment & mark this thread as [SOLVED] from the Thread Tools above your first post

[mazadb]

Hello,
Thanks a lot for your help. The code you sent, it works very nicely. But it makes new problem. That is, source sheet name “P01” and destination sheet name “RiceMar21”. In you code, when I change source and destination like “P01” and “RiceMar21” then this code does not work at all. I addition, Source sheet’s “P01” data from “Register” sheet by filtering. Could you tell me what is the wrong ?
your help is greatly appreciated as always!! thank you for your time!!!

[nankw83]

Can you post the code after the changes you've done ? Also, when you say "does not work" what happens ? Do you get an error message ? What is it & at what line of code ?

[mazadb]

Here is code:

Please Login or Register  to view this content.

[nankw83]

I tried your code again in the same sample file provided in post #1 & after changing the sheet names to "P01" & "RiceMar21" it ran as expected with no errors. Can you please tell me what is the error message you're getting & at which line of the code ?

PS: Please edit you post #6, select your code then press the # button from the menu & it will insert code tags for you

[mazadb]

It keeps giving me "Subscript out of range error" at line 4

[nankw83]

The error you're probably means that you don't have that sheet name ! Check the attached file, I have changed the sheet names & it is working fine

Please Login or Register  to view this content.

[mazadb]

After some debugging I noticed r variable is always "Error 2042"
the subscript out of range error was caused by an invisible character in the sheet name

Please Login or Register  to view this content.

Attachment 730660

[nankw83]

The error means there's no match ... Can you post copy of your other sample file ?

[mazadb]

Here is the file.

[nankw83]

Hi mazadb,

I checked your file & found 2 macros with the name "Test" one under Sheet1 (P01) which is referencing Sheets("Purchase Register") and another macro called "Test" under Module1 which is referencing Sheets("P01") which is working fine. To avoid confusion, I suggest that you either delete the macro under Sheet1 (P01) or re-name it

[mazadb]

Hello,
I have deleted macro macros with the name "Test" one under Sheet1 (P01) which is referencing Sheets("Purchase Register") and use macro "Test" under Module1. Then what happened look this screenshot.

[nankw83]

Try below code, if my understanding is correct ...

Please Login or Register  to view this content.

[mazadb]

Hello, I have tried your new code. But it does not work. It’s look like this.

[nankw83]

I think this will be an endless guessing/assumption game from my side ... Please put the expected data manually in sheet "RiceMar21" & upload a file

[mazadb]

Hello,
Destination Sheet "RiceMar21" should be like this.

[nankw83]

That doesn't make sense, the data in sheet P01 is in dates from 1-Mar until 7-Mar ... Please upload the excel file not a picture

[mazadb]

Hello,
Here is the excel file.

[nankw83]

mazadb, the structure of the file in post #20 is different than your initial post hence, the code didn't work. In the original file, the date was in column C and in your actual file the date is in column G ... Try below code, I have also attached the file for your reference

Please Login or Register  to view this content.

[mazadb]

Yes, I got it. Thanks a lot. You are a genius. Actually I need you. Again thanks.

[mazadb]

Hello,
I need little bit help. Could you explain the code: b = [transpose(row(3:14))] and r = Application.Match(CLng(c), Application.Index(a, 0, 6), 0) .
Thanks.

[nankw83]

Hi mazadb,

I have added comments in each line of the code to explain .. Hope that helps

Please Login or Register  to view this content.

[mazadb]

Hello,
Thanks a lot.

[mazadb]

Thanks a lot