I've put in my due diligence, but simply can't scratch enough info together
to make this work.

I am checking a selected date on page 1 for existing data on page 2 for that
date. If the data range for that date is empty, I want to continue with the
data entry process. If data has already been entered for that date, then I
need a messagebox to pop up with the following buttons:
1. Go back and select another date
2. The previous data is incorrect. I want to over-write with new data
3. I don't have time for this. Take no action and close this file.

Thanks,
Randy

msgbox 's don't have customizable buttons unless you want to use a couple of
pages of code that accesses the windows API.

You can do this easily with a userform to simulate your custom msgbox.

--
Regards,
Tom Ogilvy


"RAP" wrote in message
...
I've put in my due diligence, but simply can't scratch enough info
together
to make this work.

I am checking a selected date on page 1 for existing data on page 2 for
that
date. If the data range for that date is empty, I want to continue with
the
data entry process. If data has already been entered for that date, then
I
need a messagebox to pop up with the following buttons:
1. Go back and select another date
2. The previous data is incorrect. I want to over-write with new data
3. I don't have time for this. Take no action and close this file.

Thanks,
Randy

Thanks for the info, Tom I'll get to reading about UserForms now.

Randy

"Tom Ogilvy" wrote:

msgbox 's don't have customizable buttons unless you want to use a couple of
pages of code that accesses the windows API.

You can do this easily with a userform to simulate your custom msgbox.

--
Regards,
Tom Ogilvy


"RAP" wrote in message
...
I've put in my due diligence, but simply can't scratch enough info
together
to make this work.

I am checking a selected date on page 1 for existing data on page 2 for
that
date. If the data range for that date is empty, I want to continue with
the
data entry process. If data has already been entered for that date, then
I
need a messagebox to pop up with the following buttons:
1. Go back and select another date
2. The previous data is incorrect. I want to over-write with new data
3. I don't have time for this. Take no action and close this file.

Thanks,
Randy

Let's say that you want to check the active cell in Sheet1 (date) and see if
that date is in Sheet2 Column A. This checks to see if the date is on
Sheet2.
You can add rw =
worksheetfunction.Match(selection,Sheets("Sheet2") .Columns(1),0)
to find the row on Sheet2 and use that to check cell values...

If WorksheetFunction.CountIf(Sheets("Sheet2").Columns (1), Selection) 0
Then
MsgBox "Date already exists"
Else: MsgBox "Date not there, continue process"
End If


--
steveB

Remove "AYN" from email to respond
"RAP" wrote in message
...
I've put in my due diligence, but simply can't scratch enough info
together
to make this work.

I am checking a selected date on page 1 for existing data on page 2 for
that
date. If the data range for that date is empty, I want to continue with
the
data entry process. If data has already been entered for that date, then
I
need a messagebox to pop up with the following buttons:
1. Go back and select another date
2. The previous data is incorrect. I want to over-write with new data
3. I don't have time for this. Take no action and close this file.

Thanks,
Randy