Error 2147417848
Contents |
360 games PC games vb6 error 2147417848 Windows games Windows phone games Entertainment All Entertainment run time error 2147417848 (80010108) Movies & TV Music Business & Education Business Students & educators error 2147417848 automation error Developers Sale Sale Find a store Gift cards Products Software & services Windows Office Free downloads & security Internet 2147417848 the object invoked has disconnected from its clients Explorer Microsoft Edge Skype OneNote OneDrive Microsoft Health MSN Bing Microsoft Groove Microsoft Movies & TV Devices & Xbox All Microsoft devices Microsoft Surface All Windows PCs & tablets PC accessories Xbox & games Microsoft Lumia All
Error 2147417848 Excel
Windows phones Microsoft HoloLens For business Cloud Platform Microsoft Azure Microsoft Dynamics Windows for business Office for business Skype for business Surface for business Enterprise solutions Small business solutions Find a solutions provider Volume Licensing For developers & IT pros Develop Windows apps Microsoft Azure MSDN TechNet Visual Studio For students & educators Office for students OneNote in classroom Shop PCs & tablets perfect for students Microsoft in Education Support Sign in Cart Cart Javascript is disabled Please enable javascript and refresh the page Cookies are disabled Please enable cookies and refresh the page CV: {{ getCv() }} English (United States) Terms of use Privacy & cookies Trademarks © 2016 Microsoft
VBA Code & Other Help Excel Help Solved: Run-time error '-2147417848 (80010108)' If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you
Error 2147417848 En Tiempo De Ejecucion
can post: click the register link above to proceed. To start viewing messages, select "run-time error -2147417848 (80010108)" excel the forum that you want to visit from the selection below. Results 1 to 10 of 10 Thread: Solved: Run-time runtime error 2147417848 (80010108) error '-2147417848 (80010108)' Thread Tools Show Printable Version Subscribe to this Thread… Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode 08-31-2009,05:03 PM #1 nst1107 View Profile View Forum Posts View Blog https://support.microsoft.com/en-us/kb/849179 Entries View Articles VBAX Tutor Joined Nov 2008 Location Monticello Posts 245 Location Solved: Run-time error '-2147417848 (80010108)' I'm running the following sub and getting the 'Automation error The object invoked has disconnected from its clients.' error at the bolded line. I've looked around, but don't see any help for this specific problem. Any help is appreciated. Option Explicit Sub ShowMenu(ButtonName As String, ButtonLeft As Single, ButtonTop http://www.vbaexpress.com/forum/showthread.php?28257-Solved-Run-time-error-2147417848-(80010108) As Single, ButtonHeight As Single) Dim img As MSForms.Image, lbl As MSForms.Label, frm As MSForms.Control Dim fMenu As MSForms.Frame Dim fillRange As Range Dim L As Long Dim maxWidth As Single Set fMenu = UserForm1.Menu Set fillRange = Sheet1.Rows(2).Find(ButtonName).Offset(2) If fillRange.Offset(Rows.Count - 4, 1).End(xlUp).Row = 3 Then L = 4 Else L = fillRange.Offset(Rows.Count - 4, 1).End(xlUp).Row End If Set fillRange = fillRange.Resize(L - 3, 3) With fMenu .Left = ButtonLeft .Top = ButtonTop + ButtonHeight 'Add menu items. For L = 1 To fillRange.Rows.Count [B]Set frm = .Controls.Add("Forms.Frame.1", ButtonName & fillRange.Cells(L, 2))[/B] With frm .Caption = vbNullString .SpecialEffect = fmSpecialEffectFlat .Left = 0 .Top = L * 18 - 18 .Height = 18 Set img = .Controls.Add("Forms.Image.1", frm.Name & "Image") With img .Left = 0 .Width = 18 .Top = 0 .Height = 18 .BackColor = &H80000000 .BorderStyle = fmBorderStyleNone .Picture = LoadPicture(fillRange.Cells(L, 1)) End With Set lbl = .Controls.Add("Forms.Label.1", frm.Name & "Label") With lbl .Left = 24 .WordWrap = False .Caption = fillRange.Cells(L, 2) .AutoSize = True If .Width > maxWidth Then maxWidth = .Width .Top = 3 .Height = 12 .Accelerator = fillRange.Cells(L, 3) End With End With Next 'Resize. .Width = maxWidth + 3 For Each f
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn http://stackoverflow.com/questions/36683612/why-do-i-get-run-time-error-2147417848-80010108-in-excel-2013-most-of-the-tim more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Why do I get run-time error -2147417848 (80010108) in excel 2013 most of the time I run UserForm? up vote 2 down vote favorite Task: I work error 2147417848 in Excel2013. I tried to write in VBA a userform to add parameters into dynamic named ranges. All named ranges are held in one sheet and were created using insert>table. I select the range, show existing values and get the new value. All went well untill I actually got to adding value to the range. Problem: Excel shuts down most of the time when I try to run the UserForm. Saying: "Run-time error '-2147417848 (80010108)' Method time error 2147417848 X of object 'Range' failed" with different methods ('_Default' last time I checked) at different stages of me breaking code down. Symtoms: After this line as I found I get the error: Cells(y, x) = v where y and x are integers and v a string I get from the userform. During the debug I checked all values are defined and have values. Moreover, Immediate window with the same numbers input manually (not as variables), works! It mostly doesn't work, though it did follow through doing the job. If somone could tell the reason why it breaks it would be greatly appreciated! Some of the captions and potential values are in Unicode in case it matters, though I tried putting it all in English as well. Private Sub UserForm_Initialize() ' Preparing all controls of UserForm Sheet2.Activate Me.LB_parameter.SetFocus Me.LB_parameter.value = "" Me.LB_elements.RowSource = "" Me.L_element.Enabled = False Me.TB_element.Enabled = False Me.TB_element.Locked = True Me.Btn_Add.Enabled = False Me.Btn_Add.Locked = True End Sub Private Sub LB_parameter_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ' Filling the existing list of values for the selected parametr If Me.LB_parameter.value <> "" Then Me.LB_elements.RowSource = "D_" & Me.LB_parameter.value & "s" Me.L_element.Enabled = True Me.TB_element.Enabled = True Me.TB_element.Locked = False Me.TB_element.SetFocus End If End Sub Private Sub TB_element_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ' Catching the event of filling out the potential new value Me.Btn_Add.Enabled = True Me.Btn_Add.Locked = False Me.L_element.Enabled