Simple Checkbox Question

Hi - this sort of works, however if the checkbox is ticked and I
then change the value in K33, l6 doesnt change in tandem,
I have to untick and then tick again - think an extra line is needed
Thanks A Lot for any help

Sub checkbox1_click()

If CheckBox1.Value Then
Range("l6") = Range("k33")
Else
Range("l6") = 0
End If
End Sub

Link the checkbox to a cell, and add a worksheet formula to test that linked
cell.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"teresa" <[email protected]> wrote in message
news:[email protected]...
> Hi - this sort of works, however if the checkbox is ticked and I
> then change the value in K33, l6 doesnt change in tandem,
> I have to untick and then tick again - think an extra line is needed
> Thanks A Lot for any help
>
> Sub checkbox1_click()
>
> If CheckBox1.Value Then
> Range("l6") = Range("k33")
> Else
> Range("l6") = 0
> End If
> End Sub
>

Sorry Bob - I didnt understand your response

"Bob Phillips" wrote:

> Link the checkbox to a cell, and add a worksheet formula to test that linked
> cell.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "teresa" <[email protected]> wrote in message
> news:[email protected]...
> > Hi - this sort of works, however if the checkbox is ticked and I
> > then change the value in K33, l6 doesnt change in tandem,
> > I have to untick and then tick again - think an extra line is needed
> > Thanks A Lot for any help
> >
> > Sub checkbox1_click()
> >
> > If CheckBox1.Value Then
> > Range("l6") = Range("k33")
> > Else
> > Range("l6") = 0
> > End If
> > End Sub
> >
>
>
>

Hi Teresa,

No worries, I often feel like that :-)

Let's assume that it is a forms checkbox (tell me if not). Go to the
checkbox and right-click it. Select the 'Format Control' menu option, and
then the Control tab. In the Cell Link box, put a cell reference in there
and OK out. If you check/uncheck the box, you will see it update your cell.

Okay, let's assume that you linked to cell H1. In cell I6 add this formula

=IF(H1=TRUE,K33,0)

--

HTH

RP
(remove nothere from the email address if mailing direct)


"teresa" <[email protected]> wrote in message
news:[email protected]...
> Sorry Bob - I didnt understand your response
>
> "Bob Phillips" wrote:
>
> > Link the checkbox to a cell, and add a worksheet formula to test that
linked
> > cell.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "teresa" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hi - this sort of works, however if the checkbox is ticked and I
> > > then change the value in K33, l6 doesnt change in tandem,
> > > I have to untick and then tick again - think an extra line is needed
> > > Thanks A Lot for any help
> > >
> > > Sub checkbox1_click()
> > >
> > > If CheckBox1.Value Then
> > > Range("l6") = Range("k33")
> > > Else
> > > Range("l6") = 0
> > > End If
> > > End Sub
> > >
> >
> >
> >

See my answer to your later posting of this question.

--
Regards,
Tom Ogilvy

"teresa" <[email protected]> wrote in message
news:[email protected]...
> Sorry Bob - I didnt understand your response
>
> "Bob Phillips" wrote:
>
> > Link the checkbox to a cell, and add a worksheet formula to test that
linked
> > cell.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "teresa" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hi - this sort of works, however if the checkbox is ticked and I
> > > then change the value in K33, l6 doesnt change in tandem,
> > > I have to untick and then tick again - think an extra line is needed
> > > Thanks A Lot for any help
> > >
> > > Sub checkbox1_click()
> > >
> > > If CheckBox1.Value Then
> > > Range("l6") = Range("k33")
> > > Else
> > > Range("l6") = 0
> > > End If
> > > End Sub
> > >
> >
> >
> >

You might want to add that for your solution she should also eliminate the
VBA code or the formula will be overwritten when the checkbox is unchecked.

--
Regards,
Tom Ogilvy

"Bob Phillips" <[email protected]> wrote in message
news:%[email protected]...
> Hi Teresa,
>
> No worries, I often feel like that :-)
>
> Let's assume that it is a forms checkbox (tell me if not). Go to the
> checkbox and right-click it. Select the 'Format Control' menu option, and
> then the Control tab. In the Cell Link box, put a cell reference in there
> and OK out. If you check/uncheck the box, you will see it update your
cell.
>
> Okay, let's assume that you linked to cell H1. In cell I6 add this formula
>
> =IF(H1=TRUE,K33,0)
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "teresa" <[email protected]> wrote in message
> news:[email protected]...
> > Sorry Bob - I didnt understand your response
> >
> > "Bob Phillips" wrote:
> >
> > > Link the checkbox to a cell, and add a worksheet formula to test that
> linked
> > > cell.
> > >
> > > --
> > >
> > > HTH
> > >
> > > RP
> > > (remove nothere from the email address if mailing direct)
> > >
> > >
> > > "teresa" <[email protected]> wrote in message
> > > news:[email protected]...
> > > > Hi - this sort of works, however if the checkbox is ticked and I
> > > > then change the value in K33, l6 doesnt change in tandem,
> > > > I have to untick and then tick again - think an extra line is needed
> > > > Thanks A Lot for any help
> > > >
> > > > Sub checkbox1_click()
> > > >
> > > > If CheckBox1.Value Then
> > > > Range("l6") = Range("k33")
> > > > Else
> > > > Range("l6") = 0
> > > > End If
> > > > End Sub
> > > >
> > >
> > >
> > >
>
>

Tom,

I don't think I will bother, your solution is so much better.

Bob


"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> You might want to add that for your solution she should also eliminate the
> VBA code or the formula will be overwritten when the checkbox is
unchecked.
>
> --
> Regards,
> Tom Ogilvy
>
> "Bob Phillips" <[email protected]> wrote in message
> news:%[email protected]...
> > Hi Teresa,
> >
> > No worries, I often feel like that :-)
> >
> > Let's assume that it is a forms checkbox (tell me if not). Go to the
> > checkbox and right-click it. Select the 'Format Control' menu option,
and
> > then the Control tab. In the Cell Link box, put a cell reference in
there
> > and OK out. If you check/uncheck the box, you will see it update your
> cell.
> >
> > Okay, let's assume that you linked to cell H1. In cell I6 add this
formula
> >
> > =IF(H1=TRUE,K33,0)
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "teresa" <[email protected]> wrote in message
> > news:[email protected]...
> > > Sorry Bob - I didnt understand your response
> > >
> > > "Bob Phillips" wrote:
> > >
> > > > Link the checkbox to a cell, and add a worksheet formula to test
that
> > linked
> > > > cell.
> > > >
> > > > --
> > > >
> > > > HTH
> > > >
> > > > RP
> > > > (remove nothere from the email address if mailing direct)
> > > >
> > > >
> > > > "teresa" <[email protected]> wrote in message
> > > > news:[email protected]...
> > > > > Hi - this sort of works, however if the checkbox is ticked and I
> > > > > then change the value in K33, l6 doesnt change in tandem,
> > > > > I have to untick and then tick again - think an extra line is
needed
> > > > > Thanks A Lot for any help
> > > > >
> > > > > Sub checkbox1_click()
> > > > >
> > > > > If CheckBox1.Value Then
> > > > > Range("l6") = Range("k33")
> > > > > Else
> > > > > Range("l6") = 0
> > > > > End If
> > > > > End Sub
> > > > >
> > > >
> > > >
> > > >
> >
> >
>
>

I wouldn't be so quick to discount your solution. In her lastest post, she
wants to handle 20 checkboxes, so a none programming solution might be in
order. I provided a link to Walkenbach's class approach, but based on past
postings, I don't know if that will be an option.

--
Regards,
Tom Ogilvy

"Bob Phillips" <[email protected]> wrote in message
news:%[email protected]...
> Tom,
>
> I don't think I will bother, your solution is so much better.
>
> Bob
>
>
> "Tom Ogilvy" <[email protected]> wrote in message
> news:[email protected]...
> > You might want to add that for your solution she should also eliminate
the
> > VBA code or the formula will be overwritten when the checkbox is
> unchecked.
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "Bob Phillips" <[email protected]> wrote in message
> > news:%[email protected]...
> > > Hi Teresa,
> > >
> > > No worries, I often feel like that :-)
> > >
> > > Let's assume that it is a forms checkbox (tell me if not). Go to the
> > > checkbox and right-click it. Select the 'Format Control' menu option,
> and
> > > then the Control tab. In the Cell Link box, put a cell reference in
> there
> > > and OK out. If you check/uncheck the box, you will see it update your
> > cell.
> > >
> > > Okay, let's assume that you linked to cell H1. In cell I6 add this
> formula
> > >
> > > =IF(H1=TRUE,K33,0)
> > >
> > > --
> > >
> > > HTH
> > >
> > > RP
> > > (remove nothere from the email address if mailing direct)
> > >
> > >
> > > "teresa" <[email protected]> wrote in message
> > > news:[email protected]...
> > > > Sorry Bob - I didnt understand your response
> > > >
> > > > "Bob Phillips" wrote:
> > > >
> > > > > Link the checkbox to a cell, and add a worksheet formula to test
> that
> > > linked
> > > > > cell.
> > > > >
> > > > > --
> > > > >
> > > > > HTH
> > > > >
> > > > > RP
> > > > > (remove nothere from the email address if mailing direct)
> > > > >
> > > > >
> > > > > "teresa" <[email protected]> wrote in message
> > > > > news:[email protected]...
> > > > > > Hi - this sort of works, however if the checkbox is ticked and I
> > > > > > then change the value in K33, l6 doesnt change in tandem,
> > > > > > I have to untick and then tick again - think an extra line is
> needed
> > > > > > Thanks A Lot for any help
> > > > > >
> > > > > > Sub checkbox1_click()
> > > > > >
> > > > > > If CheckBox1.Value Then
> > > > > > Range("l6") = Range("k33")
> > > > > > Else
> > > > > > Range("l6") = 0
> > > > > > End If
> > > > > > End Sub
> > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> >
> >
>
>

I think it should be, I thought the same about it. I think it is beyond
Teresa's capabilities though, so I have given her some code adapted to WS
checkboxes.

Regards

Bob


"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> I wouldn't be so quick to discount your solution. In her lastest post,
she
> wants to handle 20 checkboxes, so a none programming solution might be in
> order. I provided a link to Walkenbach's class approach, but based on
past
> postings, I don't know if that will be an option.
>
> --
> Regards,
> Tom Ogilvy
>
> "Bob Phillips" <[email protected]> wrote in message
> news:%[email protected]...
> > Tom,
> >
> > I don't think I will bother, your solution is so much better.
> >
> > Bob
> >
> >
> > "Tom Ogilvy" <[email protected]> wrote in message
> > news:[email protected]...
> > > You might want to add that for your solution she should also eliminate
> the
> > > VBA code or the formula will be overwritten when the checkbox is
> > unchecked.
> > >
> > > --
> > > Regards,
> > > Tom Ogilvy
> > >
> > > "Bob Phillips" <[email protected]> wrote in message
> > > news:%[email protected]...
> > > > Hi Teresa,
> > > >
> > > > No worries, I often feel like that :-)
> > > >
> > > > Let's assume that it is a forms checkbox (tell me if not). Go to the
> > > > checkbox and right-click it. Select the 'Format Control' menu
option,
> > and
> > > > then the Control tab. In the Cell Link box, put a cell reference in
> > there
> > > > and OK out. If you check/uncheck the box, you will see it update
your
> > > cell.
> > > >
> > > > Okay, let's assume that you linked to cell H1. In cell I6 add this
> > formula
> > > >
> > > > =IF(H1=TRUE,K33,0)
> > > >
> > > > --
> > > >
> > > > HTH
> > > >
> > > > RP
> > > > (remove nothere from the email address if mailing direct)
> > > >
> > > >
> > > > "teresa" <[email protected]> wrote in message
> > > > news:[email protected]...
> > > > > Sorry Bob - I didnt understand your response
> > > > >
> > > > > "Bob Phillips" wrote:
> > > > >
> > > > > > Link the checkbox to a cell, and add a worksheet formula to test
> > that
> > > > linked
> > > > > > cell.
> > > > > >
> > > > > > --
> > > > > >
> > > > > > HTH
> > > > > >
> > > > > > RP
> > > > > > (remove nothere from the email address if mailing direct)
> > > > > >
> > > > > >
> > > > > > "teresa" <[email protected]> wrote in message
> > > > > > news:[email protected]...
> > > > > > > Hi - this sort of works, however if the checkbox is ticked and
I
> > > > > > > then change the value in K33, l6 doesnt change in tandem,
> > > > > > > I have to untick and then tick again - think an extra line is
> > needed
> > > > > > > Thanks A Lot for any help
> > > > > > >
> > > > > > > Sub checkbox1_click()
> > > > > > >
> > > > > > > If CheckBox1.Value Then
> > > > > > > Range("l6") = Range("k33")
> > > > > > > Else
> > > > > > > Range("l6") = 0
> > > > > > > End If
> > > > > > > End Sub
> > > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>