Display text

[verluc]

I have a sheet with in column A, 500 symbols
of stock quotes.
I want,when I move the cursor trough this column,there comes a display(box) that give me the name of the company.
Ex. AAPL Apple Computer
Is that possible?
Many thanks.

[Mark O'Brien]

Stupid question: You say you have the stock symbols in column A, where are the names of the companies housed?

[verluc]

On 2002-04-29 07:25, Mark O'Brien wrote:
Stupid question: You say you have the stock symbols in column A, where are the names of the companies housed?

All the names of this companies are housed in another sheet.(let's say in column A)

[Mark O'Brien]

When you say "Display Box" do you have anything in particular in mind. Are you adverse to using VBA? (I think this is the only way to do this)

Would you want this display box permanently on the screen, or just when you are in column A? i.e. if you go into column B, hide the display?

[verluc]

On 2002-04-29 08:06, Mark O'Brien wrote:
When you say "Display Box" do you have anything in particular in mind. Are you adverse to using VBA? (I think this is the only way to do this)

Would you want this display box permanently on the screen, or just when you are in column A? i.e. if you go into column B, hide the display?

No I want only the display when I am in column A, on the place who the cursor is.
When I move the cursor to another cell in column A then I get another display.
Maybe, on the toolbar, the remarque is a solution?
Any idea?

[Mark O'Brien]

OK, let's use the Excel StatusBar for this. (the bar located in the Bottom Left corner)

In my example, I created a new workbook and on sheet 1 I put the values 1 to 10 on sheet one in A1:A10, on sheet2 I put A to J in A1:A10.

I right clicked on Sheet1's tab and inserted this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Count > 1 Then Exit Sub

  If Target.Value = "" Then Exit Sub

  

  If Target.Column = 1 Then 'Column A

    Application.StatusBar = Sheets("Sheet2").Range(Target.Address).Value

  Else

    Application.StatusBar = False

  End If

End Sub

Now, when I change from cell to cell on sheet1, column A, I get the value from Sheet2 Column A.

HTH

[Sam W]

I have a sheet with in column A, 500 symbols
of stock quotes.
I want,when I move the cursor trough this column,there comes a display(box) that give me the name of the
company.
Ex. AAPL Apple Computer
Is that possible?
Many thanks.
If the symbols are always located in the same cells, you could insert a comment for each cell. (Insert/comment) Of course you would have to type 500 different comments but this sounds like what you are looking for. When the cursor is held over the symbol the comment box will appear showing the stock name.

Good luck, Sam

[verluc]

On 2002-04-29 08:18, Mark O'Brien wrote:
OK, let's use the Excel StatusBar for this. (the bar located in the Bottom Left corner)

In my example, I created a new workbook and on sheet 1 I put the values 1 to 10 on sheet one in A1:A10, on sheet2 I put A to J in A1:A10.

I right clicked on Sheet1's tab and inserted this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Count > 1 Then Exit Sub

  If Target.Value = "" Then Exit Sub

  

  If Target.Column = 1 Then 'Column A

    Application.StatusBar = Sheets("Sheet2").Range(Target.Address).Value

  Else

    Application.StatusBar = False

  End If

End Sub

Now, when I change from cell to cell on sheet1, column A, I get the value from Sheet2 Column A.

HTH

OK Marc,but when I come at the laste row then I become alwayrs the last text.
Example:
Column B
YHOO then I recieve in the statusbar: YAHOO INC.That's right,but the following row is ""
and I still receive YAHOO.This have to be ""
Any idea to change this macro?
Many thanks

[robfritts]

Will event handling work with *********** or something similar to whatever that code is in Java for mouseover events?

That sounds like a solution, assuming that MouseOver is an event.

[verluc]

On 2002-04-30 01:25, verluc wrote:

OK Marc,but when I come at the laste row then I become alwayrs the last text.
Example:
Column B
YHOO then I recieve in the statusbar: YAHOO INC.That's right,but the following row is ""
and I still receive YAHOO.This have to be ""
Any idea to change this macro?
Many thanks

Sorry Marc,for this question.I have found the
error and I changed your macro.Now it's fine.
Excuse me.