Grab data related to array code

Hello everyone
I have the following wonderful of HSV that enables me to transfer data across rows to columns
Here's the attachment illustrating the expected results

Please Login or Register  to view this content.

I can get results in sheets("Result") starting in range("D2")
In Sheets("Result") Columns A & B & C I need to fill the data from Sheets("Data")
The data which will be grabbed related to each row
for example : the data Yasser1 to Yasser7 which is in row 2 related to the date : 01/06/2015 so in the sheets("Result") column A .. Range("A2:A8") is expected to that date
The same with the "Branch Column" data >> will be in range("B2:B8") and "Sort Column" data >> will be in range("C2:C8")

Hope it is clear

Thanks advanced

Thanks a lot Mr. Ed_Collins for this great results
When applying it to original file it tooks about 20 seconds to execute (5000 rows)
So I was searching for editing the array code posted in Post #1 if possible .. or at least create a sub routine to complete the task of the first code
Generally your code is really amazing

Thanks.

Put

Application.ScreenUpdating = False

at the very top of the code and

Application.ScreenUpdating = True

at the very bottom of the code. Rerun it and tell me how long it takes to execute with this change.


If it still takes longer than what you want, we can tweak it to improve speed. I wasn't aware you had 5,000 rows of data.

Thanks for guiding me . I already put these lines before and after the code even before you prompt me .. disable events and make calculations manual and disable sceen updating
But it still takes 15 seconds ..
I prefer using arrays as the data may be larger in the future

Try this code on your data.

It takes less than a second on my machine, with more than 5,000 rows of test data.

Please Login or Register  to view this content.

It's basically the same code as before. But this time, instead of writing the data to the Cells, I'm just temporarily saving it to an array. Then I put the entire array where it needs to be, all at once.

EDITED to correct a minor mistake.

Thank you very much Mr. Ed_Collins
you're really wonderful .. Just a little point if it won't disturb you ..
Not to transfer data in row if the date in column A is empty .. In other words to check the existence of the date in column A .. if found the details in that row to be transferred and if not the data related to that ro not to be transferred
Thanks advanced
I appreciate your time and your great help

Thank you very much for this wonderful code
You are really fantastic

Just a little remark
The format of the dates are different from Data sheet & Results sheet ..
How to fix it ??
Just point me guide me .. Don't post the whole code again ..I will modifiy that point if you just guide me to the line
Thanks for your time and effort

This is not the problem sir
The dates are reversed in other words
2 - 5 - 2015 this mean 2 May 2015
After transfering it became
5 - 2 - 2015 this means 5 February 2015

the problem is not the format but it is reversed dates

Mr. Ed_Collins
Look at the attachment in post #11

Copy your date format from the DATA worksheet into the RESULTS worksheet, to confirm the format is the same.

Run the macro. The format should not change after the macro is run.

Thanks a lot Mr. Ed_Collins for following up my problem
I don't know why this problem happened ..
I have backup of my original file and I restored my backup and tested your last code again and found it working well without any problems...
That's weird but it is solved
Regards