vba - Calling a Sub by pressing a button -


please me solve issue. have vba read file , fill sheet, , it's working fine, have sub searching , colorize strings in sheet (not working).

sub importdelimitedtext() 'imports text separated ssepchar in ssourcefile 'range(stargetaddress). overwrites old data. 'normally procedure called 'passing info text file's name , path, separator '(ssepchar) , maybe insert text - cell 'adress (stargetsddress).  dim sdel string * 1 dim linestring string dim ssourcefile string dim ssepchar string dim stargetaddress string dim rtargetcell range dim vtargetvalues variant dim r long dim flen long dim fn integer  on error goto errorhandle  'text file , path ssourcefile = "d:\alastair\downloads\ctmpsm2.txt"  'separator (delimiter) ssepchar = ","  'start cell writing data stargetaddress = "a1"  'ssourcefile doesn't exist if len(dir(ssourcefile)) = 0 exit sub  'identifies delimiter if ucase(ssepchar) = "tab" or ucase(ssepchar) = "t" sdel = chr(9) else sdel = left(ssepchar, 1) end if  'import data worksheets(1).activate  'sets range start cell set rtargetcell = range(stargetaddress).cells(1, 1)  'deletes old data rtargetcell.currentregion.clear  on error goto beforeexit  'gets free file number operating system fn = freefile  'opens file input open ssourcefile input #fn on error goto 0 flen = lof(fn) r = 0 while not eof(fn) line input #fn, linestring 'calls function parses text. vtargetvalues = parsedelimitedstring(linestring, ssepchar) 'writes cells updatecells rtargetcell.offset(r, 0), vtargetvalues r = r + 1 wend  'closes text file close #fn  beforeexit: set rtargetcell = nothing  exit sub errorhandle: msgbox err.description & " error in importdelimitedtext." resume beforeexit end sub ''the function below parses ("reads") text.  function parsedelimitedstring(inputstring string, _ sdel string) variant 'returns variant array every element in 'inputstring separated sdel.  dim integer, icount integer dim sstring string, schar string * 1 dim resultarray() variant  on error goto errorhandle  sstring = "" icount = 0 = 1 len(inputstring) schar = mid$(inputstring, i, 1) if schar = sdel icount = icount + 1 redim preserve resultarray(1 icount) resultarray(icount) = sstring sstring = "" else sstring = sstring & schar end if next  icount = icount + 1 redim preserve resultarray(1 icount) resultarray(icount) = sstring parsedelimitedstring = resultarray  exit function errorhandle: msgbox err.description & " error in function parsedelimitedstring." end function ''the following procedure writes text cells in worksheet.  sub updatecells(rtargetrange range, vtargetvalues variant) 'writes content in vtargetvalues 'to active sheet starting in rtargetrange. 'overwrites existing data.  dim r long, c integer  on error goto errorhandle  if typename(activesheet) <> "worksheet" exit sub r = 1 c = 1  on error resume next  c = ubound(vtargetvalues, 1) r = ubound(vtargetvalues, 2) range(rtargetrange.cells(1, 1), rtargetrange.cells(1, 1). _ offset(r - 1, c - 1)).formula = vtargetvalues  exit sub errorhandle: msgbox err.description & " error in procedure updatecells." end sub     private sub worksheet_selectionchange(byval target range) call importdelimitedtext end sub  'sub called button press in sheet... sub changecolor() set mr = range("a1:i1000") each cell in mr if cell.value = "ok" cell.interior.colorindex = 10 if cell.value = "notfound" cell.interior.colorindex = 3 next end sub

last sub doesn't work when press button on sheet.


Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more

ruby on rails - Seeing duplicate requests handled with Unicorn -

recently upgraded our ec2 instances c3.large in order boost more unicorn workers handle increased traffic our site. (6xworkers per machine - 2 ec2 instances). when did this, started seeing duplicate records being created! looks somehow, maybe 2 unicorn workers attempting process same request? in nginx logs see 1 [post] request particular rails controller - yet 2 records being created in database. i'm hitting kind of race condition issue - have no idea how debug this. doesn't happen time, when it's frustrating well. noticed 2 database records within 5 seconds of each other. (and yes disable button when user clicks submit button). unicorn 4.8.2 ruby 1.9.3 rails 3.2.14 any great! thanks! although may not fix problem, upgrade ruby 2.0.0. there blog mentioning idea upgrade ruby 2.0.0 if using unicorn. for example: https://www.digitalocean.com/community/articles/how-to-optimize-unicorn-workers-in-a-ruby-on-rails-app specifically: if using ruby 1.9, ...
Read more