Check that date exists

[sailor4life61]

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!

 

[jodleren]

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