Pop-up box similar to comments box

[akk]

Hi

I have a spreadsheet that shows a pop-up box, when i place
the cursor on a cell. For every cell in a column there is
a different pop-up box(looks similar to a comment, but is
not a comment) which has the description. How has this
been done? Also, how do i have the contents of the pop-up
box in a separate column.

Thanks

 

[akk]

I fugured out that the contents of the pop-up box, is in
data validation, input message. Is there a simple way(a
macro?) to have that moved to a separate column.

 

[Debra Dalgleish]

Putting the input message in a separate column might confuse the users,
but to do that:


Select the cells that contain the data validation, and copy them
Select the cells in the adjacent column.
Choose Edit>Paste Special
Select Validation, click OK

Select the first set of cells with validation
Choose Data>Validation
Select the Input message tab
Remove the check mark from the "Show Input Message when cell is
selected" box
Click OK

Select the second set of cells with validation
Choose Data>Validation
Select the Settings tab
From the Allow dropdown, choose 'Any value'
Click OK

 

[akk]

Thanks for this. BUt what i want is that the input message
should show in the second set of cells, not as a pop-up
box but as data in the cell itself.

 

[Debra Dalgleish]

You could use a macro to copy the messages to the adjacent cells. For
example, select the column with data validation, then run the following
code:
'========================
Sub CopyInputMsg()
Dim rng As Range
Dim c As Range
Set rng = Selection.SpecialCells(xlCellTypeAllValidation)
For Each c In rng
c.Offset(0, 1).Value = c.Validation.InputMessage
c.Validation.ShowInput = False
Next c
End Sub
'==================

There are instructions here for pasting the code into your workbook:

http://www.contextures.com/xlvba01.html

To run the code, choose Tools>Macro>Macros.
Select the macro, and click Run.

 

[akk]

Thanks! This worked wonderfully.

-----Original Message-----
You could use a macro to copy the messages to the adjacent cells. For
example, select the column with data validation, then run the following
code:
'========================
Sub CopyInputMsg()
Dim rng As Range
Dim c As Range
Set rng = Selection.SpecialCells(xlCellTypeAllValidation)
For Each c In rng
c.Offset(0, 1).Value = c.Validation.InputMessage
c.Validation.ShowInput = False
Next c
End Sub
'==================

There are instructions here for pasting the code into your workbook:

http://www.contextures.com/xlvba01.html

To run the code, choose Tools>Macro>Macros.
Select the macro, and click Run.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html

.