Hover over cell to read content

[lesley burlingham]

Is it possible to hover over a cell to read the content. I have a cell with a large amount of text, i dont want to make the box bigger. I would like the user to be able to hover over the cell and read everything which is written.

Thanks

 

[Khalid NGO]

Hi Lesley,

Is that you were looking for?


Go to Data > Data Validation > Input Message

Regards,

 

[lesley burlingham]

Hi

I need the message box to show the texted in the cell only. It is multiple line and i dont want to extend the box.

 

[Khalid NGO]

Hi,

One question:
Will inserting comments not serve the purpose?

 

[lesley burlingham]

Any idea how i can get the user to see what is in the cell without having to extend the width and size

 

[NARAYANK991]

Hi Lesley ,

That is exactly what Khalid has suggested as a solution ; each time you change the active cell by moving the cursor , you can use VBA to enter the cell contents into a comment , so that you can read the entire contents of the cell , without having to do anything.

Narayan

 

[lesley burlingham]

Hi

Thanks.
Can you please give me some example code on how I can do this, my VBA skill is very basic.

 

[Khalid NGO]

Hi,

There is another way (non vba)
Right Click > Insert > Hyperlink > Place in This doc > ScreenTip



Insert full msg in the Screen Tip Text:
See the file with example:

Regards,

 

[NARAYANK991]

Hi Lesley ,

See this file.

Narayan

 

[Adolf>fernands]

Hi Lesley ,

See this file.

Narayan

HI Narayan,

I tried the example file and it worked for me but when i protect cell it give me error to debug. can you help me how to protect the cell

 

[vletm]

Adolf>fernands
Allow Protect option Edit objects.

 

[Adolf>fernands]

Hello Vletm,
I used this code and then protected now it get error ( cell you are trying to change is protected) unprotect sheet first . the debug shows on the bold ( .addComment.Value

Code is below but i want to have the sheet protected how can we go about it with the protected sheet without allowing the password enteery

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If prevcell Is Nothing Then Set prevcell = Target
  If prevcell.Address <> Target.Address Then
  prevcell.ClearComments
  End If
  If TypeName(Target.Value) <> "String" Then Exit Sub
 
  With Target
  On Error Resume Next
  .ClearComments
  On Error GoTo 0
.AddComment .Value
  With .Comment
  .Shape.TextFrame.AutoSize = False
  HEIGHT1 = (Len(.Text) / 30) * 15.5
  .Shape.LockAspectRatio = msoFalse
  .Shape.Width = 150
  .Shape.Height = HEIGHT1
  End With
  End With
  Set prevcell = Target
End Sub

 

[vletm]

Adolf>fernands
1) Did You this?

I tested that few times and it works...
That code looks same as in original file.

2) Which cell?

3) Use Code- tags as written in tip!

 

[Adolf>fernands]

Thanks it worked