I have a hyperlink to a web database. Up till now I have been clicking on the
hyperlink and once it takes me to that web page I then include a cell
reference from excel at the end of the web address to obtain the data that I
need. What I am hoping is that I can have excel somehow include or attach
the text in the cell to the end of the hyperlink when I click on the cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

If I rretrhad the URL I can write some code. The best solution would be to
have a control button which you can activate. The control button can open an
internet explorer application which can automatically retreve the data from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code that
would perform the task. Working with the internet explorer application is a
litle tricky b eause every webpage is different. Knowing html will help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been clicking on the
hyperlink and once it takes me to that web page I then include a cell
reference from excel at the end of the web address to obtain the data that I
need. What I am hoping is that I can have excel somehow include or attach
the text in the cell to the end of the hyperlink when I click on the cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would be to
have a control button which you can activate. The control button can open an
internet explorer application which can automatically retreve the data from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code that
would perform the task. Working with the internet explorer application is a
litle tricky b eause every webpage is different. Knowing html will help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been clicking on the
hyperlink and once it takes me to that web page I then include a cell
reference from excel at the end of the web address to obtain the data that I
need. What I am hoping is that I can have excel somehow include or attach
the text in the cell to the end of the hyperlink when I click on the cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

Put your stock names on Sheet1 starting in cell A2 and going down each row.
The code will put the Header Row on the sheet and put in all the stock info.
The macro stops when it finds a empty cells in column A after row 2. You can
add a control button to your worksheet to run the macro. I tested the code
with a few different stocks.

the macro runs fine wwhen the webpage is not active (like 6:00 AM). Started
to get slow and timout around 7:30 AM. If the code fails try it again.



Sub GetStock2()

URLLOOKUP = "http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker="
NoResults = "There are no"

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

First = True
With Sheets("Sheet1")
StockRow = 2
Do While .Range("A" & StockRow) < ""
StockName = .Range("A" & StockRow)

URL = URLLOOKUP & StockName
'get web page
IE.Navigate2 URL
Do While IE.readyState < 4 Or IE.Busy = True
DoEvents
Loop

Set Tables = IE.document.getElementsByTagName("Table")
ColCount = 2
For TableCount = 1 To 4
Set Table = Tables(TableCount)
For Each MyRow In Table.Rows
Count = 1
For Each Itm In MyRow.Cells
If Count = 1 Then
If First = True Then
.Cells(1, ColCount) = Itm.innertext
End If
Else
.Cells(StockRow, ColCount) = Itm.innertext
End If
Count = Count + 1
Next Itm
ColCount = ColCount + 1
Next MyRow
Next TableCount
First = False

StockRow = StockRow + 1
Loop
End With

IE.Quit

End Sub


"Doug" wrote:

Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would be to
have a control button which you can activate. The control button can open an
internet explorer application which can automatically retreve the data from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code that
would perform the task. Working with the internet explorer application is a
litle tricky b eause every webpage is different. Knowing html will help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been clicking on the
hyperlink and once it takes me to that web page I then include a cell
reference from excel at the end of the web address to obtain the data that I
need. What I am hoping is that I can have excel somehow include or attach
the text in the cell to the end of the hyperlink when I click on the cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

Right click sheet tabview codeinsert thisthen enter ge or ibm or t into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code that
would perform the task. Working with the internet explorer application
is a
litle tricky b eause every webpage is different. Knowing html will help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been clicking
on the
hyperlink and once it takes me to that web page I then include a cell
reference from excel at the end of the web address to obtain the data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

Don: Your code just goes to the webpage and doesn't return any values. Try
my code and you will see the differences.

"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code that
would perform the task. Working with the internet explorer application
is a
litle tricky b eause every webpage is different. Knowing html will help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been clicking
on the
hyperlink and once it takes me to that web page I then include a cell
reference from excel at the end of the web address to obtain the data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

I only read the part about going there

Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=
is the URL and if I want click on the cell with GE in it, then it should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE
I am needing it to do this for any cell in column M
=============
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joel" wrote in message
...
Don: Your code just goes to the webpage and doesn't return any values.
Try
my code and you will see the differences.

"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t
into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it
should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would
be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code
that
would perform the task. Working with the internet explorer
application
is a
litle tricky b eause every webpage is different. Knowing html will
help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been
clicking
on the
hyperlink and once it takes me to that web page I then include a
cell
reference from excel at the end of the web address to obtain the
data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

Don:L doug said "to obtain the data that I need". I wasn't sure what he
meant so I downloaded all the data. Doug asked for the links but I assumed
he really wanted to automatically get all the data.

"Don Guillett" wrote:

I only read the part about going there

Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=
is the URL and if I want click on the cell with GE in it, then it should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE
I am needing it to do this for any cell in column M
=============
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joel" wrote in message
...
Don: Your code just goes to the webpage and doesn't return any values.
Try
my code and you will see the differences.

"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t
into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it
should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would
be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code
that
would perform the task. Working with the internet explorer
application
is a
litle tricky b eause every webpage is different. Knowing html will
help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been
clicking
on the
hyperlink and once it takes me to that web page I then include a
cell
reference from excel at the end of the web address to obtain the
data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

And of course you could always set up a refresh of an external query tied to
a worksheet_change event or a looping macro. May not want all 4 tables?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("a1").Address Then Exit Sub
With ActiveSheet.QueryTables(1)
.Connection = _
"URL;http://www.schaeffersresearch.com" & _
"/streetools/stock_quotes.aspx?Ticker=" & Range("a1")
.Refresh BackgroundQuery:=False
End With
End Sub
Last 23.44
High 23.53
Prev Close 23.44
52Wk Low 20.9

Change
Low 23.39
Dividend Date 7/8/2009
EPS 2.12

% Change 0.00%
Volume 1,644,898
Dividend Amount 1.64
Shares Out 5,900,000,000

Open 23.53
52Wk High 33.56
P/E Ratio 11.6
Yield 6.7



--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joel" wrote in message
...
Don: Your code just goes to the webpage and doesn't return any values.
Try
my code and you will see the differences.

"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t
into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it
should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would
be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code
that
would perform the task. Working with the internet explorer
application
is a
litle tricky b eause every webpage is different. Knowing html will
help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been
clicking
on the
hyperlink and once it takes me to that web page I then include a
cell
reference from excel at the end of the web address to obtain the
data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

that code will only work for 1 stock and only when you change the company
name. It will not work when there are multiple stocks on the same sheet.
The problem is with queries is the connection property cannot be changed once
the query is initiated. You have only on querytable in your code.

"Don Guillett" wrote:

And of course you could always set up a refresh of an external query tied to
a worksheet_change event or a looping macro. May not want all 4 tables?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("a1").Address Then Exit Sub
With ActiveSheet.QueryTables(1)
.Connection = _
"URL;http://www.schaeffersresearch.com" & _
"/streetools/stock_quotes.aspx?Ticker=" & Range("a1")
.Refresh BackgroundQuery:=False
End With
End Sub
Last 23.44
High 23.53
Prev Close 23.44
52Wk Low 20.9

Change
Low 23.39
Dividend Date 7/8/2009
EPS 2.12

% Change 0.00%
Volume 1,644,898
Dividend Amount 1.64
Shares Out 5,900,000,000

Open 23.53
52Wk High 33.56
P/E Ratio 11.6
Yield 6.7



--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joel" wrote in message
...
Don: Your code just goes to the webpage and doesn't return any values.
Try
my code and you will see the differences.

"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t
into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it
should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would
be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code
that
would perform the task. Working with the internet explorer
application
is a
litle tricky b eause every webpage is different. Knowing html will
help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been
clicking
on the
hyperlink and once it takes me to that web page I then include a
cell
reference from excel at the end of the web address to obtain the
data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

As I said, this could be set up with a looping macro on the one query to do
the fetchcopy the desired data to where ever is necessarydo the same for
the next symbol. Even better when a .csv where you can bring in all symbols
(Yahoo allows 200 at at time and you can also loop that for an infinite
number) with ONLY ONE fetch. and then do TTC to separate.

With Sheets(2).QueryTables.Add(Connection:="URL;" _
& "http://download.finance.yahoo.com/d/quotes.csv?s=" & _
symbols & "&f=snd1t1l1ohgpvqyd&e=.csv", _
Destination:=Sheets("Data").Cells(dr, dc))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joel" wrote in message
...
that code will only work for 1 stock and only when you change the company
name. It will not work when there are multiple stocks on the same sheet.
The problem is with queries is the connection property cannot be changed
once
the query is initiated. You have only on querytable in your code.

"Don Guillett" wrote:

And of course you could always set up a refresh of an external query tied
to
a worksheet_change event or a looping macro. May not want all 4 tables?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("a1").Address Then Exit Sub
With ActiveSheet.QueryTables(1)
.Connection = _
"URL;http://www.schaeffersresearch.com" & _
"/streetools/stock_quotes.aspx?Ticker=" & Range("a1")
.Refresh BackgroundQuery:=False
End With
End Sub
Last 23.44
High 23.53
Prev Close 23.44
52Wk Low 20.9

Change
Low 23.39
Dividend Date 7/8/2009
EPS 2.12

% Change 0.00%
Volume 1,644,898
Dividend Amount 1.64
Shares Out 5,900,000,000

Open 23.53
52Wk High 33.56
P/E Ratio 11.6
Yield 6.7



--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joel" wrote in message
...
Don: Your code just goes to the webpage and doesn't return any values.
Try
my code and you will see the differences.

"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t
into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it
should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution
would
be
to
have a control button which you can activate. The control button
can
open an
internet explorer application which can automatically retreve the
data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code
that
would perform the task. Working with the internet explorer
application
is a
litle tricky b eause every webpage is different. Knowing html will
help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been
clicking
on the
hyperlink and once it takes me to that web page I then include a
cell
reference from excel at the end of the web address to obtain the
data
that I
need. What I am hoping is that I can have excel somehow include
or
attach
the text in the cell to the end of the hyperlink when I click on
the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

Don, this works good except you have to click in the formula bar each time in
order to select another cell. Also is there a way to designate it to the "M"
column only? Every time I try to enter data in another column it tries to
take me to the hyperlink. Really appreciate your help...
--



"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code that
would perform the task. Working with the internet explorer application
is a
litle tricky b eause every webpage is different. Knowing html will help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been clicking
on the
hyperlink and once it takes me to that web page I then include a cell
reference from excel at the end of the web address to obtain the data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

This was restricted to column 13. Did you put in the SHEET module as
instructed?
If desired, send your file to my address below along with this msg and
a clear explanation of what you want and before/after examples.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Don, this works good except you have to click in the formula bar each time
in
order to select another cell. Also is there a way to designate it to the
"M"
column only? Every time I try to enter data in another column it tries to
take me to the hyperlink. Really appreciate your help...
--



"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t
into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it
should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution would
be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code
that
would perform the task. Working with the internet explorer
application
is a
litle tricky b eause every webpage is different. Knowing html will
help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been
clicking
on the
hyperlink and once it takes me to that web page I then include a
cell
reference from excel at the end of the web address to obtain the
data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!

I changed to a double_click event

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
This was restricted to column 13. Did you put in the SHEET module as
instructed?
If desired, send your file to my address below along with this msg
and a clear explanation of what you want and before/after examples.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Don, this works good except you have to click in the formula bar each
time in
order to select another cell. Also is there a way to designate it to the
"M"
column only? Every time I try to enter data in another column it tries to
take me to the hyperlink. Really appreciate your help...
--



"Don Guillett" wrote:

Right click sheet tabview codeinsert thisthen enter ge or ibm or t
into
any cell in col M

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column < 13 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:= _
"http://www.schaeffersresearch.com/streetools/" & _
"stock_quotes.aspx?Ticker=" & target.Value & ""
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
Here is an example:
http://www.schaeffersresearch.com/st...s.aspx?Ticker=

is the URL and if I want click on the cell with GE in it, then it
should
automatically go to:
http://www.schaeffersresearch.com/st...aspx?Ticker=GE

I am needing it to do this for any cell in column M
--



"Joel" wrote:

If I rretrhad the URL I can write some code. The best solution
would be
to
have a control button which you can activate. The control button can
open an
internet explorer application which can automatically retreve the
data
from
the URL and place the data into you worksheet.

If the URL is not public then I can send you some examples of code
that
would perform the task. Working with the internet explorer
application
is a
litle tricky b eause every webpage is different. Knowing html will
help.

"Doug" wrote:

I have a hyperlink to a web database. Up till now I have been
clicking
on the
hyperlink and once it takes me to that web page I then include a
cell
reference from excel at the end of the web address to obtain the
data
that I
need. What I am hoping is that I can have excel somehow include or
attach
the text in the cell to the end of the hyperlink when I click on
the
cell.
This would be very helpful. Is this possible?
--
Hope your having a great day!