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

 

[khalil]

when i save it doesn't save

i am not yet familiar with these kind of codes

when i save it it gives me a message about about macro enabled excl workbook

 

[VoG]

You will need to save as a macro enabled file (.xlsm)

 

[khalil]

Thanks for the help

it works

 

[khalil]

good morning

i tried to use the same code in another sheet in same workbook, i took in concede ration changing the target cell , but it did not work,

thanks

 

[VoG]

Please post the code that you used.

 

[khalil]

thanks , here you are;



Private Sub Worksheet_Change(ByVal target As Range)
If target.Address(False, False) = "BW5" Then
If target.Value = "" Then
Application.EnableEvents = False
target.Value = "?"
Application.EnableEvents = True
End If
End If
End Sub

 

[VoG]

That works for me. Make sure the file is saved as .xlsm and that macros are enabled.

 

[khalil]

it works with me when the code is alone in that sheet, but if there is another code like the one below in the same sheet, it doesn't work, and that code(you gave me) is in another sheet also, (debug message appears).



Private Sub Worksheet_Change(ByVal target As Range)
If Not Intersect(target, Range("B:B")) Is Nothing Then
target.Offset(0, 1).Value = Date
End If
End Sub

 

[VoG]

You need to combine them

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Application.EnableEvents = False
    Target.Offset(0, 1).Value = Date
    Application.EnableEvents = True
End If
If Target.Address(False, False) = "BW5" Then
    If Target.Value = "" Then
        Application.EnableEvents = False
        Target.Value = "?"
        Application.EnableEvents = True
    End If
End If
End Sub

 

[khalil]

Thanks a lot

it works

if i need to add another target in the same sheet for the same code,i just have to combine them, please send me a tip for combining cods,


thanks in advance