excel - Looping Through Filters and Saving as PDF -

-



i have excel file contains list of models , owners. have been trying filter owner (column j) , print out models own in pdf. however, when run code below presents me "run time error 1004 autofilter method or range failed" on line

rngtofilter.autofilter field:=rngtofilter.column, criteria1:=filtercell.value

as new vba user, unsure of coming from. identifying error appreciated! 

sub filtermacro() dim wb workbook dim ws worksheet set wb = activeworkbook set ws = sheets("consolidatedlist") ws.select dim filtercol string: filtercol = "j" 'the column containing data filter dim headerrow string: headerrow = "1" 'the row containing headers data  'this location file saved to.  saves desktop. 'if necessary, change savepath desired location.  make sure include ending \ dim savepath string:  savepath = environ("userprofile") & "\desktop\"  'the range of cells filter looping through dim rngtofilter range: set rngtofilter = range(filtercol & headerrow, cells(rows.count, filtercol).end(xlup))  'readying variables loop dim filtercell range dim appliedfilters() string dim filtercount long, long  'disables screenupdating allow code run faster , prevent screen flickering application.screenupdating = false   'starts loop each cell in rngtofilter each filtercell in rngtofilter     'checks if cell header     if filtercell.row <> headerrow          'found not header, checks if filter cell's value has been applied         dim alreadyfiltered boolean: alreadyfiltered = false         = 1 filtercount             if appliedfilters(i) = filtercell.value                 alreadyfiltered = true                 exit             end if         next          if alreadyfiltered = false             'found filter cell's value has not yet been applied             'filters data             rngtofilter.autofilter field:=rngtofilter.column, criteria1:=filtercell.value              'updates array containing applied filters             filtercount = filtercount + 1             redim preserve appliedfilters(1 filtercount)             appliedfilters(filtercount) = filtercell.value              'saves filtered data pdf             activesheet.exportasfixedformat _                         type:=xltypepdf, _                         filename:=savepath & filtercell.value & ".pdf", _                         quality:=xlqualitystandard, _                         includedocproperties:=true, _                         ignoreprintareas:=false, _                         openafterpublish:=false         end if     end if next filtercell  'removes filter rngtofilter.autofilter  'enables screenupdating application.screenupdating = true end sub





wiki

Comments

Post a Comment

Popular posts from this blog

python - Read npy file directly from S3 StreamingBody -

-
i have many .npy (numpy) , .json files saved in s3, need download , load these files. for json files downloading files , loading dictionary using following code: obj = s3.object(bucket, key) response = obj.get() body = response['body'].read().decode('utf-8') data = json.loads(body) that way avoid writing .json file disk , reading it. now want same .npy files, equivalent? currently downloading file, saving temp file on disk , loading np.load avoid if possible. following https://stackoverflow.com/a/28196540/3509999 : obj = s3.object(bucket, key) io.bytesio(obj.get()["body"].read()) f: # rewind file f.seek(0) arr = np.load(f) wiki
Read more

kotlin - Out-projected type in generic interface prohibits the use of metod with generic parameter -

-
i start using kotlin , defined interface this: interface aadapter<vh : recyclerview.viewholder> { fun oncreateaviewholder(parent: viewgroup): vh fun onbindaviewholder(v: vh, position: int) } and when try use on code: class klasa ( private val adapter: aadapter<*> ) { fun dosth(){ //... val vh = this.adapter.oncreateaviewholder(parent) //on below line error adapter.onbindaviewholder(v, position) //... } } i error out-projected type 'aadapter<*>' prohibits use of 'public abstract fun onbindaviewholder(v: t, position: int): unit i tied add "in" or "out" definition i'm confused. how allow it. replace aadapter<*> aadapter<recyclerview.viewholder> . class klasa ( private val adapter: aadapter<recyclerview.viewholder> ) { // ... because have declared aadapter has type parameter vh type subclass of recyclerview....
Read more

Asterisk AGI Python Script to Dialplan does not work -

-
i'm stuck project have check database of sip extension incoming caller id , dial sip extension. below receive when run script on asterisk cli. -- registered sip '9125' @ 192.168.1.102:50142 > saved useragent "zoiper rv2.8.40" peer 9125 [2017-08-22 13:53:33] notice[5095]: chan_sip.c:24558 handle_response_peerpoke: peer '9125' reachable. (17ms / 2000ms) == using sip rtp tos bits 184 == using sip rtp cos mark 5 -- executing [0112617769@from-trunk:1] answer("sip/obitrunk1-0000000d", "") in new stack > 0x1ca50d0 -- probation passed - setting rtp source address 192.168.1.98:16834 -- executing [0112617769@from-trunk:2] agi("sip/obitrunk1-0000000d", "test.py") in new stack -- launched agi script /var/lib/asterisk/agi-bin/test.py args: ['/var/lib/asterisk/agi-bin/test.py'] env line: agi_request: test.py env line: agi_channel: sip/obitrunk1-0000000d env line: agi_language: en env line: a...
Read more