excel vba - Turn 3 listboxes into 1 3-column listbox? -

-

the following code searches column a(sorted) item# , each time finds it, corresponding b, c & d column entered 3 listboxes. use 3-column listbox. help?

private sub cmdsearch_click()        dim response long     dim notfound integer     dim arr variant     dim long     dim str1 string, str2 string, str3 string      notfound = 0      activeworkbook.sheets("items").activate      response = val("0" & replace(txtitemnumber.text, "-", ""))      if response <> false          activesheet             arr = .range("a2:d" & .cells(.rows.count, "a").end(xlup).row)         end          = 1 ubound(arr)             if arr(i, 1) = response                 str1 = iif(str1 = "", arr(i, 2), str1 & "|" & arr(i, 2))                 str2 = iif(str2 = "", arr(i, 3), str2 & "|" & arr(i, 3))                 str3 = iif(str3 = "", arr(i, 4), str3 & "|" & arr(i, 4))             end if         next          if str1 = ""             msgbox "item number not found!", vbexclamation             notfound = 1         else             frame1.visible = true             listbox1.list = split(str1, "|")             listbox2.list = split(str2, "|")             listbox3.list = split(str3, "|")         end if      end if  end sub

thanks help...

this should it:

change:

    if str1 = ""         msgbox "item number not found!", vbexclamation         notfound = 1     else         frame1.visible = true         listbox1.list = split(str1, "|")         listbox2.list = split(str2, "|")         listbox3.list = split(str3, "|")     end if

to:

if str1 = ""   msgbox "item number not found!", vbexclamation   notfound = 1 else   frame1.visible = true   listbox1.clear 'to avoid errors   listbox1.columncount = 3    = 0 ubound(split(str1, "|"))     listbox1.additem split(str1, "|")(i)     listbox1.list(i, 1) = split(str2, "|")(i)     listbox1.list(i, 2) = split(str3, "|")(i)   next end if

hint: may change columnwidths

however... leave work, suggest merge arr-part... using solution waste :d


Comments

Post a Comment

Popular posts from this blog

java - Static nested class instance -

-
this question has answer here: java inner class , static nested class 23 answers i came across in java, know static nested class why create instance of 'static'. isn't whole idea of 'static' use without instance? understand concept of inner classes, why (and frankly how possible to) create 'instance' of 'static' member @ ? why this: 1- outerclass.staticnestedclass nestedobject = new outerclass.staticnestedclass(); 2- nestedobject.anestedclassmethod(); and not this: 1- outerclass outerinstance=new outerclass(); 2- outerinstance.staticnestedclass.anestedclassmethod(); use on inner classes, keyword static indicates can access inner class without instance of outer class. for example: public class outer { public static class inner { /* code here. */ } } with construction, can create instance of inn
Read more

c# - Bluetooth LE CanUpdate Characteristic property -

-
i building xamarin.forms cross platform mobile app, uses monkey.robotics bluetoth low energy functionality. connecting mbed based implimentation of custom gatt service . in xamarin c#, triggers characteristic. canupdate property in monkey.robotics? this standard example c# based on: if (characteristic.canupdate) { characteristic.valueupdated += (s, e) => { debug.writeline("characteristic.valueupdated"); device.begininvokeonmainthread( () => { updatedisplay(characteristic); }); isbusy = false; // spin until first result received }; isbusy = true; characteristic.startupdates(); } this has been working, since changed own custom gatt service connecting to, canupdate property false. property , how triggered? me debugging gatt service code. thanks monkey.robotics open sour
Read more

JavaScript - Replace variable from string in all occurrences -

-
ok, know if have character '-' , want remove in places in string javascript, ... someword = someword.replace(/-/g, ''); but, when applying array of characters, s not working ... const badchars = ('\/:*?"<>|').split(''); let filename = title.replace(/ /g, '-').tolocalelowercase(); (let item = 0; item < badchars.length; item++) { // below not work global '/ /g' filename = filename.replace(/badchars[item]/g, ''); } any ideas? /badchars[item]/g looks badchars , literally, followed i , t , e , or m . if you're trying use character badchars[item] , you'll need use regexp constructor, , you'll need escape regex-specific characters. escaping regular expression has been well-covered . using that: filename = filename.replace(new regexp(regexp.quote(badchars[item]), 'g'), ''); but , don't want that. want character class: let filename = title.replac
Read more