excel - unchecking the checkbox in userform -


i have userform designed 3 listboxes multiple option.

also, have 3 commandbuttons, "filter", "unfilter" , "exit".

i have access userform button in sheet, below code.

sub dev() userform1.show end sub

from userform, select checkboxes , click "filter". see filtered result in sheet "data".

the problem when clicking button sheet "data" listbox has previous selection. clear previous selection in list box. currently, have clear case in unfilter button.

i have in main command button.

i tried this

sub dev() userform1.show call userform1.cbunfilter end sub()

but showed "invalid use of property error".

can me how can ?

this code filter button in userform 

private sub cbfilter_click()    if cbfilter.caption = "filter"    call dofilter.dofilter    else    'do end if end sub

this code unfilter button in userform

private sub cbunfilter_click() dim icount, jcount, kcount integer if cbunfilter.caption = "unfilter"  icount = 0 me!listbox1.listcount me!listbox1.selected(icount) = false next icount  jcount = 0 me!listbox2.listcount me!listbox2.selected(jcount) = false next jcount  kcount = 0 me!listbox3.listcount me!listbox3.selected(kcount) = false next kcount end if end sub

could have unfilter function can called button in sheet.

this how userform looks. userform called button main sheet

the answer entirely depends on how 'remove' userform.

if unload form programmatically (ie unload userform1) or user closes userform manually (ie clicking red cross), current settings lost. haven't said how you've populated items in listboxes i've assumed you've done programmatically. if that's case, listboxes cleared - not selections, items too.

if hide form, can done programmatically (ie me.hide), current settings remain and, when show userform again settings visible.

i have made best guess @ mimicking structure, ie: have worksheet called "data" onto have inserted commandbutton. macro have assigned commandbutton called 'dev' , 'dev' code in module1.

the unload method

for case i've assumed "exit" command button contains following code:

private sub cbexit_click()     unload me end sub

you populate listboxes in userform_initialize() event. (you can access routine event clicking on 'userform1`, selecting 'useform' in first combobox below menu bar , 'initialize' in second.) i've put sample arrays in code behind, you'd populate wish:

private sub userform_initialize()     dim arr(2) variant      arr(0) = array("a", "b", "c", "d", "e", "f", "g", "h")     arr(1) = array("a", "b", "c", "d", "e", "f")     arr(2) = array("a", "b", "c", "d")      me.listbox1.list = arr(0)     me.listbox2.list = arr(1)     me.listbox3.list = arr(2) end sub

your 'dev' routine remain , each time useform becomes visible, listboxes cleared.

the hide method

for case i've assumed "exit" button code is:

private sub cbexit_click()     me.hide end sub

in userform code, you'd have couple of routines, public 1 can called module , private 1 clear boxes:

public sub reset()     clearlistbox me.listbox1, me.listbox2, me.listbox3 end sub  private sub clearlistbox(paramarray lboxes() variant)     dim item variant     dim lbox msforms.listbox     dim long      each item in lboxes         set lbox = item         = 0 lbox.listcount             lbox.selected(i) = false         next     next end sub

then 'dev' code be:

public sub dev()     userform1         .reset         .show     end end sub

incidentally, 'unfilter' button call clearlistbox routine:

private sub cbunfilter_click()     clearlistbox me.listbox1, me.listbox2, me.listbox3 end sub

Comments

Post a Comment

Popular posts from this blog

python - Operations inside variables -

this question has answer here: evaluating mathematical expression in string 12 answers i want make python script finds maximum possible output using 2 operations. problem says there syntax error @ 2nd last line, in b in there. how can fix it? x = 0 = int(input("1st number:")) c = int(input("2nd number:" )) e = int(input("3rd number:" )) in range(4): if == 0: b = "+" elif == 1: b = "-" elif == 2: b = "/" else: b = "*" j in range(4): if j == 0: d = "+" elif j == 1: d = "-" elif j == 2: d = "/" else: d = "*" k = b c d e print(k) if you're after variables e on single line, couldn...
Read more

Generic Map Parameter java -

i having lot of methods of type: public static list<eduusers> getdetails(class c, map<string, integer> params) { list<eduusers> details = null; session session = hibernateutil.getsessionfactory().opensession(); transaction tx = null; try { tx = session.begintransaction(); criteria cr = session.createcriteria(c); (map.entry<string, integer> entry : params.entryset()) { cr.add(restrictions.eq(entry.getkey(), entry.getvalue())); } details = cr.list(); tx.commit(); } catch (exception asd) { log.debug(asd.getmessage()); if (tx != null) { tx.commit(); } } { session.close(); } return details; } i trying have generic method them , have written far: public static <t> list<t> getdetails(class<t> c, class<t> b) { l...
Read more

arrays - What causes a java.lang.ArrayIndexOutOfBoundsException and how do I prevent it? -

what arrayindexoutofboundsexception mean , how rid of it? here code sample triggers exception: string[] name = {"tom", "dick", "harry"}; for(int = 0; i<=name.length; i++) { system.out.print(name[i] +'\n'); } your first port of call should documentation explains reasonably clearly: thrown indicate array has been accessed illegal index. index either negative or greater or equal size of array. so example: int[] array = new int[5]; int boom = array[10]; // throws exception as how avoid it... um, don't that. careful array indexes. one problem people run thinking arrays 1-indexed, e.g. int[] array = new int[5]; // ... populate array here ... (int index = 1; index <= array.length; index++) { system.out.println(array[index]); } that miss out first element (index 0) , throw exception when index 5. valid indexes here 0-4 inclusive. correct, idiomatic for statement here be: for (int index = 0; index <...
Read more