Situation: Text from another sheet is pulled into a cell. Destination cell
is too small for entered text to fit. Can't make cell larger. No real
estate left on the sheet.

I tried to format destination cell for wrap text, but that didn't work.
Entered text all goes into 1 line, "under", or hidden into next cell in next
column.

So,

.. Description Of Problem
"|| Mold wear is causing a washed out area at the radii blends ||" comes out
.. . .

.. Description Of Problem
||Mold wear is causing a wa||

Customer won't be able to read this remarks/comments column. The column
contains a formula to pull the text in from another sheet, so they can't view
the formula bar to read the text. Can't dbl click on the text, or the
formula comes up.

How do I make a text window, similar to a comment window, but have the
actual text from the cell appear when cursor huvvers over the cell?

Note: I'm asking for a comment window that reflects the data pulled into the
cell from another sheet. Not how to make a comment window with "set" text.
The text will vary, and can change as the program is run.

As corrective action takes place, that column (from original report sheets)
will be edited and updated. The destination cell here will always be the
last updated comment/description.

I just want it to be easy for the customer to see the full text line when
they need to.

Final cry for help here! This is the 4th time I've posted this over the
past 2 weeks. Plus once in two other Excel categories here. Does anyone
have an idea how to git'r dun?!?

Hi,

I read your post before and i studied it. I think that this reflects a
true need. However I don't think that there is a quick fix to this
problem!!!
I will be working on it though.


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171

Bless you, my child. :) (I'm assuming you're much younger than I. Which
almost has to be the case. LOL)

"raypayette" wrote:


Hi,

I read your post before and i studied it. I think that this reflects a
true need. However I don't think that there is a quick fix to this
problem!!!
I will be working on it though.


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171

I wouldn't bet on it. I'm retired and a bit senile!


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171

Hi,

If Comment column is column 5 then this SelectionChange code results in
a temporary text box containing the active cell's contents and is
positioned over the top of the selected cell.


Public ShpMsg As Shape
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 5 Then
On Error Resume Next
ShpMsg.Delete
If ActiveCell.Value < "" Then
Set ShpMsg = Me.Shapes.AddTextbox(msoTextOrientationHorizontal, _
ActiveCell.Left, ActiveCell.Top, 0, 0)
ShpMsg.TextFrame.Characters.Text = ActiveCell.Value
ShpMsg.TextFrame.AutoSize = True
End If
End If
End Sub

Copy code, right click sheet tab, select "View Code" from popup menu,
paste into Sheet's code module, press Alt + F11 to get back to Excel.
Security must be medium and "Enable Macros" button clicked on "Security
Warning" dialog when opened.

3 years to go before I retire so I'm probably too young!

Ken Johnson

It took a young man to challenge me!
Place this code in every sheet module:
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Text) 10 Then
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal,
144.75, 36.75, _
191.25, 78.75).Select
Selection.Characters.Text = Target.Text
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1").Select
End If
End Sub


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171

Would a message box in a Macro do what you want?

Exactly how it will be programmed in and activated would depend on how you
wanted to activate it. For example if your data is in Column D then
right-click on the sheet tab and select "View Code" then enter the
following:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Cells(1, 1).Column < 4 Then Exit Sub
If Target.Cells(1, 1).Row < 2 Then Exit Sub
If Target.Cells(1, 1).Row 64 Then Exit Sub
If Target.Value = "" Then Exit Sub
MsgBox Target.Text
End Sub

(Change the <4 to the Column number that you want.)
Selecting a cell with data in it will cause a messagebox with the whole of
the data from the cell displayed in it.

Post back if you need more help.


--
HTH

Sandy
In Perth, the ancient capital of Scotland


with @tiscali.co.uk


"Wayne Knazek" wrote in message
...
Bless you, my child. :) (I'm assuming you're much younger than I. Which
almost has to be the case. LOL)

"raypayette" wrote:


Hi,

I read your post before and i studied it. I think that this reflects a
true need. However I don't think that there is a quick fix to this
problem!!!
I will be working on it though.


--
raypayette


------------------------------------------------------------------------
raypayette's Profile:
http://www.excelforum.com/member.php...o&userid=29569
View this thread:
http://www.excelforum.com/showthread...hreadid=574171

It does not work with a textbox, but it works with a message box. The
answer seems to be very simple:
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Text) 255 Then
MsgBox Target.Text
End If
End Sub


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171

Hi

For a start ("Can't make cell larger"); you could perhaps insert a textbox
(or any other text capable object) from the Drawing toolbar, select it and
enter
=H1
in Excel's formula bar. Now it shows whatever is in cell H1.

HTH. Best wishes Harald


"Wayne Knazek" skrev i melding
...
Situation: Text from another sheet is pulled into a cell. Destination
cell
is too small for entered text to fit. Can't make cell larger. No real
estate left on the sheet.

I tried to format destination cell for wrap text, but that didn't work.
Entered text all goes into 1 line, "under", or hidden into next cell in
next
column.

So,

. Description Of Problem
"|| Mold wear is causing a washed out area at the radii blends ||" comes
out
. . .

. Description Of Problem
||Mold wear is causing a wa||

Customer won't be able to read this remarks/comments column. The column
contains a formula to pull the text in from another sheet, so they can't
view
the formula bar to read the text. Can't dbl click on the text, or the
formula comes up.

How do I make a text window, similar to a comment window, but have the
actual text from the cell appear when cursor huvvers over the cell?

Note: I'm asking for a comment window that reflects the data pulled into
the
cell from another sheet. Not how to make a comment window with "set"
text.
The text will vary, and can change as the program is run.

As corrective action takes place, that column (from original report
sheets)
will be edited and updated. The destination cell here will always be the
last updated comment/description.

I just want it to be easy for the customer to see the full text line when
they need to.

Final cry for help here! This is the 4th time I've posted this over the
past 2 weeks. Plus once in two other Excel categories here. Does anyone
have an idea how to git'r dun?!?

I tried a textbox but it has a limit of 255 characters also.
Message boxes can contain more than 255 chars but they do not
reappear.
Since the problem is to be able to access data that exceeds 255
characters, the following code might be acceptable in each sheet's
module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Text) 255 Then
Open "C:\Excess.txt" For Output As #1
Write #1, Target.Text
Close #1
End If
End Sub

Of course this could be improved by asking for specific file names for
example.


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171

I have found a "better" way, however it is much trickier:

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Text) 255 Then
SaveSetting ActiveWorkbook.Name, ActiveSheet.Name,
ActiveCell.Address, Target.Text
End If
End Sub


Sub ReadExcess()
MsgBox GetSetting(ActiveWorkbook.Name, ActiveSheet.Name,
ActiveCell.Address)
End Sub

This records all data in excess of 255 chars in the registers. However
this has to be managed or else the registers might grow to enormous
sizes.
Also be careful thaat the current cell will not be the cell where the
data resides, but the cell where the cursor resides after the data has
been entered.

This method will allow the data to be copied into a word editor such as
Notebook.


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171

Hi,

this fixes it so that the text box is deleted whenever the selection
change occurs, not just another selection in column 5...


Public ShpMsg As Shape
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ShpMsg.Delete
If ActiveCell.Column = 5 And ActiveCell.Value < "" Then
Set ShpMsg = Me.Shapes.AddTextbox(msoTextOrientationHorizontal, _
ActiveCell.Left, ActiveCell.Top, 0, 0)
ShpMsg.TextFrame.Characters.Text = ActiveCell.Value
ShpMsg.TextFrame.AutoSize = True
End If
End Sub

Ken Johnson