Hello,
I have a series of check box macros that are set to hide and unhide rows when checked and unchecked. Only problem is that whenever I insert a new line into the page, everything gets thrown off. Is there anyway to fix that?
The following is the code I use
Sub Oxygen()
'
' Oxygen Macro
' Macro recorded 5/16/2008 by Kyle Roche
'
Rows("32:32").EntireRow.Hidden = True
Rows("42:42").EntireRow.Hidden = True
Rows("50:51").EntireRow.Hidden = True
Rows("61:61").EntireRow.Hidden = True
Rows("69:69").EntireRow.Hidden = True
Rows("147:182").EntireRow.Hidden = True
Rows("295:295").EntireRow.Hidden = True
Rows("304:304").EntireRow.Hidden = True
Rows("314:314").EntireRow.Hidden = True
Rows("322:322").EntireRow.Hidden = True
Rows("332:332").EntireRow.Hidden = True
'
End Sub
Sub YesOxygen()
'
' YesOxygen Macro
' Macro recorded 5/16/2008 by Kyle Roche
'
Rows("32:32").EntireRow.Hidden = False
Rows("42:42").EntireRow.Hidden = False
Rows("50:51").EntireRow.Hidden = False
Rows("61:61").EntireRow.Hidden = False
Rows("69:69").EntireRow.Hidden = False
Rows("147:182").EntireRow.Hidden = False
Rows("295:295").EntireRow.Hidden = False
Rows("304:304").EntireRow.Hidden = False
Rows("314:314").EntireRow.Hidden = False
Rows("322:322").EntireRow.Hidden = False
Rows("332:332").EntireRow.Hidden = False
'
End Sub
Sub OxygenCheckBox()
Dim cb As Excel.CheckBox
Set cb = Excel.ActiveSheet.CheckBoxes(Application.Caller)
If cb.Value = xlOn Then
Call YesOxygen
Else
Call Oxygen
End If
End Sub
I have a series of check box macros that are set to hide and unhide rows when checked and unchecked. Only problem is that whenever I insert a new line into the page, everything gets thrown off. Is there anyway to fix that?
The following is the code I use
Sub Oxygen()
'
' Oxygen Macro
' Macro recorded 5/16/2008 by Kyle Roche
'
Rows("32:32").EntireRow.Hidden = True
Rows("42:42").EntireRow.Hidden = True
Rows("50:51").EntireRow.Hidden = True
Rows("61:61").EntireRow.Hidden = True
Rows("69:69").EntireRow.Hidden = True
Rows("147:182").EntireRow.Hidden = True
Rows("295:295").EntireRow.Hidden = True
Rows("304:304").EntireRow.Hidden = True
Rows("314:314").EntireRow.Hidden = True
Rows("322:322").EntireRow.Hidden = True
Rows("332:332").EntireRow.Hidden = True
'
End Sub
Sub YesOxygen()
'
' YesOxygen Macro
' Macro recorded 5/16/2008 by Kyle Roche
'
Rows("32:32").EntireRow.Hidden = False
Rows("42:42").EntireRow.Hidden = False
Rows("50:51").EntireRow.Hidden = False
Rows("61:61").EntireRow.Hidden = False
Rows("69:69").EntireRow.Hidden = False
Rows("147:182").EntireRow.Hidden = False
Rows("295:295").EntireRow.Hidden = False
Rows("304:304").EntireRow.Hidden = False
Rows("314:314").EntireRow.Hidden = False
Rows("322:322").EntireRow.Hidden = False
Rows("332:332").EntireRow.Hidden = False
'
End Sub
Sub OxygenCheckBox()
Dim cb As Excel.CheckBox
Set cb = Excel.ActiveSheet.CheckBoxes(Application.Caller)
If cb.Value = xlOn Then
Call YesOxygen
Else
Call Oxygen
End If
End Sub