Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste method of worksheet class failed error
This is a code stored in my Personal.Xls:
wb.Worksheets(1).Range("C5").Select ActiveSheet.Paste When I run the below code, I get the debug error "Paste method of worksheet class failed" on the above part of the code. What should I do to get it to not give me this error? Dim wb As Workbook If MsgBox("Would you like to Import Data?", vbYesNo) = vbNo Then Exit Sub End If On Error Resume Next Set wb = Workbooks("Stats Manager.xls") On Error GoTo 0 If wb Is Nothing Then Set wb = Workbooks.Open("P:\Stats Manager.xls") With Worksheets(1) Set rng = .Range("A4:Z100") Set rng1 = .Range("A4:AZ4") End With res = Application.Match("Ext", rng1, 0) If Not IsError(res) Then Set rng2 = rng1(1, res) rng.Sort Key1:=rng2, Order1:=xlAscending, _ Header:=xlYes, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom End If wb.Worksheets(1).Range("C5").Select ActiveSheet.Paste Range("B5:AZ100").Select Range("AZ5").Activate With Selection .HorizontalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = False End With Range("A2:AZ3").Select MsgBox "Data Imported Successfully!", vbOKOnly If MsgBox("Would you like to Save Workbook?", vbYesNo) = vbNo Then Exit Sub End If ActiveWorkbook.Save |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste method of worksheet class failed error
1. Your Paste code line is not as explicit as that required. We should
evidently, use something like :- '----------------------------------------------------------------------------- ActiveSheet.Paste Destination:=Worksheets(1).Range("C5") '----------------------------------------------------------------------------- Seems like a "belt and braces" approach - but it is probably " feature, not a bug". Despite this, I do get inexplicable problems wit Paste at times. Generally find that the following produces bette results than using Select or Activate:- '---------------------------------------------------------------------------- Application.Goto reference:=wb.Worksheets(1).Range("C5") '---------------------------------------------------------------------------- -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Run-time error '1004': AutoFill method of Range class failed | Excel Discussion (Misc queries) | |||
Error 1004 Copy method of worksheet class failed | Excel Discussion (Misc queries) | |||
Run-Time error '1004' : Select method of Range class failed | Excel Discussion (Misc queries) | |||
error 1004 Select method of Range class failed | Excel Programming | |||
Error Excel: 1004 SaveAs method of Workbook class failed | Excel Programming |