Excel Runtime Error 1004 Paste Special
Contents |
Forums Excel Questions Run Time Error '1004' PasteSpecial method of Range class failed. Page 1 of 2 12 Last Jump to page: Results 1 to 10 of 12 Run Time Error '1004' PasteSpecial method of Range excel runtime error 1004 paste method of worksheet class failed class failed.This is a discussion on Run Time Error '1004' PasteSpecial method of Range excel vba runtime error 1004 paste method of worksheet class failed class failed. within the Excel Questions forums, part of the Question Forums category; So it worked perfectly!... Until I tried to excel runtime error 1004 application-defined or object-defined error use it for some additional cells that I wanted to copy from ... LinkBack LinkBack URL About LinkBacks Bookmark & Share Digg this Thread!Add Thread to del.icio.usBookmark in TechnoratiTweet this thread Thread Tools Show Printable
Excel 2013 Runtime Error 1004
Version Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode Oct 3rd, 2011,07:20 PM #1 TDPorter New Member Join Date Sep 2011 Posts 12 Run Time Error '1004' PasteSpecial method of Range class failed. So it worked perfectly!... Until I tried to use it for some additional cells that I wanted to copy from the temp file to the active worksheet "overview". What am I doing wrong? The error I excel runtime error 1004 pivot table recieved is as follows: Run Time Error '1004' PasteSpecial method of Range class failed. See code below: Dim wbS As Workbook Dim ws As Worksheet, wsA As Worksheet Dim myFile As String Set wsA = ThisWorkbook.Sheets("overview") myFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls") Set wbS = Workbooks.Open(myFile, False, True) Set ws = wbS.Sheets("DAILY TALLY") ws.Range("D31:S31").Copy wsA.Range("O40").PasteSpecial Paste:=xlPasteValues, Transpose:=True ws.Range("U31:W31").Copy wsA.Range("J48").PasteSpecial Paste:=x1PasteValues, Transpose:=True Share Share this post on Digg Del.icio.us Technorati Twitter Reply With Quote Oct 3rd, 2011,07:28 PM #2 Norie Board Regular Join Date Apr 2004 Location Stirling Posts 70,024 Re: Run Time Error '1004' PasteSpecial method of Range class failed. You've actually got x1PasteValues for the 2nd PasteSpecial. Share Share this post on Digg Del.icio.us Technorati Twitter If posting code please use code tags. Reply With Quote Oct 3rd, 2011,07:37 PM #3 TDPorter New Member Join Date Sep 2011 Posts 12 Re: Run Time Error '1004' PasteSpecial method of Range class failed. It's only that way in the thread, my macro shows the correct "xlPasteValues", no "1"..... Any help? Last edited by TDPorter; Oct 3rd, 2011 at 07:38 PM. Reason: Typo Share Share this post on Digg Del.icio.us Technorati Twitter Reply With Quote Oct 3rd, 2011,07:41 PM #4 Norie Board Regular Join Date Apr 2004 Location Stirling Posts 70,024 Re: Run Time Erro
here for a quick overview of the site Help Center Detailed answers to any questions you might have excel runtime error 1004 sort method of range class failed Meta Discuss the workings and policies of this site About Us Learn
Excel Runtime Error 1004 Macro
more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us
Excel Runtime Error 1004 Autofill Method Of Range Class Failed
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 http://www.mrexcel.com/forum/excel-questions/583043-run-time-error-1004-pastespecial-method-range-class-failed.html you, helping each other. Join them; it only takes a minute: Sign up VBA Error 1004: PasteSpecial method of range class failed up vote 0 down vote favorite I'm having a bit of trouble with any kind of paste method I use at the moment. Data from one sheet must be cut and pasted to another, http://stackoverflow.com/questions/34200437/vba-error-1004-pastespecial-method-of-range-class-failed but I'm not sure what I'm missing. The error occurs here, shortly after the commented "HERE" : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Full code can be found below, thanks for any replies. Option Explicit Public Sub Workbook_Open() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim wb As Variant Dim wsName As Variant Dim blastrow As Variant Dim flastrow As Variant Dim lastrow As Variant ActiveWorkbook.Sheets("combined").Select Range("A1:U9999").ClearContents Dim MyObj As Object, MySource As Object, file As Variant file = Dir("G:\BS\Josh Whitfield\Credit_Chasing\NEW PROCESS\") 'file level loop While (file <> "") If InStr(file, ".xlsx") > 0 Then Workbooks.Open "G:\BS\Josh Whitfield\Credit_Chasing\NEW PROCESS\" & file wb = ActiveWorkbook.Name 'ws = ActiveSheet.Name Dim ws As Worksheet 'worksheet/tab level loop For Each ws In ActiveWorkbook.Worksheets ws.Activate wsName = ws.Name 'andrew code (09/12/2015) blastrow = Workbooks("Copy of merge.xlsb").Worksheets("Combined").Range("A" & Rows.Count).End(xlUp).Row + 1 If blastrow = 2 Then blastrow = 1 Workbooks("Copy of merge.xlsb").Worksheets("Combined").Range("A" & blastrow & ":XFD" & blastrow).Value = _ Workbooks(wb).Worksheets(wsName).Range("A1:XFD1").Value lastrow = Range("A" & Rows.Count).End(xlUp).Row 'finding status column Range("M1").Select Do Until ActiveCell.Value = "Status"
be down. Please try the request again. Your cache administrator is webmaster. Generated Sat, 15 Oct 2016 09:57:06 GMT by s_ac15 (squid/3.5.20)