Marco to delete row base on date by input

[Canon]

I am trying to create a macro to delete the row if it doesnot equal a date inputted by the user.
When running the macro an input box should appear and theuser should be able to enter the date.
A B C D
Name Description Date Comment
1 Jeff Person 1 Jan-10-2018 123AAD
2 Bob Person2 Feb-12-2018 123AGV
3 Sara Person3 Jan-10-2018 125ABD
4 Joe Person 4 Feb-12-2018 1254ABX
The user would input Jan-10-2018, row 2 and 4 should bedeleted.
Thanks for your help in advance.

 

[Canon]

A B C D

Name Description Date Comment
1 Jeff Person 1 Jan-10-2018 123AAD
2 Bob Person2 Feb-12-2018 123AGV
3 Sara Person3 Jan-10-2018 125ABD
4 Joe Person 4 Feb-12-2018 1254ABX

 

[nardagus]

Hello,

I assumed that your form is named: frm_userinput and input field fld_date.

This will get value of fld_date, then start looking for it in a column D in a loop. When it doesn't find anything it exits loop and ends macro. If a value is found it checks for a row number and then deletes whole row.

Sub del_data()

Dim x As String
Dim c As Range

x = frm_userinput.fld_date.Value
Do
   With Worksheets("Sheet1").Range("D:D")
        Set c = .Find(x)
        If Not c Is Nothing Then
            .Range("A" & c.Row).EntireRow.Delete
        Else
            Exit Do
        End If
   End With
Loop

End Sub