excel 2007 vba add item sheet names to listbox -

-

using excel 2007 vba

have sheet "dashboard", have other sheets special task sheets can anywhere in book, found between sheets "tasknew" , "taskend". these special task sheets vary in count.

upon dashboard activation, want populate listbox names of special task sheets, user can select sheet form drop down , navigate sheet.

following results in runtime error '438' object doesn't support property or method:

application.calculation = xlcalculationautomatic application.screenupdating = true  dim startindex integer dim endindex integer dim loopindex integer 'dim sht worksheet startindex = sheets("tasknew").index + 1 endindex = sheets("taskend").index - 1 loopindex = startindex endindex     'sheetsnavigationdropdown.additem sheets(loopindex).name     'sheets("dashboard").listbox20.additem sheets("sample").name     sheets("dashboard").listbox20.additem sheets(loopindex).name next loopindex

i have tried listbox20.additem ... still doesn't work. yes, listbox20 exists on sheets("dashboard"), yes edited it's name eliminate spaces.

it chokes on/highlights sheets("dashboard").list.... line when debugging.

ideas?

might start sanity check:

dim o oleobject  debug.print "---" each o in sheets("dashboard").oleobjects     debug.print o.name & " = " & o.progid next o debug.print "---"

and should listbox20 = forms.listbox.1 1 of results

(edit: works in excel 2003 anyway)


Comments

Post a Comment

Popular posts from this blog

c++ - How do I get a multi line tooltip in MFC -

-
right now, have tool tip pops when hover on edit box. problem tool tip contains multiple error messages , in 1 long line. need have each error message on own line. error messages contained in cstring new line seperating them. my existing code below. bool ontooltiptext(uint, nmhdr* pnmhdr, lresult* presult) { assert(pnmhdr->code == ttn_needtexta || pnmhdr->code == ttn_needtextw); // need handle both ansi , unicode versions of message tooltiptexta* pttta = (tooltiptexta*)pnmhdr; tooltiptextw* ptttw = (tooltiptextw*)pnmhdr; // tchar szfulltext[256]; cstring strtiptext=_t(""); uint nid = pnmhdr->idfrom; if (pnmhdr->code == ttn_needtexta && (pttta->uflags & ttf_idishwnd) || pnmhdr->code == ttn_needtextw && (ptttw->uflags & ttf_idishwnd)) { // idfrom hwnd of tool nid = ::getdlgctrlid((hwnd)nid); } //m_errprojaccel[ch] contains 1 or more error messages each...
Read more

asp.net - In javascript how to find the height and width -

-
i having .aspx , masterpage page. in masterpage loading aspx page . in aspx page design using generating table structure using code-behind server in javascript how find height , width . regards, kumar if you're looking table height , width, should it var tbl = document.getelementbyid('tbldemo'); alert(tbl.offsetwidth + '\n' + tbl.offsetheight);
Read more

c# - DataTable to EnumerableRowCollection -

-
i have datatable according client requirement can contain invalid date "00/00/1999",null,empty string.(typed datset) when collect them enumerables wish convert of invalid forms empty string. (i.e) enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || (how check date invalid date) ? string.empty : order.field<datetime>("orderdate") } how check whether date valid date or not? datetime.tryparse...like given current code: datetime date; enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || !datetime.tryparse(convert.tostring(order.field<datetime...
Read more