excel - VBA Code not working Universally -

-

i'm trying write universal code can esentially can copy , paste of reports (they're identical reports, need run every day). it's formatting , deleting report of uncessary data. when wrote code worked when paste workbook runs ok. still format , assign special values things won't delete values don't want! know why is?

here's code (mind might not efficient method of coding, i'm mere novice :) )

sub newfilter() dim wbi workbook, wb0 workbook dim wsi worksheet, ws0 worksheet dim myrange range dim outputrange range, endorange dim nfrange range dim long, j long   'establish source of info worbooks , worksheet set wbi = thisworkbook set wsi = wbi.sheets("sheet1")  'filters original wb criteria 'selection.autofilter activesheet.range("a1").autofilter field:=5, criteria1:=array( _     "gur insurance plan 1", "gur insurance plan 2", "gur insurance plan 3", _     "gur insurance plan 4", "gur insurance pol no 1", "gur insurance pol no 2", _     "gur insurance pol no 3"), operator:=xlfiltervalues  'establish , create new worbook output info set wb0 = workbooks.add  wb0  'save new workbook set ws0 = wb0.sheets("sheet1") .saveas filename:="new soarian test"  'copy visible cells in original workbook wsi.cells.copy  'paste values , formatting rules new workbook ws0.range("a1").pastespecial paste:=xlvalues, operation:=xlnone, _     skipblanks:=false, transpose:=false ws0.range("a1").pastespecial paste:=xlpasteformats, operation:=xlnone, _     skipblanks:=false, transpose:=false end  'add new column called "rep" ws0.columns("a:a").insert shift:=xltoright,         copyorigin:=xlformatfromleftorabove ws0.range("a1").value = "rep"  **'filter soarian column "approved" selection.autofilter ws0.range("a1").autofilter field:=7, criteria1:=array( _      "approved"), operator:=xlfiltervalues if ws0.range("e1:e1000").specialcells(xlcelltypevisible).rows.count > 1 then**  'select , delete cells unfilter ws0.range("a2:i1000").specialcells(xlcelltypevisible).select application.displayalerts = false selection.delete application.displayalerts = true ws0.autofiltermode = false  else  ws0.autofiltermode = false  end if  **'filter encprov clincal psych , physcial therapy ws0.range("a1").autofilter field:=3, criteria1:=array( _      "physical therapy", "clinic psych outpat"), operator:=xlfiltervalues  if ws0.range("c1:c1000").specialcells(xlcelltypevisible).rows.count > 1 'select visible cells , delete them , unfilter ws0.range("a2:i1000").specialcells(xlcelltypevisible).select application.displayalerts = false selection.delete application.displayalerts = true else ws0.autofiltermode = false end if**

esentially i'm having trouble getting "approved" , clinical therapy , physical therapy values delete when filter them. works in original workbook wrote code in. ideas??

thank much!


Comments

Post a Comment

Popular posts from this blog

html - Firefox flex bug applied to buttons? -

-
i'm trying apply flex button on firefox i'm having problem on chrome doesn't happens. this css: .button { display: inline-flex; align-items: center; } as can see in fiddle, "caret" word moved new line, happens if element <button> tag, <div> works expected. http://codepen.io/anon/pen/xblmgx is firefox bug or there css i'm missing? nevermind, looks "mr firefox" doesn't idea... <button> not implementable (by browsers) in pure css, bit of black box, perspective of css. means don't react in same way e.g. <div> would. this isn't specific flexbox -- e.g. don't render scrollbars if put "overflow:scroll" on button, , don't render table if put "display:table" on it. stepping further, isn't specific <button> . consider <fieldset> , <table> have special rendering behavior: data:text/html,<fieldset style="d...
Read more

html - Missing border-right in select on Firefox -

-
Image
when put select div width , padding-left, options have no border on right. more, happend if select have width 118px , parent have 15px of padding left! have idea, going on? my code: <!doctype html> <html> <head lang="en"> </head> <body> <div style="width: 1000px; padding-left: 15px;"> <select style="width: 118px;"> <option>a</option> <option>b</option> <option>c</option> </select> </div> </body> </html> and result: here plunker: click it happend on firefox on windows. tested on 40.0.2 version -webkit-box-sizing: border-box; -moz-box-sizing: border-box; -ms-box-sizing: border-box; box-sizing: border-box; source: https://stackoverflow.com/a/11390432/4431269 source of problem: https://bugzilla.mozilla.org/show_bug.cgi?id=924068 and use of google ! edit: (source of problem, explained) after rea...
Read more

python - build a suggestions list using fuzzywuzzy -

-
i building suggestion engine database. i'm using fuzzywuzzy module match user input string existing database shown below. if request.method == "get": display_dict = {} user_input = request.get["user_input"] # user input match_dict = {} food_items_obj = food_items.objects.all() # fetch objects table items in food_items_obj : match = fuzz.ratio(user_input.lower(),items.name.lower()) # try match user input existing names match_dict[match] = items.name # put 1 dictionary matched_dict = ordereddict(sorted(match_dict.items(),reverse = true)) # sort dictionary if max(matched_dict.keys()) == 100: # if exact match put in dict , return display_dict[100] = matched_dict[100] else : # if not found try best matching words.. ###########this part need help! ############# k,v in matched_dict.items(): if user_input in v : display_dict[k]...
Read more