CheckBox VBA Issue

[Joe_Hunt via OfficeKB.com]

Hello,
I have a UserForm that has lots of command buttons, listboxes, comboboxes,
and 4 checkboxes. I need the 4 checkboxes to show as checked if there's a
value in certain cells. 2 of these are no problem since it's the letter "P".
The other 2 however I'm having trouble with since they will (or will not)
have a value in them. I've come up with a code that works if there's any
value but 0 in it, but not if there is. Here's what I came up with for the 2
I'm having trouble with:

Private Sub UserForm_Activate()

If ActiveSheet.Range("T8") <> 0 Then
Me.CheckBox5.Value = True
End If
If ActiveSheet.Range("T55") <> 0 Then
Me.CheckBox4.Value = True
End If

End Sub

I'm sure it's just a digit or two, but I can't get it to work. Any help would
be appreciated, and thank you in advance.

 

[JP]

Maybe it's just me, but I can't tell what specifically would trigger
the checkboxes to be checked (i.e. what the problem is). Can you state
clearly under what conditions the checkboxes need to be checked?

--JP

 

[JLGWhiz]

You might want to add a line like:

Else
Me.CheckBox5.Value = False

to your If...Then statements. That way if they had previously been True but
the value was changed to zero or "" then it would display unchecked.

\

 

[Joe_Hunt via OfficeKB.com]

Well, that was a good idea but it didn't work. I've noticed another problem
now that I think is related. I'm not sure how to word it so I'll repost once
I can get my head around it. Thanks to both JP and JLGWhiz for trying.

You might want to add a line like:

Else
Me.CheckBox5.Value = False

to your If...Then statements. That way if they had previously been True but
the value was changed to zero or "" then it would display unchecked.

\

Hello,
I have a UserForm that has lots of command buttons, listboxes, comboboxes,

[quoted text clipped - 18 lines]

I'm sure it's just a digit or two, but I can't get it to work. Any help would
be appreciated, and thank you in advance.

 

[Dave Peterson]

Maybe you want to check to see if the cell is empty:

if isempty(activesheet.range("t8").value) then
or
if activesheet.range("t8").value = "" then

But I'm not sure I understand the real question.