Show TextBox 1 when mouse hover

[Thelfer]

Hello
Looking for a way to get a comment to appear when a cell (or a text within a cell) is hovered. My text comment needs to be flexible, so it's a TextBox 1 with a function in formula bar, lets say "=A1".

I want this "TextBox 1" to be hidden and visible only when hovered.

Glad for any reply
Thanks

 

[sijpie]

The easiest is to give the cell a comment. Then the cell will get a little red corner and if you hover over it the comment is visible:

http://screencast.com/t/I02miZo8gkSr

 

[Thelfer]

The easiest is to give the cell a comment. Then the cell will get a little red corner and if you hover over it the comment is visible:

http://screencast.com/t/I02miZo8gkSr

What about the value in cell A1?
I want it to show this cells value.

 

[Thelfer]

What about the value in cell A1?
I want it to show this cells value.

Take a look on my printscreen.
http://www.screencast.com/t/VL3Um4lHKKvm

 

[sijpie]

Well there is a roundabout way of doing it depending on the use of the sheet.

You could have a macro that copies the text of Cell A1 into a comment.
But that means that if the value in A1 is changed, the comment is not updated.
If A1 is very static, you could run the macro when opening the spreadsheet. But then again, I am assuming your cell A1 could change values more often.

If the changes come about because a user enters data somewhere on the spreadsheet, then youcan link the macro to the onChange event of the sheet. And so the comment would be updated for every change made on the spreadsheet.

To achieve that, open the module for the worksheet, by right clicking on the worksheet tab and selecting View Code.

the macro editor will open on the wworksheet module.

Paste the following code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Range("D4").ClearComments
Range("D4").AddComment Text:=Range("A1").Text
End Sub

This will update the comment of Cell D4 everytime a change is made to the spreadsheet.

This can be refined if you know which changes can effect the value of A1.

But for demo purposes, or as a one off, this should work

 

[Thelfer]

Well there is a roundabout way of doing it depending on the use of the sheet.

You could have a macro that copies the text of Cell A1 into a comment.
But that means that if the value in A1 is changed, the comment is not updated.
If A1 is very static, you could run the macro when opening the spreadsheet. But then again, I am assuming your cell A1 could change values more often.

If the changes come about because a user enters data somewhere on the spreadsheet, then youcan link the macro to the onChange event of the sheet. And so the comment would be updated for every change made on the spreadsheet.

To achieve that, open the module for the worksheet, by right clicking on the worksheet tab and selecting View Code.

the macro editor will open on the wworksheet module.

Paste the following code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Range("D4").ClearComments
Range("D4").AddComment Text:=Range("A1").Text
End Sub

This will update the comment of Cell D4 everytime a change is made to the spreadsheet.

This can be refined if you know which changes can effect the value of A1.

But for demo purposes, or as a one off, this should work

Beautiful, it solve my problem.
On sheet 2, I added this code:

-----------------------------
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("sheet1").Range("D4").ClearComments
Sheets("sheet1").Range("D4").AddComment Text:=Sheets("sheet3").Range("A1").Text

End Sub
-----------------------------

Tried also to add "ThisWorkook." but it complained that variable was not defined or similar:
ThisWorkook.Sheets("sheet1").....

Thank you very much.

 

[sijpie]

ThisWorkook.Sheets("sheet1").....

Typo? ThisWorkBook

Tip: In the vba editor, don't type in the capital letters. Then if you go to the next line and the word isn't properly capitalised, you have made a spelling error. Same with your variables: when you declare them use one or more capitals, when you use them in the code, type them lowercase - they should then get capitalised automatically , else error...

But you don't need to add ThisWorkbook here, because that is the default anyway.