L
ltyson
I have two sub routines, the first one does exactly what I want. If th
checkbox on the user form is checked, then the corresponding rectangl
is filled in on the worksheet. If I uncheck the check box, then th
corrsponding rectangle is unfilled for lack of a better term.
Sub CheckBox368_Click()
i = 368
If CheckBox368 = True Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If CheckBox368 = False Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End If
End Sub
Problem is I want the checkbox to use the variable ' i ' like th
rectangle entry does, but when I change the code it always acts upo
only the true portion whether I have the check box checked or not. S
even if the check box is unchecked or false so to speak it sees it act
as if it is true in this sub.
Sub CheckBox368_Click()
i = 368
If ("CheckBox" & i) = True Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If ("CheckBox" & i) = False Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End If
End Sub
I am sure it is just a syntex type issue but do not understand why i
never sees the check box as false if I unselect it like it does in th
first sub.
Thanks,
Larr
checkbox on the user form is checked, then the corresponding rectangl
is filled in on the worksheet. If I uncheck the check box, then th
corrsponding rectangle is unfilled for lack of a better term.
Sub CheckBox368_Click()
i = 368
If CheckBox368 = True Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If CheckBox368 = False Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End If
End Sub
Problem is I want the checkbox to use the variable ' i ' like th
rectangle entry does, but when I change the code it always acts upo
only the true portion whether I have the check box checked or not. S
even if the check box is unchecked or false so to speak it sees it act
as if it is true in this sub.
Sub CheckBox368_Click()
i = 368
If ("CheckBox" & i) = True Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If ("CheckBox" & i) = False Then
Sheets("Order_Entry").Shapes("Rectangle " & i).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End If
End Sub
I am sure it is just a syntex type issue but do not understand why i
never sees the check box as false if I unselect it like it does in th
first sub.
Thanks,
Larr