Auto Populate (Specific Purpose): Fill small tables with fixed header titles with data from organized cells

[msew1234]

Hello,

I hope you are all well,

Problem:
I have this table (for example):

I want to fill above source data into small forms / pattern / tables like this picture below, so I can be able to print them like that,

What would be the solution, as I tried auto fill and it did not help?

Thanks

 

[oldbrewer]

Use sheets(1).select and sheets(2).select to jump between the sheets as needed

 

[msew1234]

Use sheets(1).select and sheets(2).select to jump between the sheets as needed

And if I want them to be changeable (not to be just copy and paste) (meaning that if I changed the degree cell in Sheet 1 it changes in sheet 2 related cell)...

the question In another way, can I loop on the formula like this (as I imagine)

[TABLE="class: cms_table, width: 914"]
<tbody>[TR]
[TD="colspan: 3"]Worksheets("Sheet").Cells(N + 1, 1) = Worksheets("SheetAll").Formula(J,1)


[/TD]
[/TR]
</tbody>[/TABLE]
----------------------------------------------------------------

 

[oldbrewer]

sorry - I am lost now....

 

[msew1234]

Never Mind, your idea works fine,

Thanks for your great efforts and your help,


It is first time for me to deal with Macros and you have taught me a lot,
and I have had good experience..

My Kind Regards,

Please, I will post/link your solution on SuperUser question, If you don not mind....

 

[oldbrewer]

I don't mind. Where I referred to "PERCENTAGE" in the macro, you could refer instead to the cell reference that contains PERCENTAGE, then if you changed it to another word, it would use that word instead. Simple macros with loops are very powerful.