excel - How do I get vba loop result to populate a combobox? -


problem: need search list of worksheets in active workbook , return name of every worksheet has cell value matches search input. names of these worksheets need populate userform combobox duplicates.

partial solution: i've been able reverse-engineer piece of code of above. however, worksheet names populate msgbox duplication. how make result populate combobox instead?

i've been experimenting outputting collection writing results new worksheet, these option still in conceptual phase, have no code post.

update (some code):

public sub finddate() 'find date data on sheets  dim ws worksheet dim rngfind range dim mydate string dim firstaddress string dim addressstr string dim findnum integer dim sheetarray(299) integer dim arrayindex integer  mydate = inputbox("enter date find")  if mydate = "" exit sub  each ws in activeworkbook.worksheets     'do not search following sheets     ws         if ws.name = "cm chapters" goto mynext         if ws.name = "cm codes" goto mynext         if ws.name = "pcs categories" goto mynext         if ws.name = "pcs chapters" goto mynext         if ws.name = "pcs code" goto mynext      set rngfind = .columns(41).find(what:=mydate, lookin:=xlvalues, lookat:=xlpart, matchcase:=false)          if not rngfind nothing         firstaddress = rngfind.address              findnum = findnum + 1         addressstr = addressstr & .name & vbcrlf  ''''original working code     '            addressstr = addressstr & .name & " " & rngfind.address & vbcrlf ''''modified remove excess text                                set rngfind = .columns(41).findnext(rngfind)      loop while not rngfind nothing , rngfind.address <> firstaddress end if  mynext:     end      next ws          if len(addressstr) ''''    original working code '                msgbox "found: "" & mydate & "" " & findnum & " times." & vbcr & _ '                addressstr, vbokonly, mydate & " found in these cells" ''''    modified to remove excess text              msgbox vbcr & addressstr         else:             msgbox "unable find " & mydate & " in workbook.", vbexclamation         end if  end sub

try this

do     findnum = findnum + 1      addressstr = addressstr & .name     combobox1.additem addressstr 'replace combobox1 combobox name     addressstr = addressstr & vbcrlf ' if still want add line feed                                  set rngfind = .columns(41).findnext(rngfind)  loop while not rngfind nothing , rngfind.address <> firstaddress

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