Simple VBA Code Question (UserForm)

A

abxy

i'm creating a UserForm in VBA and I've run into a little challeng
which at the moment i just don't have an answer to, so i'm turning her
for help. Here's my problem:

I have a combo box with the months January thru Decemeber as possibl
selections, then I have 4 checkboxes for weeks 1 thru 4 of the months
I would like to somehow make it so that if, the current date isn'
passed a particular date certain checkboxes aren't enabled.

As an example, let's say today is January 2 ...so I select January fro
the combo box, but now only the checkbox for Week1 should be enable
since it's only the first week of January. Now if today was January 8
then the checkboxes for Week1 and Week2 should be enabled becuase it'
past Week1 of January and it's Week2.

So basically i'm asking for help on the code to say: the value of th
combo box determines the month, and if it's not past a certain day o
that month then this checkbox shouldn't be enabled.

Thanks in advance for any and all help. I really appreciate it
 
B

Bob Phillips

Something Like

Checkbox1.Value = True
Checkbox2.Value = Day(Date)> 7
Checkbox3.Value = Day(Date)> 14
Checkbox4.Value = Day(Date)> 21

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
A

abxy

ok, i've just come up with an idea, i'm thinking that maybe i could pu
a little something in like this (for the example's sake let's say tha
the specified date is 2/2/04):

If Combobox1 = "January" And [the date is no
equal to the specified date(2/2/04) or later] Then

Checkbox1.Enabled = False

End if

Ok, now the only problem is, what's the code for "the date is not equa
to the specified date or later" part

Any help
 
B

Bob Phillips

It's not pseudo, it is working code,. depending upon the date the checkbox
values will be set or not.

Checkbox1 is always set, as we must have a date.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
B

Bob Phillips

Checkbox1.Enabled = (Combobox1.Value = "January" And Date <>
DateSerial(2004,02,02))

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
A

abxy

This works, thanks Bob Phillips, you always help me out of so many jams
Thanks again, maybe i can return the favor one of these days. And a bi
thanks to everyone else that helped out
 
B

Bob Phillips

That's what we are here for<g>!

You could return the favour by identifying yourself, 'abxy' and ExcelForum
is a bit impersonal.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top