Cell Drag Drop

[Blobajob88]

Hi, I want to ensure a date is entered in a cell

If Not IsDate(Target.Value) Then

Application.EnableEvents = False
Target.Value = ""
MsgBox "Please Enter A Valid Date", vbCritical, "Invalid Data Type"
Application.EnableEvents = True

Target.Select
Application.EnableEvents = True
Sheet1.Protect
Exit Sub
End if

This works fine but if I drag the cell value down that has a date in it, this code runs. How can I avoid this?

 

[LazyBug]

You can use The Intersect Method, i.e.

If Not Intersect(Target, Range("D4")) Is Nothing Then 'your validated range
    If Not IsDate(Target.Value) Then
        {YOUR CODE}
    Else
        Exit Sub
    End If
End If

 

[Blobajob88]

Hi, I tried this but when I'm dragging it down, it is not seeing a date even I'm dragging down dates and so it is running the code I have and giving the message box to enter a valid date

 

[LazyBug]

Hello!
What do you imply when you say "dragging down dates"? Could you post a sample data (with XL2BB) of worksheet? What's the sheet name?

 

[ShadyH]

Hi, I am still new here. I can't figure out how to post a new question. But, I have locked sheets with some unlocked cells. The unlocked cells are referred to by another locked cell with a formula. How can I stop my employees from dragging open cells to avoid getting an invalid reference? please help.