Rem0ram
02-13-2013, 01:59 PM
Hi
I'm stuck with this run time error.
"Run-Time Error -2147417848 (80010108)
Automation Error
The object invoked has disconnected from its clients."
Below is the code is used in a seperate module and called the same using a Option Button taken from Form Tool.
Sub BusDiv_CFG()
'Sheets("Input_Sheet").Unprotect "O1"
Rows("23:150").EntireRow.Hidden = False
Range("D19,D42,D52,D63,D74,D84,D94,D104,D114,D124,D134").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=BusDiv_CFG"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
If Range("D9").Value = "" Or Range("D9").Value = "ORBIT User Access Removal (stop user access to ORBIT)" Then
Rows("21:22").EntireRow.Hidden = False
Rows("24:150").EntireRow.Hidden = True
ElseIf Range("D9").Value = "CLONE Existing ORBIT User" Then
Rows("21:22").EntireRow.Hidden = True
Rows("24:35").EntireRow.Hidden = False
Rows("34:150").EntireRow.Hidden = True
ElseIf Range("D9").Value = "New ORBIT User Request (user does not have access to ORBIT)" Or Range("D9").Value = "ORBIT User Update Request (existing ORBIT user requiring modification)" Or Range("D9").Value = "Other (any other misc user request)" Then
Rows("21:22").EntireRow.Hidden = True
Rows("24:35").EntireRow.Hidden = True
Rows("34:150").EntireRow.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=1
End If
'Sheets("Input_Sheet").Protect "O1"
End Sub
When executed in break mode i'm getting the error in the below line:
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=BusDiv_CFG"
I'm stuck with this run time error.
"Run-Time Error -2147417848 (80010108)
Automation Error
The object invoked has disconnected from its clients."
Below is the code is used in a seperate module and called the same using a Option Button taken from Form Tool.
Sub BusDiv_CFG()
'Sheets("Input_Sheet").Unprotect "O1"
Rows("23:150").EntireRow.Hidden = False
Range("D19,D42,D52,D63,D74,D84,D94,D104,D114,D124,D134").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=BusDiv_CFG"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
If Range("D9").Value = "" Or Range("D9").Value = "ORBIT User Access Removal (stop user access to ORBIT)" Then
Rows("21:22").EntireRow.Hidden = False
Rows("24:150").EntireRow.Hidden = True
ElseIf Range("D9").Value = "CLONE Existing ORBIT User" Then
Rows("21:22").EntireRow.Hidden = True
Rows("24:35").EntireRow.Hidden = False
Rows("34:150").EntireRow.Hidden = True
ElseIf Range("D9").Value = "New ORBIT User Request (user does not have access to ORBIT)" Or Range("D9").Value = "ORBIT User Update Request (existing ORBIT user requiring modification)" Or Range("D9").Value = "Other (any other misc user request)" Then
Rows("21:22").EntireRow.Hidden = True
Rows("24:35").EntireRow.Hidden = True
Rows("34:150").EntireRow.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=1
End If
'Sheets("Input_Sheet").Protect "O1"
End Sub
When executed in break mode i'm getting the error in the below line:
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=BusDiv_CFG"