Prev: List of names that can be divide by catagory in a single step
Next: Search Post by user
From: Geoff on 26 Jan 2010 16:56
I have some code that I only want to be run if a check box is checked. So I
inserted an ActiveX check box which I have named cbRecord.

I then put the following IF around the code which is initiated by clicking a
spinner form control:

If cbRecord.Value Then
....
....
....
End If

However, when the code is run I get the following error: Run time error
'424': Object required. When I go to debug, the code doesn't even know that
my check box exists.

TIA...Geoff

From: Ryan H on 26 Jan 2010 17:19
Try

If Sheets("Sheet1").CheckBoxes("Check Box 1").Value = xlOn Then
'do stuff
End If
--
Cheers,
Ryan


"Geoff" wrote:

> I have some code that I only want to be run if a check box is checked. So I
> inserted an ActiveX check box which I have named cbRecord.
>
> I then put the following IF around the code which is initiated by clicking a
> spinner form control:
>
> If cbRecord.Value Then
> ...
> ...
> ...
> End If
>
> However, when the code is run I get the following error: Run time error
> '424': Object required. When I go to debug, the code doesn't even know that
> my check box exists.
>
> TIA...Geoff
>
From: B Lynn B on 26 Jan 2010 17:33
or even tighter (since we know the name of the ActiveX checkbox):

If Sheets("Sheet1").cbRecord then
'do stuff
End if

"Ryan H" wrote:

> Try
>
> If Sheets("Sheet1").CheckBoxes("Check Box 1").Value = xlOn Then
> 'do stuff
> End If
> --
> Cheers,
> Ryan
>
>
> "Geoff" wrote:
>
> > I have some code that I only want to be run if a check box is checked. So I
> > inserted an ActiveX check box which I have named cbRecord.
> >
> > I then put the following IF around the code which is initiated by clicking a
> > spinner form control:
> >
> > If cbRecord.Value Then
> > ...
> > ...
> > ...
> > End If
> >
> > However, when the code is run I get the following error: Run time error
> > '424': Object required. When I go to debug, the code doesn't even know that
> > my check box exists.
> >
> > TIA...Geoff
> >
From: Geoff on 26 Jan 2010 17:33
Thanks Ryan. Now I get: Run time error '1004': Unable to get the Checkboxes
property of the Worksheet class.

There's nothing in the Locals window.

"Ryan H" wrote:

> Try
>
> If Sheets("Sheet1").CheckBoxes("Check Box 1").Value = xlOn Then
> 'do stuff
> End If

From: Geoff on 26 Jan 2010 18:25
Many thanks. That worked. I don't know what I was doing wrong. I basically
copied the code from another spreadsheet I made a ways back. And it still
works there. VBA in Excel is still pretty mysterious to me and not nearly as
easy as Access for me.

"B Lynn B" wrote:

> or even tighter (since we know the name of the ActiveX checkbox):
>
> If Sheets("Sheet1").cbRecord then
> 'do stuff
> End if
>
> "Ryan H" wrote:
>
> > Try
> >
> > If Sheets("Sheet1").CheckBoxes("Check Box 1").Value = xlOn Then
> > 'do stuff
> > End If
> > --
> > Cheers,
> > Ryan
> >
> >
> > "Geoff" wrote:
> >
> > > I have some code that I only want to be run if a check box is checked. So I
> > > inserted an ActiveX check box which I have named cbRecord.
> > >
> > > I then put the following IF around the code which is initiated by clicking a
> > > spinner form control:
> > >
> > > If cbRecord.Value Then
> > > ...
> > > ...
> > > ...
> > > End If
> > >
> > > However, when the code is run I get the following error: Run time error
> > > '424': Object required. When I go to debug, the code doesn't even know that
> > > my check box exists.
> > >
> > > TIA...Geoff
> > >
 |  Next  |  Last
Pages: 1 2
Prev: List of names that can be divide by catagory in a single step
Next: Search Post by user