Rearranging Data, Sheet 1 into Sheet 2

  • Helllo,


    Could you explain why all issue codes should end up with their respective 6 languages ...


    but the issue code 6005 would only get 3 languages ???

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • May I ask how large is the actual database ... since a couple of formulas could handle this transformation ...

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • I have a few examples of data where this macro would help, in this scenario it is looking at 6 "objects" (languages) I have another where it would be 26 and another around 50.


    I have over 12k translations to rearrange. Thank you.

  • So basically ... with a macro Step 6 ... you would be able to modify it to get the two other macros : Step 26 and Step 50 ...


    Is that right ?

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • Sadly ... just saw the Notice from a Moderator ... !!!


    Could you take some time to read the Forum Rules ... Thanks

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • Carim Yes sorry i didnt know the forums were linked but i will post/upload your workbook as a conclusion. looking at the macro i am having some difficulty modifying it, I have changed Sheet 1 (Source) lstep to 29 to arrange 29 columns of data, the rng to B1:AD1 and sheet 3 (Output) and the debug is at this point

    last2 = .Cells(Rows.Count, "A").End(xlUp).Row + 1

  • Carim Yes sorry i didnt know the forums were linked but i will post/upload your workbook as a conclusion. looking at the macro i am having some difficulty modifying it, I have changed Sheet 1 (Source) lstep to 29 to arrange 29 columns of data, the rng to B1:AD1 and sheet 3 (Output) and the debug is at this point

    last2 = .Cells(Rows.Count, "A").End(xlUp).Row + 1

    .............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................But does the macro function ???

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • Thanks for your confirmation the macro works ;)


    Thanks also for your Thanks ...AND for the Like :thumbup:

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • By the way ... do not know if you are still planning to have a generic solution ... say for a number N of different languages ...


    If that is the case, it would be important, especially for performance constraints, to know approximately your number of records ...

    as this would certainly impose to use a different coding method ...;)

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • Could you give an indication of your number of rows ....

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Smiley" icon, below, in the bottom right corner :)

  • In this example it is 29 columns and upto 5000 rows, however the rows data is by formula and it doesnt seem to work here.


    *EDIT* in sheet 1 the code should be =sheet4 B2 as 9999 the person code but that makes it worse.

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!