Code to perform formulas to all excel files in a folder not running? -


=i have code performs series of calculations excel (.xls) files in folder destination , places specific number in specified cells (g2, h2, i2, m2 , o1). issue code not respond when click run. doesn't give error. ideas went wrong here?

sub code()      dim file string     dim wbresults workbook     dim long     dim mypath string      application.screenupdating = false     application.displayalerts = false      mypath = "c:\location\"      file = dir$(mypath & "*.xls*")      while (len(file) > 0)         set wbresults = workbooks.open(filename:=mypath & file, updatelinks:=0)          wbresults.worksheets(split(file, ".")(0))             = .cells(.rows.count, 2).end(xlup).row              .range("g2")                 .formula = "=0"             end              .range("g3:g" & i)                 .formula = "=sqrt(((e3-e2)^2)+((f3-f2)^2))"             end              .range("h2")                 .formula = "=1"             end              .range("h3:h" & i)                 .formula = "=g3+h2"             end              .range("i2")                 .formula = "=1"             end              .range("i3")                 .formula = "=if(d3>=sum($i$2:i2*2.5+$o$1),1,0)"             end              .range("i4:i" & i)                 .formula = "=if(d3>=sum($i$3:i3)*2.5+$o$1,1,0)"             end              .range("j2:k" & i)                 .formula = "=if($i2=1,d2,j1)"             end              .range("k2:k" & i)                 .formula = "=if($i2=1,h2,k1)"             end              .range("l2:l" & i)                 .formula = "=if(i2=1,(j2-j1)/(k2-k1),"")"             end              .range("m2")                 .formula = "=0"             end              .range("m3:m" & i)                 .formula = "=if(l3="",m2,l3)"             end              .range("o1")                 .formula = "=177.5"             end          end          wbresults.close savechanges:=true         file = dir     wend      application.displayalerts = true     application.screenupdating = true end sub

comment out these lines debugging purposes. once fixed, un-comment them.

application.screenupdating = false application.displayalerts = false

i see couple problems.

  • if file not found .xls extension, nothing happen.

  • everywhere have string in formula "" have double quote """"

    with .range("l2:l" & i)     .formula = "=if(i2=1,(j2-j1)/(k2-k1),"""")" end

  • you missing equals sign before if on these equations

    with .range("j2:k" & i)     .formula = "=if($i2=1,d2,j1)" end  .range("k2:k" & i)    .formula = "=if($i2=1,h2,k1)" end

Comments

Post a Comment

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

i using signpost oauth access data magento server. have read various tutorials on same , reach point open browser user can enter credentials. however, per requirement have automate part. hence, user should not browser page. have set-up done on server side ( magento ), hit url , returned call page. same through program in android. i have tried below, consumer = new commonshttpoauthconsumer(key, secret); provider = new commonshttpoauthprovider(oauth_init_url,access_token_url, authorize_url); try { provider.retrieverequesttoken(consumer, oauth.out_of_band); log.d("tokens" , consumer.gettoken() + " -- " + consumer.gettokensecret()); } and request tokens. dont know how bypass next step. tried directly accessing accesstoken (stupid of me) provider.retrieveaccesstoken(consumer, "mycallback://callback"); no luck, ends in oauth.signpost.exception.oauthnotauthorizedexception: authorization failed (server replied 401). ...
Read more

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

getting error org.mockito.exceptions.misusing.invaliduseofmatchersexception: invalid use of argument matchers! 1 matchers expected, 2 recorded. exception may occur if matchers combined raw values: //incorrect: somemethod(anyobject(), "raw string"); when using matchers, arguments have provided matchers. example: //correct: somemethod(anyobject(), eq("string matcher")); at when( getprogramservice .callservice(any(getprogramtype.class))) .thenreturn(jaxbresponse); please explain error , possible resolution the code posted looks fine; don't see problem it. code before or above causing exception. key here: invalid use of argument matchers! 1 matchers expected, 2 recorded. any , used above, doesn't return "special kind of null" or "special kind of getprogramtype"; don't exist. instead, returns null , side effect puts matcher on stack. whe...
Read more

google shop client API returns 400 bad request error while adding an item -

i'm working on solution add items in google shopping market java application. following tutorial real mess because of missing classes of laste release, after setting 1.5-beta maven managed make base example typecheck correctly classes. still can make simple task of adding 1 item. instead of posting whole code i'm posting part creates product feed. private product createproduct(string id) { product product = new product(); product.title = "red wool sweater"; product.content = new content( "text", "comfortable , soft, sweater keep warm on " + "cold winter nights. red , blue stripes."); product.appcontrol = new appcontrol(); product.appcontrol.addrequireddestination("productads"); product.externalid = id; product.lang = "it"; product.country = "it"; product.condition = "nuovo"; product.price = new price("eu...
Read more