excel - How to work with arrays and display them in a MsgBox VBA -


i need write sub take single argument input box searches stock price in list. sub searches down list of prices "b3:b20" , when finds first price exceeds price displays date displays in column next in column in msgbox. code have far having trouble figuring out how display corresponding data price found:(i believe problem has array created)

sub recordhigh1() dim searchprice currency dim rng range dim date1() string dim price() string dim ndates integer dim integer    wsdata.range("a3") ndates = range("a3", range("a3").end(xldown).value) redim date1(1 ndates) redim price(1 ndates) = 1 ndates     date1(i) = .offset(i, 0).value     price(i) = .offset(i, 1).value next end   searchprice = inputbox("enter price") set rng = range("b3", range("b3").end(xldown).address)  each cell in rng if cell.value > searchprice msgbox "the first date waltech stock price exceeded " & searchprice & " & date(i) =.offset(i, 0).value & " else msgbox "waltech stock has not exceeded price" end if next    end sub 

option explicit  sub recordhigh1() dim searchprice currency dim rng range dim date1() string dim price() string dim ndates long dim long '<~~ better use long type instead of integer  dim cell range   'with wsdata.range("a3")'<~~ wsdata not defined. or public variable? activesheet.range("a3") '<~~ otherwise set specific sheet: worksheets("mysheet").range("a3")     ndates = .range(.cells, .range("a3").end(xldown)).rows.count     redim date1(1 ndates)     redim price(1 ndates)     .range("a3")         = 1 ndates             date1(i) = .offset(i, 0).value             price(i) = .offset(i, 1).value         next '<~~ better type variable want iterate on     end end   searchprice = inputbox("enter price") set rng = activesheet.range("b3", activesheet.range("b3").end(xldown).address)'<~~ better add sheet reference (activesheet or worksheets("mysheet") or wsdata, latter once define it)   each cell in rng     if cell.value > searchprice         msgbox "the first date waltech stock price exceeded " & searchprice & " " & cell.offset(, -1)     else         msgbox "waltech stock has not exceeded price"     end if next cell '<~~ better type variable want iterate on  end sub

-

Popular posts from this blog

php - How should I create my API for mobile applications (Needs Authentication) -

background so i've been researching quite bit past week api's , have been reading concepts , programming one. currently have website programmed in php using popular framework called laravel. website has user database , users able log dashboard on website, works want website side. now next project of business i'm focusing on creating mobile applications (ios & andriod).what need these mobile applications being able login through application ui (not being redirected site callback url) able view , manage dashboard. the method of authentication , authorization want use application go like client asks user login through ui user enters credentials client sends request login api the api checks if credentials correct api creates token stored in token database linked user id api returns 200 ok json response or this { "token" : "ols25usjiay81hdy81", "expiry" : 3/06/2016 14:00} client remembers token , expiry whenever user/c
Read more

5 Reasons to Blog Anonymously (and 5 Reasons Not To)

Image
This guest post is by Phil (not his real name) of somehighschoolblog . It used to be impossible to run a business anonymously. Sure, some authors could pull it off, but if you worked at an office, what were you supposed to do? Go to work with a bag over your head? But today anyone can accomplish this, because anyone can author a blog (and you thought I was going to tell you to work with a mask on, or something). Copyright Ovidiu Iordachi - Fotolia.com Depending on your motives, you may or may not have considered blogging anonymously. You probably didn’t contemplate blogging anonymously if: • your only motivation is to become “famous” • your blog connects to another part of your life • you are blogging to build more connections with your friends or boss. You should consider blogging anonymously if: • you’re planning on touching on a sensitive or taboo subject • you don’t want to be identified with your blog • you are worried about negative real-world consequences that could arise from y
Read more

Google AdWords and AdSense - A Dynamic Small Business Marketing Duo

Unless you have been living under a rock for the last year or so, you probably know that Google has become the king of the search engine hill. There are many reasons for this but number one in my opinion is that above all else they put value on content. Today I want to introduce you to two very powerful small business advertising options created by Google. These two ingenious programs have all but revolutionized the way advertising is done on the web. Warning: If you are thinking..."web advertising isn't for me, I just need a few more clients around the block"...you better read this or be prepared to have your competitors eat your lunch. Goolge AdSense - Again content is king at Google. This program allows web site "publishers" to add some code from Google and receive "content relevant" ads on their site from other site owners. Here is an example - those ads in the box on the right of the page are delivered by Google and are matched to the content
Read more