I need vba code guru's help to figure this out.
We have a excel sheet that has column headers MIC and Version.
Sheet1:
[TABLE="width: 795"]
<tbody>[TR]
[TD="colspan: 4"]SCRNHYF1[/TD]
[TD="colspan: 4"]SCRNRBF1[/TD]
[TD="colspan: 4"]SCRNEBF1[/TD]
[/TR]
[TR]
[TD]MIC[/TD]
[TD]Version[/TD]
[TD]Lower Limit[/TD]
[TD]Upper Limit[/TD]
[TD]MIC[/TD]
[TD]Version[/TD]
[TD]Lower Limit[/TD]
[TD]Upper Limit[/TD]
[TD]MIC[/TD]
[TD]Version[/TD]
[TD]Lower Limit[/TD]
[TD]Upper Limit[/TD]
[/TR]
[TR]
[TD]50015357[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50015357[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50015359[/TD]
[TD]1[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50015358[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50015358[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50015360[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50014016[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50014016[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50014016[/TD]
[TD]1[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50010606[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010606[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010606[/TD]
[TD]15[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50000779[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50000779[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50000779[/TD]
[TD]16[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50010608[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010608[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010608[/TD]
[TD]15[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50150795[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50150795[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50150795[/TD]
[TD]2[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50150796[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50150796[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50150796[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
</tbody>[/TABLE]
I would like VBA code to rearrange data in sheet1 to sheet2 as shown below.
Please note: We have these MIC and Version header repeat many times in sheet1.
Sheet2:
[TABLE="width: 203"]
<tbody>[TR]
[TD]RoS[/TD]
[TD]MIC[/TD]
[TD]Ver[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50015357[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50015358[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50014016[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50010606[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50000779[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50010608[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50150795[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50150796[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50015357[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50015358[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50014016[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50010606[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50000779[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50010608[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50150795[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50150796[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50015359[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50015360[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50014016[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50010606[/TD]
[TD] 15[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50000779[/TD]
[TD] 16[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50010608[/TD]
[TD] 15[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50150795[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50150796[/TD]
[TD] 2[/TD]
[/TR]
</tbody>[/TABLE]
Thanks in advance.
We have a excel sheet that has column headers MIC and Version.
Sheet1:
[TABLE="width: 795"]
<tbody>[TR]
[TD="colspan: 4"]SCRNHYF1[/TD]
[TD="colspan: 4"]SCRNRBF1[/TD]
[TD="colspan: 4"]SCRNEBF1[/TD]
[/TR]
[TR]
[TD]MIC[/TD]
[TD]Version[/TD]
[TD]Lower Limit[/TD]
[TD]Upper Limit[/TD]
[TD]MIC[/TD]
[TD]Version[/TD]
[TD]Lower Limit[/TD]
[TD]Upper Limit[/TD]
[TD]MIC[/TD]
[TD]Version[/TD]
[TD]Lower Limit[/TD]
[TD]Upper Limit[/TD]
[/TR]
[TR]
[TD]50015357[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50015357[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50015359[/TD]
[TD]1[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50015358[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50015358[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50015360[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50014016[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50014016[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50014016[/TD]
[TD]1[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50010606[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010606[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010606[/TD]
[TD]15[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50000779[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50000779[/TD]
[TD]3[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50000779[/TD]
[TD]16[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50010608[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010608[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50010608[/TD]
[TD]15[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50150795[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50150795[/TD]
[TD]1[/TD]
[TD]95[/TD]
[TD]100[/TD]
[TD]50150795[/TD]
[TD]2[/TD]
[TD]90[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD]50150796[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50150796[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]50150796[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD]100[/TD]
[/TR]
</tbody>[/TABLE]
I would like VBA code to rearrange data in sheet1 to sheet2 as shown below.
Please note: We have these MIC and Version header repeat many times in sheet1.
Sheet2:
[TABLE="width: 203"]
<tbody>[TR]
[TD]RoS[/TD]
[TD]MIC[/TD]
[TD]Ver[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50015357[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50015358[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50014016[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50010606[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50000779[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50010608[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50150795[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNHYF1[/TD]
[TD]50150796[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50015357[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50015358[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50014016[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50010606[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50000779[/TD]
[TD] 3[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50010608[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50150795[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNRBF1[/TD]
[TD]50150796[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50015359[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50015360[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50014016[/TD]
[TD] 1[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50010606[/TD]
[TD] 15[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50000779[/TD]
[TD] 16[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50010608[/TD]
[TD] 15[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50150795[/TD]
[TD] 2[/TD]
[/TR]
[TR]
[TD]SCRNEBF1[/TD]
[TD]50150796[/TD]
[TD] 2[/TD]
[/TR]
</tbody>[/TABLE]
Thanks in advance.