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

css - SVG using textPath a symbol not rendering in Firefox -

using textpath within symbol doesn't render in firefox. renders fine in latest chrome , ie, when try reference symbol, svg text doesn't render in firefox (37.0.1) - first box appears empty. code below (no external dependencies), there should 2 boxes word test flowing vertically in centre of each. edit: thought issue somehow involved flexbox layout, until paul pointed out issue exists without flexbox layout. the html is: <div> <svg id="not_working" viewbox="0 0 250 1200" preserveaspectratio="xmidymid meet"> <symbol id="test_symbol1" preserveaspectratio="xmidymid meet" viewbox="0 0 250 1200"> <path id="test_symbol_path" d="m 100 1200 l 100 0" /> <text font-size="100" fill="red"> <textpath text-anchor="middle" startoffset="50%" xlink:href="#test_symbol_path...
Read more

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

datatable - Matlab struct computations -

i download data yahoo! finance with: data = getyahoodailydata({'msft', 'axp'},'01/01/2000', '01/01/2015', 'dd/mm/yyyy'); and data stored 1x1 struct. want create tx2 matrix of daily adjusted closing prices msft , axp, column 7 in each table in struct. how can that? or better : there way make computations directly on information/prices in struct? you can access data in struct name. vecmsftadj = data.msft.adjclose; vecaxpadj = data.axp.adjclose; % if want n x 2 matrix madjclose = [vecmsftadj, vecaxpadj]; % personnaly prefer working table tadjclose = table; tadjclose.msftadj = vecmsftadj; tadjclose.axpadj = vecaxpadj;
Read more