Change macro to hide row if null
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 |
Change macro to hide row if null
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 |
Change macro to hide row if null
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!!! |
All times are GMT +1. The time now is 12:10 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com