Search column for date

[dualhcsniatpac]

Im sorry if this is a repeat. I have searched and could not come up with anything close to adapt to my scenario.

I have a form that contains daily volumes. These will be entered in 1 time per day. What I would like, to prevent duplicate entries, is to (upon user submitting the volumes) first have the vba code check to see if there is already a date.

User submits volume data --> code checks to see if volume data is already entered in for that day.

If there is no date, then just enter the data like normal. If there is, I would like a textbox saying that there is already volume data for that day, would you like to overwrite or save old data.

I think I might be able to figure it out but I do not know how to dynamically search a row for something.

Thanks in advance.

 

[dualhcsniatpac]

Bump for some help.

 

[DiscoPistol]

This code searches Column A (well a range) for Todays Date.

Sub FindDate()

On Error GoTo errorhandler:

Dim rng As Range
Set rng = Range("A1:A100")

today = Date


X = rng.Find(today)
MsgBox "Volume has already been added for day"
Exit Sub

errorhandler:

MsgBox "Your code here"


End Sub