Southernwave
10-31-2016, 05:18 AM
This should be simple.....
I have a sheet that ..when a entry is made in column B, the date is entered in column H.. all that works well until I found that if I remove the data in column B-G, the date in H stays.. and everytime I delete it the macro below runs and puts the date back... and I don't really want it to work that way.
Here is the code I am currently using
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target(1, 1).Row > 1 Then
With Cells(Target(1, 1).Row, "h")
.Value = Date
End With
End If
ActiveSheet.Protect
End Sub
Any suggestions ?
Cheers
Andrew
I have a sheet that ..when a entry is made in column B, the date is entered in column H.. all that works well until I found that if I remove the data in column B-G, the date in H stays.. and everytime I delete it the macro below runs and puts the date back... and I don't really want it to work that way.
Here is the code I am currently using
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target(1, 1).Row > 1 Then
With Cells(Target(1, 1).Row, "h")
.Value = Date
End With
End If
ActiveSheet.Protect
End Sub
Any suggestions ?
Cheers
Andrew