Excel VBA move select items from listbox to a listbox in a differnt form that will be another popup userform -


i have workbook has listbox people can select multiple rows. want take information once selected listbox in new form pop once selected.

i found examples transfer between listboxes in same userform, need moving them between different forms.

this code shows how pass information between 2 user forms on same form. need modify move between 2 different forms. if click submit button , listbox textboxes pops up.

option explicit 'move listbox items in userform 'code dave peterson 'posted on www.contextures.com       private sub btn_moveallleft_click()      dim ictr long      ictr = 0 me.listbox2.listcount - 1         me.listbox1.additem me.listbox2.list(ictr)     next ictr      me.listbox2.clear end sub   private sub btn_moveallright_click()  dim ictr long  ictr = 0 me.listbox1.listcount - 1     me.listbox2.additem me.listbox1.list(ictr) next ictr  me.listbox1.clear end sub   private sub btn_moveselectedleft_click()  dim ictr long  ictr = 0 me.listbox2.listcount - 1     if me.listbox2.selected(ictr) = true         me.listbox1.additem me.listbox2.list(ictr)     end if next ictr  ictr = me.listbox2.listcount - 1 0 step -1     if me.listbox2.selected(ictr) = true         me.listbox2.removeitem ictr     end if next ictr  end sub   private sub btn_moveselectedright_click()  dim ictr long  ictr = 0 me.listbox1.listcount - 1     if me.listbox1.selected(ictr) = true         me.listbox2.additem me.listbox1.list(ictr)     end if next ictr  ictr = me.listbox1.listcount - 1 0 step -1     if me.listbox1.selected(ictr) = true         me.listbox1.removeitem ictr     end if next ictr  end sub  private sub cmdok_click() unload me end sub  private sub userform_initialize()  dim ictr long  me.listbox1     ictr = 1 10         .additem "this test" & ictr     next ictr end  me.listbox2     ictr = 1 10         .additem "this not test" & ictr     next ictr end  me.listbox1.multiselect = fmmultiselectmulti me.listbox2.multiselect = fmmultiselectmulti  end sub

wherever see me can reference different userform.

for example, have 2 userforms userform1 , userform2. let's our initial listbox, listbox1 on userform1 , contains list of colors. userform1 contains command button, commandbutton1 move selected items userform1 different listbox (also called listbox1) in userform2 next form.

the code in userform1, initial form shown, code on command button this:

private sub commandbutton1_click()      dim integer      = 0 me.listbox1.listcount - 1         if me.listbox1.selected(i) = true             userform2.listbox1.additem me.listbox1.list(i)         end if     next      userform2.show   end sub

-

Comments

Post a Comment

Popular posts from this blog

Java 8 + Maven Javadoc plugin: Error fetching URL -

i attempting generate javadoc links javadoc dependencies. have tried various means generate javadoc not produce qualified class names references classes dependencies. wanted links java doc simplified class names. however, java api classnames, no links , have qualified class names. working java 8. have following configuration: <plugin> <groupid>org.apache.maven.plugins</groupid> <artifactid>maven-javadoc-plugin</artifactid> <version>2.10.2</version> <configuration> <reportoutputdirectory>${project.basedir}/target</reportoutputdirectory> <destdir>javadoc</destdir> <windowtitle>epiphany</windowtitle> <doctitle>epiphany</doctitle> <show>private</show> <detectlinks>false</detectlinks> <detectoffline...
Read more

android - How to delete or change the searchview icon inside the SearchView actionBar? -

Image
how remove or change search view icon inside edittext? using appcompat library. i used below code modify , remove it's not working: searchmanager searchmanager = (searchmanager) getsystemservice(context.search_service); searchview.setsearchableinfo(searchmanager.getsearchableinfo(getcomponentname())); view search_mag_icon = (view)searchview.findviewbyid(android.support.v7.appcompat.r.id.search_mag_icon); search_mag_icon.setbackgroundresource(r.drawable.ic_stub); //search_mag_icon.setvisibility(view.gone); finally found solution. try following: try { field mdrawable = searchview.class.getdeclaredfield("msearchhinticon"); mdrawable.setaccessible(true); drawable drawable = (drawable)mdrawable.get(your search view here); drawable.setalpha(0); } catch (exception e) { e.printstacktrace(); }
Read more

c++ - Msgpack packing bools bug -

for c++ project use c++ msgpack library available in ubuntu (14.04) standard repository under name libmsgpack-dev. all works fine except when try pack bools. there things go absolutely bananas. first wrote simple test study pack method. turned out, can not trusted packing bools. here simple test showing problem: #include <msgpack.hpp> test_case("bool packing", "[msgpack1]") { msgpack::sbuffer buf; msgpack::packer<msgpack::sbuffer> p(&buf); std::string key = "boolvalue"; bool value = true; p.pack_map(1); { p.pack(key); p.pack(value); } msgpack::unpacked msg; msgpack::unpack(&msg, buf.data(), buf.size()); std::map<std::string, msgpack::object> m; msg.get().convert(&m); bool loaded_value; m.at(key).convert(&loaded_value); info("we packed: " << value); info("we loaded: " << loaded_value); r...
Read more