Check that date exists
 

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!

Check that date exists
 

On Jun 29, 6:20*pm, "
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 yearyear(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!