I'm using the following macro to hide/show rows, but I get a "run-time error
'1004' Unable to set the Hidden property of the Range Class" if the row
contains a combo box. The combo boxes are inserting information into
adjoining cells on the same row. What could be causing the error?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Range("2:" & Rows.Count).EntireRow.Hidden = False
Range(CStr(3 + 2 * Range("A2").Value) & ":" & _
Rows.Count).EntireRow.Hidden = True
End If
End Sub

the error is that there's a combobox in the way & it won't let you
programatically hide the row. there's nothing wrong with the sub
(that i can see).
you'll have to skip the row if it contains a combobox.
hth
susan


On May 14, 9:51*am, New2Macros
wrote:
I'm using the following macro to hide/show rows, but I get a "run-time error
'1004' Unable to set the Hidden property of the Range Class" if the row
contains a combo box. *The combo boxes are inserting information into
adjoining cells on the same row. *What could be causing the error?

Private Sub Worksheet_Change(ByVal Target As Range)
* *If Target.Address = "$A$2" Then
* * *Range("2:" & Rows.Count).EntireRow.Hidden = False
* * *Range(CStr(3 + 2 * Range("A2").Value) & ":" & _
* * * * * * *Rows.Count).EntireRow.Hidden = True
* *End If
*End Sub

That will cause a problem, because I need a combo box on every row. Is there
a way to get around this?


"Susan" wrote:

the error is that there's a combobox in the way & it won't let you
programatically hide the row. there's nothing wrong with the sub
(that i can see).
you'll have to skip the row if it contains a combobox.
hth
susan


On May 14, 9:51 am, New2Macros
wrote:
I'm using the following macro to hide/show rows, but I get a "run-time error
'1004' Unable to set the Hidden property of the Range Class" if the row
contains a combo box. The combo boxes are inserting information into
adjoining cells on the same row. What could be causing the error?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Range("2:" & Rows.Count).EntireRow.Hidden = False
Range(CStr(3 + 2 * Range("A2").Value) & ":" & _
Rows.Count).EntireRow.Hidden = True
End If
End Sub

i don't know; maybe someone else can help.
susan

On May 14, 11:45*am, New2Macros
wrote:
That will cause a problem, because I need a combo box on every row. *Is there
a way to get around this?



"Susan" wrote:
the error is that there's a combobox in the way & it won't let you
programatically hide the row. *there's nothing wrong with the sub
(that i can see).
you'll have to skip the row if it contains a combobox.
hth
susan

On May 14, 9:51 am, New2Macros
wrote:
I'm using the following macro to hide/show rows, but I get a "run-time error
'1004' Unable to set the Hidden property of the Range Class" if the row
contains a combo box. *The combo boxes are inserting information into
adjoining cells on the same row. *What could be causing the error?

Private Sub Worksheet_Change(ByVal Target As Range)
* *If Target.Address = "$A$2" Then
* * *Range("2:" & Rows.Count).EntireRow.Hidden = False
* * *Range(CStr(3 + 2 * Range("A2").Value) & ":" & _
* * * * * * *Rows.Count).EntireRow.Hidden = True
* *End If
*End Sub- Hide quoted text -

- Show quoted text -

Okay, who could help?

"Susan" wrote:

i don't know; maybe someone else can help.
susan

On May 14, 11:45 am, New2Macros
wrote:
That will cause a problem, because I need a combo box on every row. Is there
a way to get around this?



"Susan" wrote:
the error is that there's a combobox in the way & it won't let you
programatically hide the row. there's nothing wrong with the sub
(that i can see).
you'll have to skip the row if it contains a combobox.
hth
susan

On May 14, 9:51 am, New2Macros
wrote:
I'm using the following macro to hide/show rows, but I get a "run-time error
'1004' Unable to set the Hidden property of the Range Class" if the row
contains a combo box. The combo boxes are inserting information into
adjoining cells on the same row. What could be causing the error?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Range("2:" & Rows.Count).EntireRow.Hidden = False
Range(CStr(3 + 2 * Range("A2").Value) & ":" & _
Rows.Count).EntireRow.Hidden = True
End If
End Sub- Hide quoted text -

- Show quoted text -