Check Box Code Does Not Work

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have had four suggestions on how to make this work and so far none will work. Now the True Statement has something wrong.

Can anyone help?

Private Sub CheckBox1_Click()
With CheckBox1
If .Value = True Then
ActiveSheet.Range("A2").Value = Range("Sheet2!$B$4").Value
Else
If .Value = False Then
ActiveSheet.Range("A2") = ""
End If
End If
End With
End Sub

Thank You very much
 
It worked when I did it like this:

Private Sub CheckBox1_Click()
With CheckBox1
If .Value = True Then
ActiveSheet.Cells(2, 1).Value = Worksheets(2).Cells(4, 2).Value
ElseIf .Value = False Then
ActiveSheet.Range("A2") = ""
End If
End With
End Sub

- Pikus
 
Man, attitude. we're trying to help.

First, the code should be

Private Sub CheckBox1_Click()
With CheckBox1
If .Value = True Then
ActiveSheet.Range("A2").Value = _
Worksheets("Sheet2").Range("$B$4").Value
Else
ActiveSheet.Range("A2") = ""
End If
End With
End Sub

Next. This is the click event for the checkbox, so be
sure that its on the worksheet's code page...the sheet on
which you have the checkbox...right click the sheet tab &
select view code

Finally, rather than moan about an error, tell us exactly
what the error is and on which line. We are here to help,
and this isn't a difficult process that you're stuck on.

Please keep us posted with your progress

Patrrick Molloy
Microsoft Excel MVP


-----Original Message-----
I have had four suggestions on how to make this work and
Click to expand...
so far none will work. Now the True Statement has
something wrong.
 
Patrick Molly,

Sorry your code does not work.

Boy did you get up on the wrong side of the bed. Or maybe you haven't
gone to bed Yet.

Thank you for trying,

Bob
 
pikus,

Again thanks for your help.
I have another problem you may be able to help with. Using the code
below I cannot figure out how to choose a range of cells. Private Sub
CheckBox2_Click()
With CheckBox2
If .Value = True Then
Worksheets(2).Cells(9, 1).Value = ActiveSheet.Cells(9,1).Value
Else
Worksheets(2).Cells(9, 1).Value = ""
End If
End With
End Sub

Another words how do I choose:
Worksheets(2).Cells(A9:D9).Value = This will not work.

I have also tried Range(Cells().

Thank you for your help.

Bob
 
Worksheets(2).Range("A9:D9").Value = _
Activesheet.Range("A9:D9").Value
Else
Worksheets(2).Range("A9:D9").ClearContents
 
Tom,
Thank you for your reply. Below is the code I am now using per row, per
check box. How can it be written to do the same thing 10 to 20 times
without writing the same code per row for each check box 10 to 20 times?
Using a starting check bo number and ending with a higher check box
number.

Private Sub CheckBox2_Click()
With CheckBox2
If .Value = True Then
Worksheets(2).Range("A9:C9").Value =
ActiveSheet.Range("A9:C9").Value
Else
Worksheets(2).Range("A9:C9").Value = ""
End If
End With
End Sub

Thanks again for your help Tom.
I may have sent this twice by mistake.
 
Though as far as I can tell you will need to put some code into each of
your checkboxes, you can minimize it. What I’d recommend is to have
the checkbox call a function and pass the relevant info. - Pikus

In Sheet1:
Private Sub CheckBox1_Click()
Call ChBxClick(CheckBox1.Value, _
Worksheets(1).Range("A9:C9"), _
Worksheets(2).Range("A9:C9"))
End Sub

Then in Module1:
Public Sub ChBxClick(chBx As Boolean, rng1 As Range, rng2 As Range)
If ChBx = True Then
rng2.Value = rng1.Value
Else
rng2.Value = ""
End If
End Sub
 
Back
Top