VBA code help, to get 6 set of rows from large data???

[sem]

Good evening,
Would you mind helping me to find 60 set of 6 rows from data in sheet 1 .the expected result should be like in sheet6 there is a matrix 25x25 ,which shows how many times each number occurs with any other number ,it should be all (1) no other .in sheet 3, I put one row just to show you how the matrix look before all 6 set of rows added.the data is made of over 10k rows .
Thanks in advance for any help.
sem

[watersev]

hi sem, option, please check attachment, press Run button

[sem]

hi watersev,
thank you very much for your time and effort but unfortunateley that is not what i want, you done the matrix for the whole data which is
correct.i need similar result to sheet6 like having (60x sheet6) but without repeating the same rows.
i hope i explained myself and very sorry if i confused you
thanks again
sem

[sem]

Any suggestion please?
Thanks
sem

[sem]

Bump.....??

[sem]

sorry for bumping...?

[sem]

i would very much appreciate, for any help please?
Thanks
sem

[sem]

Any help please..?
Thanks.

[zbor]

If nobody answered your post is likely unclear and you should probably provide more explanations.

[sem]

Good morning Zbor,
Thank you for your time and very much appreciate help.what I need a VB code to get 6 rows from “sheet 1” data , transposed to” column A” to get result like in “sheet 6”.and this process to be repeated 60 times.i hope I explained myself.
Thanks again and kind regards
sem

[sem]

bump........

[sem]

suggestions please ??????

[zbor]

I gave you suggestion: provide more info. It's hard to see what are you trying to do, what is input, what output...
Give more explanations.

Sometimes people here write whole A4 for explanation. You gave one sentence. That could be enough but as you can see - not in your case.

[sem]

Hi Zbor,
Sorry for the delay and Thank you for your time and suggestion much appreciated.
What I need is to transpose 6 rows from “sheet1” to “sheet 3” to have all cells in” E2:AC26”(1) only
The logic is from second rows and onward if the cells value change to “2” then delete that and choose another row until all rows values “1” I recorded a macro to give you a clue.
Try it in sheet3 ,please.

Please Login or Register  to view this content.

Thanks again
sem

[sem]

any help please?

[sem]

Bump.........??

[sem]

Bump.............

[sem]

Bump.........??

[sem]

i would very appreciate for any suggestions,please?
Thanks

[watersev]

option, it will find combination of 30 rows dataset according to your requirement. The code will take considerable time depending on where the first occuring row will be placed. As for it's current position - row 1694 - it takes around 20 minutes. If all result rows will be the last in the data set it would take around 2 and a half hours to identify them.

[sem]

Watersev,
Thanks for help very much apprciated,and sorry for the delayed response.When i run your code it gives the correct result however,when i remove those rows from the data and run the code again i get the wrong result .
but i'm happy and very greatful with your solution.
thanks and kind regards
sem

[watersev]

hi Sem, I've updated the code with one additional check now it should give correct results, please check attachment