Simple VBA Code Question (UserForm)

  • Thread starter Thread starter abxy
  • Start date Start date
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
 
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)
 
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
 
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)
 
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)
 
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
 
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)
 
Back
Top