VBA Excel inputbox run time error 13 type mismatch -

-

i have macro working well. issue have inputbox. macro running errors when user presses cancel or x out of inputbox. the user can input 15 values search , enters 0 search begin. want make more robust wont run these errors. please help. 

sub findvalues()         dim lsearchrow integer     dim rw integer, cl range, lsearchvalue long, lcopytorow integer     dim ihowmany integer     dim asearch(15) long     dim integer      ' clear sheets before runs accurate number of funds opend.      sheet2.cells.clearcontents     sheets("tier 2").cells.clearcontents     sheets("tier 3").cells.clearcontents     sheets("tier 4").cells.clearcontents     sheets("tier 5").cells.clearcontents      on error goto err_execute     fixc     sheet2.cells.clear     sheet1.select     ihowmany = 0     lsearchvalue = 99      'this end user input required a/c searched      while lsearchvalue <> 0         lsearchvalue = inputbox("please enter value search for. enter 0 indicate finished" & _     "entry.", "enter search value")         if lsearchvalue <> 0             ihowmany = ihowmany + 1             if ihowmany > 15                 msgbox "you limited 15 search numbers.", vbokonly, "limit reached"                 ihowmany = 15                 exit             end if             asearch(ihowmany) = lsearchvalue         end if     loop      if ihowmany = 0         msgbox "no selections entered.", vbokonly + vbcritical, "no search data"         exit sub     end if      lcopytorow = 2      rw = 1 1555         each cl in range("d" & rw & ":m" & rw)         '------------------------------------------------             = 1 ihowmany                 debug.print cl.row & vbtab & cl.column                 lsearchvalue = asearch(i)                 if cl = lsearchvalue                     cl.entirerow.copy                     'destination:=worksheets("sheet2")                     '.rows(lcopytorow & ":" & lcopytorow)                     sheets("sheet2").select                     rows(lcopytorow & ":" & lcopytorow).select                     'selection.pastespecial paste:=xlpastevaluesandnumberformats                     selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _                        xlnone, skipblanks:=false, transpose:=false                     'move counter next row                     lcopytorow = lcopytorow + 1                     'go sheet1 continue searching                     sheets("sheet1").select                 end if             next             'lsearchrow = lsearchrow + 1         next cl     next rw     'position on cell a3     'application.cutcopymode = false     'selection.copy     sheets("sheet2").select     cells.select     selection.pastespecial paste:=xlpasteformats, operation:=xlnone, _         skipblanks:=false, transpose:=false      application.cutcopymode = false     sheet2.select     msgbox "all matching data has been copied." exit sub

define string variable dim lsearchstring string , assign return value of inputbox: lsearchstring = inputbox(...). can check input being numeric: if isnumeric(lsearchstring) , handle wrong input. if successful can proceed convert integer: lsearchvalue = cint(lsearchstring). have know cint() returns 0 if argument not number.

the following code snippet modified extract code. wrong inputs ignored.

update

dim lsearchvalue integer dim lsearchstring string  '..........  lsearchvalue = 99  while true     lsearchstring = inputbox( _            "please enter value search for. " & _            "enter 0 indicate finished entry", _            "enter search value")      if isnumeric(lsearchstring)         lsearchvalue = cint(lsearchstring)         if lsearchvalue = 0 exit          ihowmany = ihowmany + 1         if ihowmany > 15             msgbox "you limited 15 search numbers.", vbokonly, "limit reached"             ihowmany = 15             exit         end if         asearch(ihowmany) = lsearchvalue     end if loop

Comments

Post a Comment

Popular posts from this blog

java - Oracle EBS .ClassNotFoundException: oracle.apps.fnd.formsClient.FormsLauncher.class ERROR -

-
i need in configuring java on machine because, when try loading forms, loader goes in circles , gives error: java.lang.classnotfoundexception: oracle.apps.fnd.formsclient.formslauncher.class @ sun.plugin2.applet.applet2classloader.findclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass0(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ java.lang.classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadcode(unknown source) @ sun.plugin2.applet.plugin2manager.createapplet(unknown source) @ sun.plugin2.applet.plugin2manager$appletexecutionrunnable.run (unknown source) @ java.lang.thread.run(unknown source) i have tried re-installing firefox, older versions of java runtime environments, disabling proxy. what missing? application working on other machines. i spent around 100 hours finding s...
Read more

c# - how to use buttonedit in devexpress gridcontrol -

-
Image
i trying create gridcontrol buttonedit in 1 of columns. when user clicks button edit, popups form select product. when selection done on popup, returns datarow selection main grid below. but when column loses focus, value wrote column disappear. here code creates gridcontrol's data , buttonedit's click event. private void frmsiparisnew_load(object sender, eventargs e) { dt = new datatable(); dt.columns.add("malzeme_kodu",typeof(string)); dt.columns.add("malzeme_aciklama", typeof(string)); dt.columns.add("adet", typeof(decimal)); dt.columns.add("birim", typeof(string)); dt.columns.add("fiyat", typeof(decimal)); dt.columns.add("kur", typeof(string)); dt.columns.add("tutar", typeof(decimal)); datarow dr = dt.newrow(); dt.rows.add(dr); gc.datasource = dt; } private void repositoryitembuttoneditmal...
Read more

How do you convert a timestamp into a datetime in python with the correct timezone? -

-
you naively expect work: import pytz datetime import datetime def tz_datetime_from_timestamp(timestamp): """convert timestamp datetime """ tz = pytz.timezone('australia/perth') server_time = datetime.utcnow() delta = tz.utcoffset(server_time) value = datetime.utcfromtimestamp(timestamp).replace(tzinfo=tz) return value + delta print tz_datetime_from_timestamp(1416387060) and convert timestamp 1416387060 wed nov 19 16:51:00 2014 gmt+8:00. ...but not. prints: 2014-11-19 16:51:00+07:43 the timezone of australia/perth not gmt+7:43. it gmt+8:00. unequivocally stated on australian government website http://www.australia.gov.au/about-australia/our-country/time : awst equal coordinated universal time plus 8 hours (utc +8). so, heck pytz pulling 7.43 from? well, turns out pytz pulls data http://www.iana.org/time-zones time zone database, , database states: # western australia # # rule name type in on @...
Read more