Hello
My code opens daily files on a (monthly basis) and pastes data into my
workbook. There should be at least one line of data for each day and
the date is in column A stating on row 3. I would like to have a
message via a popup box ("Data does not exist for mm/dd") if a day is
not represented in Column A. How can this be accomplished?

Also, I am using an input box as follows:

sMonth = InputBox("Please Enter Reporting Month")
sYear = InputBox("Please Enter Reporting Year")


With Sheets("Data")
.Range("B1").Value = sMonth
.Range("A1").Value = sYear
End With

This works, however I would like the month fomatted as MM and
currently is is formatted as M.

Thanks!

On Jun 29, 6:20*pm, "sailor4lif...@yahoo.com"
<sailor4lif...@yahoo.com> wrote:
> Hello
> My code opens daily files on a (monthly basis) and pastes data into my
> workbook. *There should be at least one line of data for each day and
> the date is in column A stating on row 3. *I would like to have a
> message via a popup box ("Data does not exist for mm/dd") if a day is
> not represented in Column A. How can this be accomplished?

DateSerial could help you,but it is not that hard to wite it yourself
(I'd do that)

if year>year(now) or
(days<30 and month in [3...]

It is possible to have it all in one IF - just remember
every 4 year is a leap year
every 100 year is not
every 400 is

>
> Also, I am using an input box as follows:
>
> sMonth = InputBox("Please Enter Reporting Month")
> sYear = InputBox("Please Enter Reporting Year")
>
> * * With Sheets("Data")
> * *.Range("B1").Value = sMonth
> * *.Range("A1").Value = sYear
> * * End With

Why dont you create your own form? That would be easier and you can
add some control too?
Or use a calendar on that?


>
> This works, however I would like the month fomatted as MM and
> currently is is formatted as M.

check Cells.NumberFormat


>
> Thanks!