excel - VBA Filter error -


i have filter field called week_of_year (1,2,3,4,5,6,7,8....), pivot field year(2012,2013,2014), vba code belows filter on current week , year of 2014/2015 , hide else. problem code loops each record , runs slow when comes big pivot table. im trying on new code encountering error.

sub datefilter() dim pvttbl pivottable set pvttbl = worksheets("lo").pivottables("pivottable3") dim dd integer dd = format(date, "ww") dim pf pivotfield dim pf1 pivotfield dim pi pivotitem set pf =                worksheets("lo").pivottables("pivottable3").pivotfields("week_of_year") set pf1 =        worksheets("lo").pivottables("pivottable3").pivotfields("year") pvttbl.clearallfilters each pi in pf.pivotitems  if pi.name = cstr(dd)      pi.visible = true else     pi.visible = false end if next  each pi in pf1.pivotitems  if pi.name = "2014" or pi.name = "2015"     pi.visible = true else     pi.visible = false end if next end sub

new code develop is:

sub datefilter1() dim pvttbl pivottable set pvttbl = worksheets("lo").pivottables("pivottable3") dim dd integer dd = format(date, "ww") dim pf pivotfield set pf =         worksheets("lo").pivottables("pivottable3").pivotfields("week_of_year") pf.pivotfilters.add2 xlvalueequals, 3 end sub

the code failed @ 

pf.pivotfilters.add2 xlvalueequals, cstr(dd)

i tried:

pf.pivotfilters.add2 type:= xlvalueequals, value1 := cstr(dd)

the error invalid procedure call or argument.any idea how can fix error?????

any faster way filter on multiple filter criteria? thanks!

if want filter on 1 value, drag field of interest report filter pane, can without looping using following code:

sub filteronweek() dim pt pivottable dim pf pivotfield   set pt = worksheets("lo").pivottables("pivottable3") set pf = pt.pivotfields("week_of_year")  pf.currentpage = format(date, "ww") end sub

if reason field absolutely must stay in pivottable row field, can still filter without looping following method if have excel 2010 or later

  1. make copy of pivottable, , drag 'week_of_year' field in copy report filter area
  2. set slicer on week_of_year field on 1 pivottable, , connect other pivottable via report connections dialog. (right click on slicer, select 'report connections')
  3. amend above code runs on 2nd pivottable.

the slicer sync 2 pivottables.

if want filter on more one value, drag field rows area, , use this:

sub filteronweek2() dim pt pivottable dim pf pivotfield dim pi pivotitem dim lstart long dim lend long   lend = format(date, "ww") lstart = val(format(date, "ww")) - 1  set pt = worksheets("lo").pivottables("pivottable3") set pf = pt.pivotfields("week_of_year")  pf     .clearallfilters     .pivotfilters.add type:=xlcaptionisbetween, value1:=lstart, value2:=lend end  end sub

if reason don't want field in pivottable row field, follow same general approach above: make copy of pivottable, put field want filter on in copy rows field, connect fields of interest slicer, hide slicer somewhere, , amend code runs on copy of pivottable rowfield in it.

i recommend read article @ http://dailydoseofexcel.com/archives/2013/11/14/filtering-pivots-based-on-external-ranges/ if want learn more efficiently filtering pivottables.


Comments

Post a Comment

Popular posts from this blog

java - pagination of xlsx file to XSSFworkbook using apache POI -

right in code, reading xlsx file, xssfworkbook, , writing database. but, when size of xlsx file increases, causes outofmemory error. can not increase server size, or divide xlsx file pieces. tried loading workbook using file (instead of inputstream), didn't either. i looking way read 10k rows @ time (instead of entire file @ once) , iteratively write workbook , database. is there way apache poi? poi contains called "eventmodel" designed purpose. it's mentioned in faq : the ss eventmodel package api reading excel files without loading whole spreadsheet memory. require more knowledge on part of user, reduces memory consumption more tenfold. based on awt event model in combination sax. if need read-only access, best way it. however, may want double check first if issue somewhere else. check out this item : i think poi using memory! can do? 1 comes quite lot, reason isn't might think. so, first thing check - what's source of prob...
Read more

Unlimited choices in BASH case statement -

consider simple bash snippet: case $option in 1) image=${options[0]%.tar} ;; 2) image=${options[1]%.tar} ;; 3) image=${options[2]%.tar} ;; 4) image=${options[3]%.tar} ;; *) echo "invalid option" exit 1 esac in real script numbers goes 30. makes pretty long. can somehow specify cases variable? something this: case $option in $i) image=${options[$(($i-1))]%.tar} any pointer appreciated. you can match against multiple patterns in single clause: case $option in 1|2|3: echo "$option one, 2 or three" ;; esac if still typing you, can use simple pattern matching: case $option in # following matches # - single-digit numbers 0-9 # - two-digit numbers starting either 1 or 2 # - number 30 [0-9]|[12][0-9]|30) image=${options[$(($option-1))]%.tar} ;; *) echo "invalid option" 1>&2 exit 1 esac
Read more

apache - How do I stop my index.php being run twice for every user -

we've got webapp initial html served using apache , php. i noticed index.php being run twice every request. seems caused / effected rewrite rules in our .htaccess - rewritecond %{http_host} ^(www\.|hotels\.)ourdomain\.com$ [nc,or] rewritecond %{server_name} ^(www\.|hotels\.)ourdomain\.com$ [nc] rewriterule (.*) http://ourdomain.com/$1 [r=301] rewriterule ^hotels/([^/]+)/?\??(.*)$ ?d=$1&$2 [qsa] the final rule moving parameter url path query string. i.e. http://ourdomain.com/hotels/vegas?someparam=1 becomes http://ourdomain.com?d=vegas&someparam=1 if go directly query string version index.php run once. if use url redirected, index.php run twice (i'm checking adding error_log('end of index.php') file). so example going http://ourdomain.com/hotels/paris hits file twice http://ourdomain.com?d=paris hits once. i've seen this question , had @ blog mentioned , , can't find empty string url's (i've tried using yslow process). ...
Read more