1004 Application Error
Contents |
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss application error 1004 winlogon exe the workings and policies of this site About Us Learn more about application error 1004 spoolsv exe Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions application error 1000 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.
Application Error 1001
Join them; it only takes a minute: Sign up VBA Runtime Error 1004 “Application-defined or Object-defined error” when Selecting Range up vote 7 down vote favorite 1 I am having an issue with a Error 1004 "Application-defined or Object-defined error" when selecting a range. I am still able to select rows (ie Rows("21:21").select) and to select ranges in error 1004 application defined or object defined error other sheets of the same workbook. I do not believe the error is in the code. Maybe its some setting I am unaware of? I have used the exact same code many times before but for some reason I cannot make it function in this sub (I have commented where the error occurs)... Sub CopySheet1_to_PasteSheet2() Dim CLastFundRow As Integer Dim CFirstBlankRow As Integer 'Finds last row of content Windows("Excel.xlsm").Activate Sheets("Sheet1").Activate Range("C21").Select '>>>Error 1004 "Application-defined or Object-defined error" Occurs Selection.End(xlDown).Select CLastFundRow = ActiveCell.Row 'Finds first row without content CFirstBlankRow = CLastFundRow + 1 'Copy Data Range("A21:C" & CLastFundRow).Select Selection.Copy 'Paste Data Values Sheets("PalTrakExport PortfolioAIdName").Select Range("A21").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Bring back to top of sheet for consistancy Range("A21").Select Range("A1").Select End Sub I need to get all fancy in my copying as the amount of rows will change frequently. Again, the below code has been used before without error... but not in this instance. Dim CLastFundRow As Integer Dim CFirstBlankRow As Integer 'Finds last row of content Windows("Excel.xlsm").Activate Sheets("Sheet1").Activate Range("C21").Select '>>>Error 1004 "Application-
be down. Please try the request again. Your cache administrator is webmaster. Generated Thu, 29 Sep 2016 18:12:20 GMT by s_hv1002 (squid/3.5.20)
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 http://superuser.com/questions/962403/getting-application-defined-or-object-defined-error-1004 company Business Learn more about hiring developers or posting ads with us Super User Questions http://www.codeproject.com/Questions/793818/Run-time-eror-Application-defined-or-object-define Tags Users Badges Unanswered Ask Question _ Super User is a question and answer site for computer enthusiasts and power users. Join them; it only takes a minute: Sign up Here's how it works: Anybody can ask a question Anybody can answer The best answers are voted up and rise to the top Getting “Application Defined or Object Defined” error 1004 error '1004" up vote 0 down vote favorite 1 So I was trying to copy data from different sheet and paste on current and I am getting this error: "Application Defined or Object Defined" error '1004" Can someone help me with this ? Option Explicit Sub finddata() Dim fname As String Dim FinalRow As Long Dim i As Integer Sheets("Report").Range("A10:N200").ClearContents fname = Sheets("Report").Range("A4").Value FinalRow = Sheets("Database").Range("A1000").End(xlUp).Row For i = 3 To FinalRow If Sheets("Database").Cells(i, error 1004 application 1) = fname Then Sheets("Database").Range(Cells(i, 11), Cells(i, 24)).Copy ----> Getting "Application Defined or Object Defined" error '1004" on this line Sheets("Report").Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats End If Next i End Sub microsoft-excel vba runtime-error share|improve this question edited Dec 6 '15 at 19:39 Hennes 50.7k775120 asked Aug 25 '15 at 9:42 Mr Miyagi 8117 add a comment| 1 Answer 1 active oldest votes up vote 1 down vote accepted The reference to Cells isn't on the same sheet as the call to Range. This is mentioned in the docs for Range.Item. It will will work if Database is the active sheet but not otherwise. Try replacing the error line with With Sheets("Database") .Range(.Cells(i, 11), .Cells(i, 24)).Copy End With Note the periods before Cells. share|improve this answer edited Aug 25 '15 at 10:02 answered Aug 25 '15 at 10:01 cxw 8471418 Can you troubleshoot and tell me the right solution ? –Mr Miyagi Aug 25 '15 at 10:01 When I ran it first time it works perfectly second time it gives an error. –Mr Miyagi Aug 25 '15 at 10:02 Hey it worked perfectly thank you very much Sir. –Mr Miyagi Aug 25 '15 at 10:04 add a comment| You must log in to answer this question. Not the answer you're looking for? Browse other questions
Tips/Tricks Top Articles Beginner Articles Technical Blogs Posting/Update Guidelines Article Help Forum Article Competition Submit an article or tip Post your Blog quick answersQ&A Ask a Question View Unanswered Questions View All Questions... C# questions Linux questions ASP.NET questions SQL questions VB.NET questions discussionsforums All Message Boards... Application Lifecycle> Running a Business Sales / Marketing Collaboration / Beta Testing Work Issues Design and Architecture ASP.NET JavaScript C / C++ / MFC> ATL / WTL / STL Managed C++/CLI C# Free Tools Objective-C and Swift Database Hardware & Devices> System Admin Hosting and Servers Java .NET Framework Android iOS Mobile SharePoint Silverlight / WPF Visual Basic Web Development Site Bugs / Suggestions Spam and Abuse Watch features Competitions News The Insider Newsletter The Daily Build Newsletter Newsletter archive Surveys Product Showcase Research Library CodeProject Stuff communitylounge Who's Who Most Valuable Professionals The Lounge The Insider News The Weird & The Wonderful The Soapbox Press Releases Non-English Language > General Indian Topics General Chinese Topics help What is 'CodeProject'? General FAQ Ask a Question Bugs and Suggestions Article Help Forum Site Map Advertise with us About our Advertising Employment Opportunities About Us Ask a Question All Questions All Unanswered FAQ Run time eror:1004 Application-defined or object-defined error in vba Rate this: Please Sign up or sign in to vote. See more: MS-Excel VBA Hi I am new in vb programming,in that i design macro for excel sheets copy range.I copied many ranges from one workbook to another.While doing this method, i design and call of macro subroutine given below:Sub CopyRange(source As Range, target As Range) Dim exp As Range MsgBox "Entering in Copy module" Set exp = Sheets(1).Range(source) exp.Select exp.Copy Sheets(2).Range(target).PasteSpecial End Sub 'Call the subroutine Call CopyRange(Sheets(1).Range("E2:E100"), Sheets(2).Range("A2")) So I want to know any changes required in macro, because it gives Run time ero