Hide/Unhide rows based on value with a checkbox

[Miltoft]

Hi everyone

I hope, that some of you are able to help me. I have a large excel sheet with a lot of rows. I column "F" I have the status stated. It can be open, closed or blank. I would like to have a checkbox that hides every row with the status of "Closed".

I have tried this, but that won't work.

Private Sub CheckBox1_Click()

If Range("F31:395").Value = "Closed" Then
[31:395].EntireRow.Hidden = True

Else: [31:395].EntireRow.Hidden = False

End If

End Sub

Best regards

Daniel

 

[My Aswer Is This]

Normally when using a checkbox

We would say something like:
If checkbox1.value=True then do this
If checkbox1.value=False do this

Like this:

Private Sub CheckBox1_Click()
'Modified  2/9/2022  5:40:07 AM  EST
If CheckBox1.Value = True Then MsgBox "Yes"
If CheckBox1.Value = False Then MsgBox "No"
End Sub

Doing it the way you wrote your script it would be better to put the script in a Command Button.

 

[My Aswer Is This]

And you said:
If Range("F31:395").Value = "Closed" Then

So the script will only change things if all the values in the range are "Closed"

Or do mean if value in cell is closed do this this.

 

[Miltoft]

And you said:
If Range("F31:395").Value = "Closed" Then

So the script will only change things if all the values in the range are "Closed"

Or do mean if value in cell is closed do this this.

First of all thank you very much for your help. Every row where column "F" contains the word "Closed" needs to be closed when the checkbox is true. And needs to be shown again when unchecking it.

Make sense?

 

[KingBob]

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub


Fill in the "MSGBOX ".... with whatever line of code you want

Using to If statements limites you funtionality