Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error with OLEObjects
Error with OLEObject Hi there My problem is : when excution gets to this line: Code: -------------------- Set cboTemp = ws.OLEObjects("TempCombo") -------------------- it gives me Code: -------------------- Methode of OLEObjest of worksheet Failed -------------------- Any how to solve the Error ? Here is the whole code: Code: -------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next If cboTemp.Visible = True Then With cboTemp .Top = 10 .Left = 10 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With End If errHandler: Application.EnableEvents = True Exit Sub End Sub -------------------- -- helmekki ------------------------------------------------------------------------ helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939 View this thread: http://www.excelforum.com/showthread...hreadid=487993 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error with OLEObjects
Hi Helmekki,
You code works for me. If, however, I mis-spelled the combobox name, I would get your reported error. Check for subtle name errors, e.g. a leading or trailing space. --- Regards, Norman "helmekki" wrote in message ... Error with OLEObject Hi there My problem is : when excution gets to this line: Code: -------------------- Set cboTemp = ws.OLEObjects("TempCombo") -------------------- it gives me Code: -------------------- Methode of OLEObjest of worksheet Failed -------------------- Any how to solve the Error ? Here is the whole code: Code: -------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next If cboTemp.Visible = True Then With cboTemp .Top = 10 .Left = 10 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With End If errHandler: Application.EnableEvents = True Exit Sub End Sub -------------------- -- helmekki ------------------------------------------------------------------------ helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939 View this thread: http://www.excelforum.com/showthread...hreadid=487993 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error with OLEObjects
Thank u very muc -- helmekk ----------------------------------------------------------------------- helmekki's Profile: http://www.excelforum.com/member.php...nfo&userid=693 View this thread: http://www.excelforum.com/showthread.php?threadid=48799 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
OLEObjects | Excel Programming | |||
OLEObjects .. again | Excel Programming | |||
Error: Unable to get the OLEObjects property of the worksheet class | Excel Programming | |||
Taking over OLEObjects... Possible ?! | Excel Programming | |||
OLEObjects clickable? | Excel Programming |