filter - Filtering excel rows in hidden mode (VB Code) -
i want filter extensive range of rows in excel , copy values without filter running in excel, in vb code without visual action in excel. procedure slow, want more agile alternative:
' xlsheet.range("a1:z100000").autofilter(1, "criteria", , , false) xlsheet.range("c1:f100000").copy() xlsheet2.range("a1").pastespecial(paste:=xlpastetype.xlpastevalues, operation:=xlpastespecialoperation.xlpastespecialoperationnone, skipblanks:=false, transpose:=false) application.cutcopymode = ctype(false, xlcutcopymode) xlsheet.range("a1:z100000").autofilter(false) '
any suggestions? !
i suggest code issue,,
sub exception_review()
application.screenupdating = false dim filtercriteria dim currentsheetname string dim newfilename string 'get current sheets's name currentsheetname = activesheet.name range("a2:k25").select selection.autofilter selection.autofilter field:=13, criteria1:="no" selection.specialcells(xlcelltypevisible).select selection.copy worksheets.add activesheet.name = "exceptionreview" range("a1").select activesheet.paste application.cutcopymode = false cells.select selection.columns.autofit range("a1").select (currentsheetname).activate selection.autofilter field:=1 selection.autofilter
range("a1").select application.screenupdating = true end sub
Comments
Post a Comment