Comments until cell is filled

[goofy78270]

I am looking to create a watermark type effect for certain cells within a spreadsheet. To explain, I am looking to create a page with required entry cells. First, I would like to set the tab to hit certain cells and not every cell. Then, with the cell that is highlighted I would like to have a watermark stating what should be entered into this field such as their name. Once they start typing, the watermark will be gone and only their text will show. Then if they go back and delete their entry, the watermark will return.

I am looking to use this as a quick reference to what a cell is rather than creating title in a seperate column and/or row due to the space given to allow for entries. I only have a certain amount of space for entries based on the size of the page and the amount of information I am trying to present.

 

[daniels012]

I don't think you can do this. I know you can use a text box to do this type of thing.

Michael

 

[erik.van.geit]

Hi,

You could have a play with labels, making visible or invisible, but that would be difficult to maintain.

This is my first thought: use "automatic datavaladition (only inputmessage)".
Setup your sheet like this (assuming you hide columns H and I)
  H      I         
1 adress message   
2 A4     message 1 
3 C6     message 2 
4 B11    message 3 
5 E13    message 4 
6 G17    message 5 

Sheet1
[Table-It] version 07 by Erik Van Geit

sheetcode

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Call update_watermark(Target)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call update_watermark(Target)
End Sub

Sub update_watermark(Target As Range)

Dim LR As Long
Dim i As Long

    LR = Range("H" & Rows.Count).End(xlUp).Row
    
    With Target
    If .Count > 1 Then Exit Sub

        For i = 2 To LR
            If Target.Address(0, 0) = Range("H" & i) Then
                With .Validation
                .Delete
                .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                :=xlBetween
                .InputMessage = IIf(Target = vbNullString, Range("I" & i), vbNullString)
                End With
            End If
        Next i
    End With

End Sub

kind regards,
Erik