I have a macro that works great but I want to tweak it a little. In
the macro below the Else value = NULL. Instead of a null result I want
to hide the entire row (or if a Null result then hide row). What do I
need to do?

Sub Process_CheckBox(pObject)

Dim LRow As Integer
Dim LRange As String

'Find row that checkbox resides in
LRow = pObject.TopLeftCell.Row
LRange = "B" & CStr(LRow)

'Change date in column B, if checkbox is checked
If pObject.Value = True Then
ActiveSheet.Range(LRange).Value = "=R2C1"

'Clear date in column B, if checkbox is unchecked AND HIDE ROW
Else
ActiveSheet.Range(LRange).Value = Null

End If

End Sub



Thanks!
Kris

Use a line like:
ActiveSheet.Range(LRange).entirerow.hidden = true
instead of (or along with) that "= null" line.

You may want to add:
ActiveSheet.Range(LRange).entirerow.hidden = false
to the then portion of that statement, too.


wrote:

I have a macro that works great but I want to tweak it a little. In
the macro below the Else value = NULL. Instead of a null result I want
to hide the entire row (or if a Null result then hide row). What do I
need to do?

Sub Process_CheckBox(pObject)

Dim LRow As Integer
Dim LRange As String

'Find row that checkbox resides in
LRow = pObject.TopLeftCell.Row
LRange = "B" & CStr(LRow)

'Change date in column B, if checkbox is checked
If pObject.Value = True Then
ActiveSheet.Range(LRange).Value = "=R2C1"

'Clear date in column B, if checkbox is unchecked AND HIDE ROW
Else
ActiveSheet.Range(LRange).Value = Null

End If

End Sub

Thanks!
Kris

--

Dave Peterson

On Feb 7, 1:23 pm, Dave Peterson wrote:
Use a line like:
ActiveSheet.Range(LRange).entirerow.hidden = true
instead of (or along with) that "= null" line.

You may want to add:
ActiveSheet.Range(LRange).entirerow.hidden = false
to the then portion of that statement, too.





wrote:

I have a macro that works great but I want to tweak it a little. In
the macro below the Else value = NULL. Instead of a null result I want
to hide the entire row (or if a Null result then hide row). What do I
need to do?

Sub Process_CheckBox(pObject)

Dim LRow As Integer
Dim LRange As String

'Find row that checkbox resides in
LRow = pObject.TopLeftCell.Row
LRange = "B" & CStr(LRow)

'Change date in column B, if checkbox is checked
If pObject.Value = True Then
ActiveSheet.Range(LRange).Value = "=R2C1"

'Clear date in column B, if checkbox is unchecked AND HIDE ROW
Else
ActiveSheet.Range(LRange).Value = Null

End If

End Sub

Thanks!
Kris

--

Dave Peterson- Hide quoted text -

- Show quoted text -

Works like a charm! THANKS!!!