when Cell A1 is blank

[khalil]

hi all
please help

when cell A1 is Blank i want the same cell A1= certain text

thanks in advance

 

[texasalynn]

will this just be done when the worksheet is opened?

 

[khalil]

yes

let me ex-plane more

cell A1 i want to enter in it a text then when i want to delete the entry i want the cell to be converted to a preset text automatically it was originally in it
thanks in advance

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
    If Target.Value = "" Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End If
End Sub

 

[khalil]

we are close her

what happened after using this is

when i printed a text and delete it the cell stuck with the same text

what i want is when i delete the printed text and delete it, the cell goes back to a preset text.

since you are so good in this let me ask you another thing if you please;

when i print a text in cell B1 i want cell A1 takes todays date then when tomorrow comes i want to keep that date in the cell not todays date when tomorrow comes

thank you very much

 

[VoG]

What is the preset text?

 

[khalil]

i appreciate you help peter

i am still new in this

the pre set text is student

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
    If Target.Value = "" Then
        Application.EnableEvents = False
        Target.Value = "Student"
        Application.EnableEvents = True
    End If
End If
End Sub

 

[khalil]

hello and thanks

i have excel 2007
did not work on it

thanks

 

[VoG]

Works for me in Excel 2010.