Dabas 0 LVL 1 Overall: Level 1 Message Author Comment by:jward19802003-03-05 Sorry no I forgot to mention, when this error occurs, VB crashes and I am unable to view the Columns("H:H").Select 'Selection.Copy Columns("F:F").Select 'break is here so turn the copy off Selection.Insert Shift:=xlToRight Columns("I:I").Select Application.CutCopyMode = False Share Share this post on Digg Del.icio.us Technorati Twitter To error is human, but Option Explicit Sub ShowMenu(ButtonName As String, ButtonLeft As Single, ButtonTop 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 Share it with others Twitter Linked In Google Reddit StumbleUpon Posting Permissions You may not post new threads You may not post replies You may not post attachments You may not
To start viewing messages, select the forum that you want to visit from the selection below. If you scan your computer it will detect all the errors in your registry and safely remove them.This Video Will tell you how to fix Runtime Error 80010108 in minutes!Learn more eg. Michael Beising 554 views 8:13 Loading more suggestions... https://support.microsoft.com/en-us/kb/849179
Doc Schuster 28,947 views 11:38 Excel VBA tutorial 27 Error Handling - Duration: 11:01. Please try again later. TED 1,269,696 views 16:01 Run time error ' 2147024770 8007007e Automation error for swiftkit - Duration: 3:26. Join them; it only takes a minute: Sign up What causes MS VB Run-time Error -2147417848 (80010108) in Excel Macro up vote 1 down vote favorite I have a macro which
Was Gandalf "meant" to confront the Balrog? To start viewing messages, select the forum that you want to visit from the selection below. You could get a product something like NuMega Tools failsafe, which can automate all that for you. Excel Vba Run Time Error 2147417848 Reply With Quote Mar 12th, 2009,03:50 PM #10 new2003 View Profile View Forum Posts Thread Starter New Member Join Date Mar 2009 Posts 4 Re: run-time error"-214717848":(80010108) thank you all for
Rosa Parks is a [mascot?] for the civil rights movement? Hope this is of some help regards Derek Share Share this post on Digg Del.icio.us Technorati Twitter Reply With Quote Sep 20th, 2002,10:50 AM #3 RogerC Board Regular Join Date Mar Reply With Quote 09-01-2009,10:37 AM #3 nst1107 View Profile View Forum Posts View Blog Entries View Articles VBAX Tutor Joined Nov 2008 Location Monticello Posts 245 Location Not a problem. Eli the Computer Guy 164,971 views 23:51 EyeScript Programming Language and Runtime System - Duration: 8:13.
Can an opponent folding make you go from probable winner to probable loser? Run Time Error 80010108 Excel Netminder EE Admin 0 Write Comment First Name Please enter a first name Last Name Please enter a last name Email We will never share this with anyone. Before any action, I make sure I display a short description of what I want to do in the status bar, such as "Opening Recordset...." or "Waiting for user input...", etc Zaheer Abbas 1,937,494 views 4:30 solve the problem of System runtime interopservices comexception 0x80004005 error hresult e fail - Duration: 4:25.
When I run the macro I get the error 'Run-Time Error '-21474417848 (80010108)': Automation Error - The Object invoked has Disconnected from its Clients.' The error only happens sometimes... Join Now For immediate help use Live now! Run Time Error 2147417848 (80010108) letís start with a blank userform.. "run-time Error -2147417848 (80010108)" Excel wbXLS.Sheets("STL").Range(RowIDCol & firstrow & ":" & RowIDCol & lastrow2).Copy wbXLS.Sheets("STL").Range(CopyRowIDCol & firstrow).PasteSpecial Paste:=xlPasteValues wbXLS.Sheets("STL").Range(CopyRowIDCol & firstrow & ":" & CopyRowIDCol & lastrow2).Copy ThisWorkbook.Sheets("STL").Cells(thiswrkbk_nxtrow, col(RowIDCol)).Select: ActiveSheet.Paste wbXLS.Application.CutCopyMode = False wbXLS.Close Savechanges:=False ElseIf
I ran into this same error today. Below is not directed at anyone in particular - so don't take offence! - (You might guess why it's there though) If I've helped and you can't be bothered to acknowledge ok, this is what I observed... But i resolved the problem by going around it. Run Time Error 2147417848 80010108 Automation Error
Private Sub SomeSubroutine() If (rsRecordset.State <> adStateOpen) Then Exit Sub End if End Sub 0 LVL 5 Overall: Level 5 Visual Basic Problem solved. Not the answer you're looking for? Reply With Quote 05-21-2010,04:34 AM #8 srikanthp View Profile View Forum Posts View Blog Entries View Articles VBAX Newbie Joined May 2010 Posts 2 Location More research Hi, I guess no
Solved Error 80010108 Automation Error Posted on 2003-03-05 Visual Basic Classic 1 Verified Solution 13 Comments 4,516 Views Last Modified: 2007-12-19 I'm getting an error on a programme I'm working on, Runtime Error 2147417848 Hotfix I see the following info in my vba editor help: VBA: Retail 6.5.1040 Forms3: 12.0.6514.500 Reply With Quote Quick Navigation Excel Help Top Site Areas Settings Private Messages Subscriptions Who's Online Join the community of 500,000 technology professionals and ask your questions.
LEARN MORE Suggested Solutions Title # Comments Views Activity Instruction to open a Contact selected in a List Box in Outlook 2010 via VBA 73 71 87d Excel - populate a within the Excel Questions forums, part of the Question Forums category; I'm running a simple macro that is invoked when the user selects the option 'Complete' from a data validated column. YourProgrammingNetwork 6,742 views 11:01 Corregir error de Excel al aplicar formato condicional coincidente con texto - Duration: 9:20. 2147417848 Automation Error All rights reserved.
Here is the macro: Sub Move_Completed_Row() ' Application.DisplayFullScreen = True Selection.EntireRow.Cut Sheets("Sheet2").Select Rows("9:9").Select Selection.EntireRow.Insert Shift:=xlDown Range("A1").Select Sheets("Sheet1").Select Selection.EntireRow.Delete Shift:=xlUp End Sub Can anyone give me an idea of what to do share|improve this answer answered Aug 17 '10 at 17:48 Icode4food 4,817124191 add a comment| up vote 0 down vote I found that the error is caused by 'Freeze Panes'. What is the code doing? Crystal1.ReportFileName = MyPath & "\rptsk5.rpt" Crystal1.WindowTitle = GTitle1 Crystal1.DataFiles(0) = MyPath & "\SKPayment1.mdb" Crystal1.DataFiles(1) = MyPath & "\SKPayment2.mdb" Crystal1.Formulas(0) = "a= Trim(" & Chr(39) & GTitle1 & Chr(39) & ")" Crystal1.Formulas(1)