Check box not working out for me.. why?

  • Thread starter Thread starter TG
  • Start date Start date
T

TG

Hi,

I am using a check box and sending the true or false value to another
spreadsheet (at cell A2), I am then using the following code:

If Target.Address = "$A$2" Then
If UCase(Target.Value) = "FALSE" Then
Rows("5:56").Hidden = True
Else
Rows("5:56").Hidden = False
End If
End If

this code does not work using the check box to send a true or false value,
it does however work when I manually type in false or true.....???

Can any one help me with this one?

Thank you guys in advance,

TG
 
You left out part of your macro, specifically which event are you using!
However, as changing an object is not detected by events, I don't think you
are heading in the right direction. Perhaps you could use the
worksheet_Activate event, and then have it check range "a2" of the
appropriate sheet and decide whether to hide the rows or not.
 
Sorry,

here is what I am using:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If UCase(Target.Value) = "FALSE" Then
Rows("5:56").Hidden = True
Else
Rows("5:56").Hidden = False
End If
End If
End Sub


and still it does not work

TIA

TG
 
Yea, the worksheet change event is not activated by checkboxes. As I
mentioned before, you could try doing a late event where whenever you
activate the sheet that's important, use the worksheet activate event to call
a macro from a module that goes back to sheet with TRUE/FALSE, checks value,
hides/unhides rows, and then returns to start sheet.

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Call MyMacro
Me.Select
End Sub
 
You can use code directly associated with the checkbox.

I'm assuming that your checkbox is from the Control toolbox toolbar. If it's
not, then replace it with one that is from that toolbar.

My checkbox was named Checkbox1:

Option Explicit
Private Sub CheckBox1_Click()
Me.Rows("5:56").Hidden = Not (Me.CheckBox1.Value)
End Sub

This code goes in the module for the worksheet that owns the checkbox (and rows
to hide).
 
This kludge works:

A2 = linked cell
A1 formula: =--A2

Private Sub Worksheet_Calculate()

If Range("A1").Value = 0 Then
Rows("5:56").Hidden = True
Else
Rows("5:56").Hidden = False
End If

End Sub

But I like Dave's suggestion!
 
Back
Top