Help with a project. Help me please.

  • Thread starter Thread starter Jason Monette
  • Start date Start date
J

Jason Monette

Ok first let me tell you want I want to do.

I want to have an input box pop up and ask for any number of stock
tickers.

Place those tickers in a column.

Use those symbols with web query to get all the info from clearstation
which will be on these pages on the web site.

Profile
Key Ratios
Analysts
Earnings
Insiders

for each symbol on a different work sheet

use that info to make a summay of all the symbols on the first
worksheet.

So let's start with question and I will go from there.

How do I make input box that will take an array of stock symbols and
put them in 1 column, each in it's own cell?
 
How do I make input box that will take an array of stock symbols and
put them in 1 column, each in it's own cell?
Click to expand...

If you mean one element at a time:

Private Sub Macro1()
Dim strIn As String
Do
strIn = InputBox("Enter data.")
iRow = iRow + 1
Sheets("Sheet1").Cells(iRow, 1) = strIn
Loop Until strIn = ""
End Sub

HTH,
Merjet
 
Back
Top