Filtering Data based on row data and extract - VBA Code

[lejoyeux3]

Hello All,


I have some data set up as per below:


Header has three rows then multiple columns:

[TABLE="width: 586"]
<colgroup><col><col span="8"></colgroup><tbody>[TR]
[TD] [/TD]
[TD] [/TD]
[TD]ABC[/TD]
[TD]KOP[/TD]
[TD]KLP[/TD]
[TD]TGF[/TD]
[TD]KLO[/TD]
[TD]NOM[/TD]
[TD]DAN[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD]1425[/TD]
[TD]8745[/TD]
[TD]4256[/TD]
[TD]2536[/TD]
[TD]458[/TD]
[TD]985[/TD]
[TD]74856[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD]Apple[/TD]
[TD]Mango[/TD]
[TD]Apple[/TD]
[TD]Orange[/TD]
[TD]Orange[/TD]
[TD]Mango[/TD]
[TD]Apple[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]Piority[/TD]
[TD] [/TD]
[TD]1[/TD]
[TD]4[/TD]
[TD]9[/TD]
[TD]6[/TD]
[TD]8[/TD]
[TD]4[/TD]
[TD]3[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]Issue[/TD]
[TD] [/TD]
[TD]20[/TD]
[TD]5[/TD]
[TD]7[/TD]
[TD]7[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]9[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]Meeting[/TD]
[TD] [/TD]
[TD]15[/TD]
[TD]24[/TD]
[TD]26[/TD]
[TD]52[/TD]
[TD]12[/TD]
[TD]23[/TD]
[TD]14[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]Resolution[/TD]
[TD] [/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]4[/TD]
[TD]3[/TD]
[TD]1[/TD]
[TD]4[/TD]
[TD]1[/TD]
[/TR]
</tbody>[/TABLE]



Now, what I want to do is, by using excel VBA, be able to this based on the thrid row data.


It means, I want to be able to via VBA code group and extract data only based on value "Apple", so that in the extract I only have data for apple in a separate sheet with sheet name "Apple + Date it was extracted"


Can any one assist me with that?




Thanks in advance

 

[lejoyeux3]

Hello Guys,

Any suggestion?

Many tks