Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Excel 2002, WinXP
I posted this problem originally on 27 June. Tom Ogilvy responded and helped me a great deal. He directed me to John Walkenbach's site: http://j-walk.com/ss/excel/tips/tip44.htm Handle Multiple UserForm Buttons With One Subroutine and suggested that I could adapt John's method to my problem. My problem is very similar to that addressed in John's article except that I have many checkboxes in a sheet rather than many buttons in a UserForm. My original post thread is no longer getting any responses, so I am starting a new thread with this post. Any help anyone can provide would be much appreciated. From the code provided in John's article and the help I received from Tom, I have the following: In a class module: Public WithEvents CheckBoxGroup As MSFORMS.CheckBox Private Sub CheckBoxGroup_Click() MsgBox "Hello from " & CheckBoxGroup.Name End Sub In a regular module: Sub SetupCBGroup() Dim CheckBoxCount As Long Dim ctl As Control ' Create the CheckBox objects CheckBoxCount = 0 For Each ctl In ActiveSheet.Controls 'Error on this line If TypeName(ctl) = "CheckBox" Then CheckBoxCount = CheckBoxCount + 1 ReDim Preserve CheckBoxes(1 To CheckBoxCount) Set CheckBoxes(CheckBoxCount).CheckBoxGroup = ctl End If Next ctl End Sub When I run the SetupCBGroup macro I get: Object doesn't support this property or method." in the "For Each ctl..." line. My objective is: Know that a checkbox has been clicked on. Know what checkbox has been clicked on. Know the state of that checkbox (TRUE or FALSE) Thanks for your help. Otto |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
How to enable to click a checkbox? | Excel Discussion (Misc queries) | |||
Trap a checkbox click | Excel Programming | |||
Click Checkbox Event | Excel Programming | |||
Using a macro to code a checkbox on click - Help | Excel Programming | |||
Trap Right CLick Insert | Excel Programming |