date

[angelaegbunu]

hi, i need help with writing a code that would allow me to input date between mondays to saturdays monthly excluding sundays. Does anyone know how to go about this please, help needed urgently.

Thanks, angela

[Bob Phillips]

Hi Angela,

Here is some sample code

Dim ans
ans = InputBox("Input date")
If ans <> "" Then
If IsDate(ans) Then
If ActiveSheet.Evaluate("Weekday(""" & Format(ans, "yyyy/mm/dd")
& """,2)") > 5 Then
MsgBox "weekends not allowed"
End If
Else
MsgBox "dates only"
End If
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"angelaegbunu" <angelaegbunu.1ubsah_1124982340.6583@excelforum-nospam.com>
wrote in message
news:angelaegbunu.1ubsah_1124982340.6583@excelforum-nospam.com...
>
> hi, i need help with writing a code that would allow me to input date
> between mondays to saturdays monthly excluding sundays. Does anyone
> know how to go about this please, help needed urgently.
>
> Thanks, angela
>
>
> --
> angelaegbunu
> ------------------------------------------------------------------------
> angelaegbunu's Profile:
http://www.excelforum.com/member.php...o&userid=26633
> View this thread: http://www.excelforum.com/showthread...hreadid=399069
>

[angelaegbunu]

Thanks do appreciate ur help