If cell has a value do nothing

[Mikeymike_W]

Hi all,

I have the following bit of code that supplies a time stamp in column Z when the cell in column G is populated:

If Target.Column = 7 Then
Application.EnableEvents = False
Cells(Target.Row, 26).Value = Date + Time
Application.EnableEvents = True
End If

I wanted to bypass this code if there is already a value in column Z so if the user alters the value in column G then a new date is not entered in column Z and it stays the same.

Thanks in advance,

Mike

 

[Eric W]

Change:

[COLOR=#333333]If Target.Column = 7 Then[/COLOR]

to

[COLOR=#333333]If Target.Column = 7 and Cells(Target.Row, 26) = "" Then[/COLOR]

 

[JoeMo]

maybe:

If Target.Column = 7 Then
If isempty(cells(target.row,"Z")) then
Application.EnableEvents = False
Cells(Target.Row, 26).Value = Date + Time
Application.EnableEvents = True
End If
end if

 

[Mikeymike_W]

Hi Guys,

thanks very much for your help.

I tried both methods and they both work well.

Personally I prefer Erics method as it seems tidier.

Many thanks again,

Mike

 

[Eric W]

Glad we could help. Thanks for the feedback.