Hiding/Unhiding Rows in a worksheet based on the value of a checkbox.

R

R Tanner

Hi,

I am using the following code to try and hide/unhide a row in a
worksheet. It hides the row just fine, but it won't unhide it. What
am I doing wrong??

If ActiveSheet.OLEObjects(1).Object.Value = True Then
ActiveSheet.Range("EURUSD").EntireRow.Hidden = False
Else
ActiveSheet.Range("EURUSD").EntireRow.Hidden = True
End If

I tried this code before and it didn't work either.

sheets("Data Layout").Range("EURUSD").EntireRow.Hidden= _
Not sheets("Data Layout").OleObjects(1).object.value

Much simpler, I only wish I could get it to work...Any ideas?

Thanks
 
S

StumpedAgain

I would recommend event programming like the following:

Private Sub CheckBox1_Click()

If ActiveSheet.CheckBox1.Value = True Then
ActiveSheet.Range("EURUSD").EntireRow.Hidden = False
Else
ActiveSheet.Range("EURUSD").EntireRow.Hidden = True
End If

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Hiding / unhiding rows based on change of a cell 8
Code not working in a PROTECTED Worksheet 2
Hiding and unhiding rows with if statement macro 1
Hide rows using VBA based on cell value 0
Hiding Rows with Blank cells 5
Checkboxes disappear after macro is run 7
Excel loop error -- 25 rows okay, but 30 too many 1
Conditional Hiding of Rows 4

Top