Excel VBA - Auto FIlter and Advanced filter usage error -


i have requirement in, need use auto filter filter data first , using advanced filter unique values alone. advanced filter doesn't take auto filtered value alone. how use them together?

here goes code,

colmz = worksheetfunction.match("rsdate", sheets("rs_report").rows(1), 0)  activesheet.listobjects("rs").range.autofilter field:=colmz, criteria1:="yes"  activesheet.range("b1:b65536").advancedfilter action:=xlfiltercopy, copytorange:=sheets("csrs").range("b14"), unique:=true

kindly correct me , share suggestions.

i stick unique values in array - it's faster , less break -

sub uniquearray() colmz = worksheetfunction.match("rsdate", sheets("rs_report").rows(1), 0)  activesheet.listobjects("rs").range.autofilter field:=colmz, criteria1:="yes" call creatary(curary, sheets("rs_report"), letter(sheets("rs_report"), "rsdate")):  call eliminateduplicate(curary): call buildarraywithoutblankstwo(curary): call alphabetically_sortarray(curary)  each cell in curary     'do need unique array list next cell end sub  function creatary(ary variant, sh worksheet, ltr string) dim x, y, rng range redim ary(0)  set rng = sh.range(ltr & "2:" & ltr & sh.range("a1000000").end(xlup).row).specialcells(xlcelltypevisible)  x = 0 each y in rng     if not application.iserror(y)             if not isnumeric(y)                 ary(x) = y             end if             x = x + 1         redim preserve ary(x)     end if next y end function  function buildarraywithoutblankstwo(ary variant) dim aryfromrange() variant, arynoblanks() variant dim counter long, noblanksize long  'set references , initialize up-front redim arynoblanks(0 0) noblanksize = 0  'load range array aryfromrange = ary  'loop through array range, adding 'to no-blank array go counter = lbound(aryfromrange) ubound(aryfromrange)     if ary(counter) <> 0         noblanksize = noblanksize + 1         arynoblanks(ubound(arynoblanks)) = ary(counter)         redim preserve arynoblanks(0 ubound(arynoblanks) + 1)     end if next counter  'remove pesky empty array field @ end if ubound(arynoblanks) > 0     redim preserve arynoblanks(0 ubound(arynoblanks) - 1) end if  'debug reference ary = arynoblanks  end function  function eliminateduplicate(ary variant) variant dim arynodup(), duparrindex, i, dupbool, j       duparrindex = -1 = lbound(ary) ubound(ary)         dupbool = false          j = lbound(ary)             if ary(i) = ary(j) , not = j                 dupbool = true             end if         next j          if dupbool = false             duparrindex = duparrindex + 1             redim preserve arynodup(duparrindex)             arynodup(duparrindex) = ary(i)         end if next  ary = arynodup end function  function alphabetically_sortarray(ary)  dim myarray variant dim x long, y long dim temptxt1 string dim temptxt2 string  myarray = ary  'alphabetize sheet names in array list   x = lbound(myarray) ubound(myarray)     y = x ubound(myarray)       if ucase(myarray(y)) < ucase(myarray(x))         temptxt1 = myarray(x)         temptxt2 = myarray(y)         myarray(x) = temptxt2         myarray(y) = temptxt1       end if      next y   next x  ary = myarray end function  function letter(osheet worksheet, name string, optional num integer) if num = 0 num = 1 letter = application.match(name, osheet.rows(num), 0) letter = split(cells(, letter).address, "$")(1) end function

Comments

Post a Comment

Popular posts from this blog

Command prompt result in label. Python 2.7 -

i want put result(output) of shell command label. command works, label shows "0", however, in command prompt, result shown correctly, need showed in label. doing ubuntu. myg1 = button(root, text="rodyti informacija", command=lambda: gauti()) myg1.pack(side=bottom) def gauti(): imti = tekstas.get("1.0", "end-1c") info = subprocess.call("id '{imti}' ".format(imti=imti), shell=true) w = label(root, text= info) w.pack(side = bottom) subprocess.call() returns exit code of process created (in case 0 success). if want text output of process, should instead call subprocess.check_output() .
Read more

javascript - How do I use URL parameters to change link href on page? -

i change href value of link using url parameters. example: default <a id="dlink" href="link-1">link</a> but, when user goes https://url.com/?dlink=link-2 it swaps out link new link <a id="dlink" href="link-2">link</a> first need value url. if you're not using javascript framework can create function using jquery. please check get url parameter jquery or how query string values in js it. after that, element "a" id , set value there. $("#dlink").attr("href", hreffromparam);
Read more

amazon web services - AWS Route53 Trying To Get Site To Resolve To www -

so have domain nameservers pointed aws route 53. site hosted on ec2 instance , reachable resolves site.com, if input www.site.com. i'm curious how site resolve www.site.com. have under route53 domains hosted zone 2 additional record sets outside of ns , soa: a site.com ec2 elastic ip cname www.site.com ec2 public dns i can reach site using both site.com , www.site.com, resolve site.com. there way make if enter either, resolves www.site.com? at first, both should record set. a site.com ec2 elastic ip www.site.com ec2 elastic ip and need redirect setting in web server (nginx, apache, ..) following. (source: how redirect www non-www nginx on centos 7 ) redirect non-www www if want redirect users plain, non-www domain www domain, add server block: server { server_name example.com; return 301 $scheme://www.example.com$request_uri; } save , exit. configures nginx redirect requests "example.com" "www.example.com". not...
Read more