Compilation of Data into Master

Hi Anyone can assist? Need a solution for the following:

To copy data from working worksheet to Master worksheet. If the cells is not empty to copy the specific cells of the row and paste into Master worksheets and loop through the database till the end.

I.e. If working worksheet Group 1 (V,X,Y,AA) - [V is not blank] to include Column C of that particular row and copy and paste to Master worksheet: (Column C,E,D,F,J) respectively.
After looping through Group 1 do accordingly for Group 2 - 5, depending on each column and paste accordingly to Master worksheet.


(Compiling multiple columns into 1 and copying data if condition is met)

HI Pepe Le Mokko,

thanks, I have just attached. Hope it is clearer now.

Great! Thanks. Will take note on that.

Appreciate much!

Thank you!

Hi huuthang_bd,

could you advise, why do my sample book work and for my actual data it only run but no output neither does it have any error shown.

Thank you.

Hi Magluckie,

I can't say anything if I don't see your actual workbook.

Hi huuthang_bd,

I found out why, as the working sheet have columns filled from "A - BK". Just wondering this line of code how should I amend it?

Set CopiedRng = AllRows.Offset(, 19 + (i - 1) * 6).SpecialCells(xlCellTypeConstants, 23)

Sorry as I am very very new to VB scripting.

Thanks once again.

Please Login or Register  to view this content.

I will explain the numbers in this line, try amend it to suit with your data.

19 is the number of columns from column C (AllRows variable) to column V (the first column of group 1)
6 is the number of columns from column V (the first column of group 1) to column AB (the first column of group 2)

Thank you huuthang_bd once again, will amend accordingly and try it.