Sum items before transfer process

[YasserKhalil]

Hello everyone
I have working code that transfers data to different sheets and it is working very well

Please Login or Register  to view this content.

I need to modify this code so as to be able sum the similar items before transfer process
That is if you execute the code now it will transfer all items ..for example: store1 will have five items after running the code
There are similar items in the five items so I need the expected results to have only for stor1 (3 results looks like that)
1- Item2 35 Store1
2- Item9 25 Store1
3- Item22 44 Store1

Thanks advanced for help

[NeedForExcel]

And then what should happen to the serial number when 2 entries are merged?

[YasserKhalil]

Thanks for reply
As for serial number it would be 1,2,3,4 and so on regardless the source field ..

[NeedForExcel]

Here!

Call this procedure after your existing procedure before the end sub statement

Please Login or Register  to view this content.

[YasserKhalil]

Thanks a lot for this great help
In fact I don't need to use nested loops as it is very slow with original data .. so I was searching for a way to edit the existing code itself if possible
But your solution is working very well for the sample

[YasserKhalil]

Is it possible to edit the original code itself?

[NeedForExcel]

Alright! Give me some time, I will check it out..

[YasserKhalil]

Thanks a lot for quick reply
Take your time .. I am not in hurry .. I could wait for days

[NeedForExcel]

How about automating your existing code with an additional Subtotal feature to get the subtotal based on Items. Are you fine with Subtotal?

[YasserKhalil]

You mean to add helper column for doing that .. In fact I don't need to add any helper columns if possible

[YasserKhalil]

I am still waiting .. Is it possible to edit the original code ?
If not can it be done from the start again but using arrays as the data is large

[NeedForExcel]

I am sorry.. It kind of slipped my mind.. I will start working on the code right away.. Sorry!

[NeedForExcel]

Give this a try

Please Login or Register  to view this content.

Please Login or Register  to view this content.

This is using arrays.. Should be faster..

[jindon]

Please Login or Register  to view this content.

[YasserKhalil]

Awesome and fascinating
That's incredible ..
It worked like charm ...
Thank you very much for help

Just last request if your time allows
Need to format the output as main sheet ("DATA") ..
Thanks a lot for this great help

[YasserKhalil]

Thank you very much Mr. Jindon
I don't need the results in a message box .. I need to put results in related sheets ..
Store1 results in Sheets("Store1")
Store2 results in Sheets("Store2")
and so on ..
Thanks advanced

[NeedForExcel]

Just 1 thing..

Change this line

R(Counter, 1) = R(Counter, 1) & "," & R(Counter2, 1)

to this line

R(Counter, 1) = R(Counter, 1) & ", " & R(Counter2, 1)

I have added a space after a comma.

So the edited codes would be

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[jindon]

Much simpler

Please Login or Register  to view this content.

[NeedForExcel]

@Jindon:

That is an insanely fast code.. Great to learn from you always.. Cheers!!

[YasserKhalil]

Thanks a lot for these great solutions . I will try to make use of these solutions ..
Thank you very very much for help
Best Regards