Exotic Demand ?

[AndyGFLees]

Hi,

This may be a rather strange request but I am trying to make it as easy as I can for my users to interpret content of cells.

I have already coloured the background of my cells according to the purchase order state of the contents (Not Required, Required, Ordered, In-Stock or With Customer), but I would like to go one step further and have conditional comment or validation text appear, re-enforcing the order state - is this possible?

Thanks,

 

[Scott Huish]

I don't understand. Isn't that text already in the cell?

 

[AndyGFLees]

I don't understand. Isn't that text already in the cell?

Sorry, maybe I should have provided more detail -the text shows the product. For instance it might show "Power Supply" and it would be coloured differently depending on whether it has been ordered, is in-stock etc.

Thanks,

 

[AndyGFLees]

I was envisaging the text appearing on mouse over or click.

Thanks,

 

[AndyGFLees]

With no replies I thought that I might rephrase the question:

I have some cells populated with text items like TV, Video, CD etc. These cells are background colour coded depending on whether the item is Required, On Order, Delivered etc. However, I would like to make it so that when the mouse pointer is hovering, or at least if the cell is selected, the appropriate order state (Required, On Order, Delivered) is also revealed as a comment, or similar, without any further action - is this possible?

Thanks,

 

[shg]

Why not just have a legend?

Legend​

Required

On Order

Delivered

 

[AndyGFLees]

shg,

Thanks, but I have that already, somewhere else on the sheet. But because it is a large sheet, with double locked windows, I want to be able to show it at the point of the cell as well.

 

[wwbwb]

Perhaps something like this? I'm sure it could be cleaned up or simplified some.

Sub Macro1()
For Each c In Range("b2:b10")
c.ClearComments
If c.Interior.ColorIndex = 5 Then
 c.AddComment
 c.Comment.Text Text:="TEST5"
End If
If c.Interior.ColorIndex = 4 Then
 c.AddComment
 c.Comment.Text Text:="TEST4"
End If
If c.Interior.ColorIndex = 3 Then
 c.AddComment
 c.Comment.Text Text:="TEST3"
End If
Next c
End Sub