Excel 2013 :: Copy Method Of Worksheet Class Failed (Runtime Error 1004)
May 17, 2014
I'm using Excel 2013 and I'm getting an issue in vba I can't figure out. (This is something I've done several dozen time before) But everytime I try to copy a sheet in a workbook,
Sheets("Sheet1").Copy After:=WB.Sheets(WB.Sheets.Count)
I recently copied in this sheet from another workbook, and deleted all of it's formula names, but I can't copy any other sheets now either.
The Run time Error 1004: Copy method of Worksheet Class failed pops up. What is weird is that I put in a msgbox and
MsgBox (WB.Sheets.Count)
returns a "1" though the sheet has about a dozen sheets within it. I've saved the workbook and even saved it as another name.
The sheet I imported has a sheet number of 77 while the previous last sheet was 23, could this be a cause?
View 2 Replies
ADVERTISEMENT
Jun 6, 2005
Very new to VBA and having trouble with a simple macro running in 2003 that copies and pasts to another worksheet. Code as follows:
Private Sub CopyResults_Click()
'Select the filtered data and copy it
Range("A23").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("F19").Select
' Open the template and copy in the data
Workbooks.Open Filename:="C:Athens Verification DataTemplatesVerification Template.xls"
Workbooks("Verification Template.xls").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
End Sub
When I run CopyResults, the sheet is opened and the data copied correctly, but I get a runtime error 1004 past method of worksheet class failed, with the line 'ActiveSheet.Paste' highlighted. Don't get this when I run the same macro in 2000.
View 14 Replies
View Related
Sep 17, 2012
I am getting this error when trying to generate the link report ....
Debug tells me that this makes reference to a sheet is not there , I have checked and it seems to be present
It is an urgent issue as it is preventing me to generate link reports...
View 9 Replies
View Related
Apr 29, 2009
I have the following macro who now return a runtime error 1004, paste method of worksheet class failed.
I don't know how to change it to make it work.
Sub Paste_TOP()..
View 9 Replies
View Related
Jun 20, 2013
1.) I have excel 2007 and when I recorded the macro yesterday it worked just fine, but today it's coming up with the box to update values. The macro is set to open up the vendor assignment sheet and do a vlookup against the clerk and then return the information to the original sheet and then copy paste special values. 2.) Today it's also doing the calculating thing in the corner using 2 processors which it has not done before. 3.) Run-time error '1004': PasteSpecial method of Range class failed.
[code]' Keyboard Shortcut: Ctrl+r
'
Dim OriginalSheet As Workbook
Set OriginalSheet = ActiveWorkbook
Columns("B:B").Cut
With Columns("A:A")
.Insert Shift:=xlToRight
End With
[code]....
View 2 Replies
View Related
Sep 26, 2013
My excel version is 2007 and i am on WIN7 64bit
I have a workbook with VBA which was working fine earlier. Lately i have been getting
"Runtime error 1004" Select method of button class failed.
I am adding buttons dynamically in a loop in a sheet and what surprise me is , i go to debug mode when error pops up and it points to below line
MySheet.Buttons.Add(ActiveCell.Left - 5, 25, 20).Select
but my code is running in a loop and i can see that atleast 20 buttons were added and it fails to select when it try to add this iteration. It is completely confusing me.
My entire below code is in a loop
Code:
maWrk.Cells(xIt1, yIt2).Select
mySheet.Buttons.Add(ActiveCell.Left - 5, 25, 20).Select
Selection.OnAction = "callMe"
[Code]....
I also notice that when it fails, on select method .. the button was actually added to the sheet with caption/name as "Button 65536" but then fails to select it. What makes the select to fail after adding the button? Could there be anything special with Button 65536?
Is there any better way to code the adding button and setting action and name for excel 2007?
note before entering the loop i am deleting all the shapes with myShape.Delete which name matches "btRun"
I also want to highlight that i don't have 65536 rows in my sheet. I just have 200 rows. and when this error happens it is on row 150 so firstly i wonder why it is naming the button as Button 65536. I would assume it will start with 1 and go on increments.
What makes excel to fail to select an added button in VBA?
View 6 Replies
View Related
Jul 31, 2014
The macro I'm writing (Excel 2010) is a loop that inserts a column based on a variable location, enters in a formula in the first cell, enters another formula in cell 2, then should fill that second formula to the last row, then keep going until the loop ends. There is always a chance that there will be blank cells to the left and right so I didn't use xldown. I've tried writing in multiple ways, but I keep getting the error.
Code:
Sub colfrmadd()
Range("A1").CurrentRegion.Select
colcnt2 = Selection.Columns.Count
[Code]....
View 1 Replies
View Related
Jan 6, 2007
I am getting the following error: Run-time Error '1004': Copy method of Worksheet class failed. after adding 53 worksheets to a workbook using VBA. I found several posts concerning this error in the forum. However, I did not find any responses that address the root cause or provide a solution.
View 3 Replies
View Related
Mar 27, 2009
I am encountering this error when I try to run code I have written on my own machine. I am working with all unprotected sheets, and I am running Excel 2007. All of the sheet exist.
Here is my ....
View 10 Replies
View Related
Jul 31, 2009
Sub ResetMacro()
Range("G26").Select
ActiveCell.FormulaR1C1 = "=Template!RC"
ActiveWorkbook.Sheets("Template").Range("G26:AE86").Copy
ActiveWorkbook.Sheets("Portfolios").Paste
Selection.AutoFill Destination:=Range("G26:AE36"), Type:=xlFillDefault
Range("G26:AE36").Select
Selection.AutoFill Destination:=Range("G26:AE86"), Type:=xlFillDefault
Range("G26:AE86").Select
End Sub
RunTime Error 1004: AutoFill method of range class failed
Takes me to the code and highlights in yellow the line in bold.
View 9 Replies
View Related
Nov 15, 2013
Trying to be slick with my macro I have 2 sheets collecting data in a workbook. I am attempting to send as attachments only those 2 sheets. I am getting an error at the following space within the code. How do I get around this?
Code:
Sub Send_to_Me()
' Send_to_Me Macro
Dim objTemp As Object
Dim FileExt As String
Dim TempFileName As String
Dim FileFullPath As String
Dim FileFormat As Variant
[Code] ......
This is the line that I get with the message above. It is only 2 sheets. Excel 2010 Windows 2007
View 2 Replies
View Related
Jul 31, 2007
I am trying to filter and copy from masterlist to wholesalecertified. The data is actually pasted to WholesaleCertified, however, I got error 1004.
Sub Refresh()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Sheets("WholesaleCertified").Select
Cells.Select
Selection.ClearContents
Sheets("MasterList").Select................
View 9 Replies
View Related
Feb 16, 2007
When I run this code I get a run time error 1004, copy method of range class failed, I have an autofilter on and it is showing 5 rows, the 5 cells in column A of sheet2 gets copied to sheet1 OK but I get the error?
What do I need to do to fix this?
View 9 Replies
View Related
Dec 28, 2009
i am getting a run time error 1004 Delete method of worksheet class failed,
ws.Delete
Sub Save()
Dim myName As String, myFolder As String, e
Dim fso As Object, temp As String
ThisWorkbook.Save
Set fso = CreateObject("Scripting.FileSystemObject")
myFolder = "C:UsersRecsDocumentsTestVBA & ExcelEmail_Files_Temp" & Year(Date) & "" & Format$(Date, "mmm")
For Each e In Split(myFolder, "")
temp = temp & IIf(temp = "", "", "") & e
If fso.FolderExists(temp) = False Then fso.CreateFolder (temp)
View 9 Replies
View Related
Sep 1, 2006
this is some real simple code but for some unkown reason it keeps failing on me..
Sheets("All Work").Select
Cells.Select
Selection.Copy
Sheets("Sheet3").Select
Cells.Select
ActiveSheet.Paste
Sheets("All Work").Select
The second Cells . select doesnt work for some reason when i attach it to a button on the work sheet and i get the message
"runtime error "1004"
select method of range class failed"
but when i run just the macro it all goes smooth.
View 6 Replies
View Related
Feb 28, 2013
I M Getting Run Time Error 1004 Method Range Of Object _ Worksheet Failed
Option Explicit
Private Sub cboPart_AfterUpdate()
'On Error Resume Next
[Code]...
View 1 Replies
View Related
Mar 26, 2014
As part of a larger Macro I have the following Code:
Range("X2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,""Yes"",""No"")"
Range("X2").Select
Selection.AutoFill Destination:=Range("X2", "X" & lastRow)
Range("X2", "X" & lastRow).Select
Selection.Copy
The code works fine when I have more than two rows of data that I am manipulating but gives me an Run Time Error - AutoFill Method of Range Class Failed at the following line:
Selection.AutoFill Destination:=Range("X2", "X" & lastRow)
When I have only one row of data I get the Run time error.
Any code that will allow me to process the data if I have one row of data as well.
View 4 Replies
View Related
Feb 9, 2012
I'm attempting to write an OutLook 2007 macro that extracts excel spreadsheets from incoming email and saves them as a .csv file. Before saving the file I need to delete the header row. I am getting a "Error 1004 - Delete method of range class failed" error when running this code.
Here is the code: (the bolded line is where I'm getting the error)
Public Sub ConvertToCsv2()
Dim xls As Excel.Application
Dim oWB As Excel.Workbook
Dim tmp As String
Dim ws As Excel.Worksheet
[code]....
View 7 Replies
View Related
Apr 6, 2012
My code is :
Public Const GRAPH_PutData_COL1 = "A"
Public Const GRAPH_PutData_COL2 = "B"
Range(GRAPH_PutData_COL1 & "1").Sort Key1:=Range(GRAPH_PutData_COL2 & "1"), _
Order1:=xlAscending, _
DataOption1:=xlSortTextAsNumbers
it is showing error, "sort method of range class failed error 1004"
Above error only showing when first record is empty...
View 2 Replies
View Related
Aug 22, 2012
When I try to run following code, I get error
Run-time error '1004': Select method of Range class failed
Workbooks("Book1").Worsheets("Sheet1").Range("A1").select
however if I split the code like below it works perfectly
Workbooks("Book1").Worsheets("Sheet1").Select
Range("A1").select
View 3 Replies
View Related
May 9, 2007
i added a "Microsoft office spreadsheet 11.0 " object using additional control and used it in my form of Excel Macro. then i added some data from the combo box to the embedded excel object dispalyed. the form displays correctly and am even able to add data to cells.
but am not able to sort a column. gives me the error message "Sort method of range class failed"
have tried to make sure the sheet is active using the ".Activate" with the object name. this is the only solution available on the existing forums.
View 9 Replies
View Related
May 12, 2009
I've got an excel spreadsheet that has a search function on it. There is a hidden tab where all the data sits, and a visible tab with a search button where you can enter a reg of a car and it brings up details from the hidden tab.
This works perfectly when I open the excel file that is on my machine. I've put the excel file on the intranet, and to open it you click a link, and when the pop up box comes up, you click 'OPEN', and the file opens up within IE. When I try and search for a reg, I get the following error!
Run-time error '1004':
Method '' of object '_Global' failed
Its really confusing because this didnt used to happen before.. so I cant see why there would be an error with the code because it used to work!
Here is my code.
Sub Button1_Click()
'Sheet module code.
'Find my data in the indicated range, on this sheet!
Dim strMessage$, strTitle$, strDefault$, strShtNm$
Dim lngMyCol&, lngLabelRow&
Dim varRegID As Variant
Dim rngMyData As Range
Dim cell As Object
View 9 Replies
View Related
Oct 20, 2008
I lost 2 days trying to discover the bug in my program, but I coudn't find the right answer.
How can I activate the AutoFilter to show me the rows selected with "YES" ?
This is the code... The compiler stops always at the command Selection.AutoFilter.
View 14 Replies
View Related
Oct 16, 2009
This very simple macro in Personal.xlsb is driving me crazy!
I want to paste a previously selected and copied range at the current position as values. The range will seldom be the same as previously, and the position where it will be posted will be random too.
The code is: ...
View 13 Replies
View Related
Oct 26, 2009
I found the following code on your forum, but get the following error:
Run time error '1004'. Autofill method of Range class failed.
The error occurs when the spreadsheet either have 1 row of data completed or no data, can I get code to ignore the autofill when I only have 1 row or no rows completed in various spreadsheets. I have attached a copy of the spreadsheet.
View 2 Replies
View Related
Jul 1, 2008
This file has been running just fine....
But now I got this
Run Time error '1004':
PasteSpecial method of Range Class failed.
View 9 Replies
View Related
Jul 28, 2006
I have a userform that allows the user to view, modify or delete individual records (rows) of a worksheet in a workbook. If a particular item in a record is modified, a check occurs to ensure that the values for that item remain unique. All of that works exactly the way I need. The breakdown occurs when the records are then autosorted by a the values in a particular column. After the autosort, another column of values is copied and pasted to a different worksheet within the same workbook. For this to work properly, I must have the userform open along with the worksheet containing the records. If the userform is open with any other worksheet open, I get the following VBA error message "Run-time Error '1004' : Slect method of Range class failed". I need to be able to open the userform with any worksheet active and not experience this error when the autosort, copy/paste occurs. This is the code for the user form, the module for autosort, copy/paste and checking for unue values.
This is the sub in the worksheet with the records
'This checks for unique values
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim LLoop As Integer
Dim LTestLoop As Integer
Dim Lrows As Integer
Dim LRange As String
Dim LChangedValue As String
Dim LTestValue As String
Dim smessage As String
'Test first 7 rows in spreadsheet for uniqueness
Lrows = 8
LLoop = 2
'Check first 7 rows in spreadsheet
While LLoop <= Lrows.........................
View 3 Replies
View Related
Apr 7, 2007
I get the following error: Run-time error '1004': Select method of Range class failed at the following code line:
Worksheets("Sheet1").Range("A6").Select
View 4 Replies
View Related
May 22, 2007
I am using the following code and I'm getting a Run-time error '1004' error. When I reconstruct the macro one line at a time and run the macro between adding each new line - no error. After reconstructing the macro in its entirety, I can run it once with no error. However, if I try to run it again immediately after that, I get the error and I keep getting the error every time I run it from there on. I dont understand how it can work once and then stop working. Here is the full
Sub MoveToRoster()
ActiveSheet. Unprotect
Dim item As Long
Dim myString1 As String
Dim myString2 As String
Dim myString3 As String
item = InputBox("Please Confirm The Row Number Of The Child To Be Moved To The Roster.")
myString1 = "c" & item & ":e" & item
myString2 = "g" & item & ":n" & item
myString3 = "c" & item & ":e" & item & ",g" & item & ":p" & item ..........................
View 2 Replies
View Related
Oct 7, 2011
Rows keep changing so I have variables to keep track of various locations.
At this point:
tot_new_place equals 30
tot_new_cnt equals 51
I want to take the data in B30:H30 and copy, auto fill to B51:H51
I am receiving the error on this line of code:
Range("B" & tot_new_place & "").Select
Selection.AutoFill Destination:=Range("R" & tot_new_place & "C2:R" & tot_new_cnt & "C9"), Type:=xlFillDefault
View 9 Replies
View Related
