Two dinamic graphs in a worksheet
Hello,
In a worksheet I have two dinamic graphs and its data. Unfortunately the second graph is not working properly. I think that the problem is with the syntax of the macro of the second graph, probably with the (AutoFilter Field:=1)???? because the macro should only select the cells with the data but instead it is picking up also the empty cells in the column and eventlually the graph is incorrect. Please see below the macros Really appreciate if you can help to fix this. Thank you ! Arno MACRO OF THE FIRST DINAMIC GRAPH - THIS ONE WORKS OK! Sub SelData() Columns("T:U").Select Selection.ClearContents Range("N1:O10000").Select ActiveSheet.Range("$N$1:$O$10000").AutoFilter Field:=1, Criteria1:="<" Range("N1:O10000").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Range("T1").Select ActiveSheet.Paste ActiveSheet.Range("$N$1:$O$10000").AutoFilter Field:=1 End Sub MACRO OF THE 2ND GRAPH###THIS ONE IS NOT WORKING :) Sub SelDataManuf() Columns("AD:AE").Select Selection.ClearContents Range("AA1:AB10000").Select ActiveSheet.Range("$AA$1:$AB$10000").AutoFilter Field:=1, Criteria1:="<" Range("AA1:AB10000").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Range("AD1").Select ActiveSheet.Paste ActiveSheet.Range("$AA$1:$AB$10000").AutoFilter Field:=1 End Sub |
All times are GMT +1. The time now is 10:30 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com