vba - Unable to get the vlookup to work -


i run set of codes , returns error:

run-time error '1004' unable vlookup property of worksheetfunction class.

i have 1 vlookup in sub routine. there wrong code ? debug , error appears @ policybox there. 

sub linkpolicynum() dim r integer dim policynum variant dim lookup_num range dim policybox variant       r = activecell.row     'row number of selected cell      policynum = activesheet.cells(r, 3).value      set lookup_num = thisworkbook.sheets("policydetails").range("a1:z5000")      policybox = application.worksheetfunction.vlookup(policynum, lookup_num, 3, false)     'to match policy number policy details      msgbox policynum     msgbox policybox    end sub

there appears nothing wrong code. seeing result of happens when use worksheetfunction version of functions , no result returned. specifically, throw error , interrupt execution of vba. in case, if tried same formula in workbook instead of in vba, form of error (#n/a or #value! possibly).

if want prevent happening, easiest thing change using application.vlookup instead of application.worksheetfunction.vlookup. although there no intellisense function behaves same other except error handling. if non-worksheetfunction version of function has error, return error instead of throwing it. allows check error , carry on code.

if think should finding value vlookup here can start checking mismatches between text/numbers , other things that. check formulas , not in vba though.

here example of using other functional form , trapping error.

sub linkpolicynum()     dim r integer     dim policynum variant     dim lookup_num range     dim policybox variant      r = activecell.row     'row number of selected cell      policynum = activesheet.cells(r, 3).value      set lookup_num = thisworkbook.sheets("policydetails").range("a1:z5000")      policybox = application.vlookup(policynum, lookup_num, 3, false)     'to match policy number policy details      if iserror(policybox)         'possibly "not found" case     else         msgbox policynum         msgbox policybox     end if  end sub

reference on issue: http://dailydoseofexcel.com/archives/2004/09/24/the-worksheetfunction-method/


Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more