Copy & Paste Visible cells only top 10 filtered range

[harinsh]

Hi Team,

Can anyone please help me out how to select top 10 visible range of cells those were filtered and copy paste the same data into different sheet. I need to update this code to updated in vba macro code. Please provide an resolution in order to fix this.

NOte: Data is dynamic and it will change every time which update.

Thanks in advance.

 

[Grazier]

Hello Harinsh,

There is not much information, but here is a very simple peace of code which uses top10 filtering and copies the data to sheet2.

You need to modify it a little.

Sub Test()
Dim X As Range
Dim Y As Range
Set X = Columns("A:IV")
Set Y = Range("1:11")
Sheets("Sheet1").Activate
X.Select
Selection.AutoFilter Field:=3 'Not needed, just resets the filter if the macro is used several times in a row
Selection.AutoFilter Field:=3, Criteria1:="10", Operator:=xlTop10Items 'Insert the correct filter info
Cells.Copy
Sheets("Sheet2").Activate
ActiveSheet.Paste
End Sub

-Grazier

 

[harinsh]

Hi Grazier,

I'm really sorry, not able to fulfill my requirement with given code. Let me explain in details with an example.

I have data with lots of columns assume A to F. I would like to sort with total (Decending order) and if 'Zero' comes in any top 10 cells and then that row should not reflect for calculation (can filter it in macro). Later on I need to copy top 10 (after excluding 'Zero' contain rows) and paste it into different sheet.

It should get copy & paste only visible cells. Please provide your suggestion how better way to do it this and also help with codes.

Thanks,

Month	Jan	Feb	Mar	Apr	Total
AAAAA	513	434	523	513	1983
BBBBB	462	713	201	462	1838
CCCCC	577	223	549	577	1926
DDDDD	620	0	375	0	995
EEEEEE	693	233	292	693	1911
FFFFFF	278	338	0	278	894
GGGGG	481	343	333	481	1638
HHHHH	416	0	400	416	1232
IIIIIIIIII	369	145	442	369	1325
JJJJJJJJ	390	336	219	390	1335

<colgroup><col><col span="5"></colgroup><tbody>
</tbody>