Combo box as autofilter (Macro to hide rows)

[rebeto13]

Hi, I'm using a combo box to work as an autofilter, but since there's totals included I'm using it. I've set the code of it as

If ComboBox1.Value = 710 Then
Rows("16:244").Hidden = True
End If

However when I run it I get an error message, even though the rows are hidden. Is there a way to disable the debug dialog box brought up??? Or is there another way to write the code to make it work?

Thanks

 

[HalfAce]

Hello rebeto13,

Is there a way to disable the debug dialog box

Yes, you can include the line:
Application.DisplayAlerts = False
Just make sure you include the line:
Application.DisplayAlerts = True before the end of your sub.

However, it is far more preferable to address/eliminate the error than to just force
vba to ignore it. :wink:
What line of code is highlighted when you get the error?
What does the rest of your code look like?
Is this a combobox control on a userform, or is it planted directly on the worksheet?

 

[rebeto13]

Hi This is the line that's being highlited as having an error.

Rows("16:244").Hidden = True

The combo box is in the worksheet, not in a userform.

Thanks

 

[HalfAce]

Is there more going on than just that bit of code? It's working fine for me.

Is the sheet protected or something? If so, try this.

Private Sub ComboBox1_Change()
If ComboBox1.Value = 710 Then
  ActiveSheet.Unprotect
  Rows("16:244").Hidden = True
  ActiveSheet.Protect
End If
End Sub

If that's not it then what is the actual error number and message displayed?