Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime error 1004
I am using the following code to open a file and copy data to another file. There are some cells that have merged cells which is creating a runtime error 1004 this operation requires the merged cells to be identically sized. I originally tried to copy a bigger range with the same formats but that didn't work either. Does anyone have any suggestions? Thanks. Dim schb2 As Range Workbooks(myfile).Activate Worksheets("Schedule B-2 By Premium Group").Visible = True Worksheets("Schedule B-2 By Premium Group").Activate Set schb2 = Worksheets("Schedule B-2 By Premium Group ").Range("d13:d811") schb2.Copy Worksheets("Schedule B-2 By Premium Group").Visible = False ThisWorkbook.Activate Sheet7.Activate Sheet7.Cells(13, 4).PasteSpecial Paste:=xlPasteValues |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime error 1004
Adella,
I am sure there is an easier way, but doing a regular paste, unmerge, copy, paste value will work. ActiveSheet.Paste Application.CutCopyMode = False With Selection .MergeCells = False End With Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False steve "Adella" wrote in message ... I am using the following code to open a file and copy data to another file. There are some cells that have merged cells which is creating a runtime error 1004 this operation requires the merged cells to be identically sized. I originally tried to copy a bigger range with the same formats but that didn't work either. Does anyone have any suggestions? Thanks. Dim schb2 As Range Workbooks(myfile).Activate Worksheets("Schedule B-2 By Premium Group").Visible = True Worksheets("Schedule B-2 By Premium Group").Activate Set schb2 = Worksheets("Schedule B-2 By Premium Group ").Range("d13:d811") schb2.Copy Worksheets("Schedule B-2 By Premium Group").Visible = False ThisWorkbook.Activate Sheet7.Activate Sheet7.Cells(13, 4).PasteSpecial Paste:=xlPasteValues |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime error 1004
Thanks!
-----Original Message----- Adella, I am sure there is an easier way, but doing a regular paste, unmerge, copy, paste value will work. ActiveSheet.Paste Application.CutCopyMode = False With Selection .MergeCells = False End With Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:= xlNone, SkipBlanks:= _ False, Transpose:=False steve "Adella" wrote in message ... I am using the following code to open a file and copy data to another file. There are some cells that have merged cells which is creating a runtime error 1004 this operation requires the merged cells to be identically sized. I originally tried to copy a bigger range with the same formats but that didn't work either. Does anyone have any suggestions? Thanks. Dim schb2 As Range Workbooks(myfile).Activate Worksheets("Schedule B-2 By Premium Group").Visible = True Worksheets("Schedule B-2 By Premium Group").Activate Set schb2 = Worksheets("Schedule B-2 By Premium Group ").Range("d13:d811") schb2.Copy Worksheets("Schedule B-2 By Premium Group").Visible = False ThisWorkbook.Activate Sheet7.Activate Sheet7.Cells(13, 4).PasteSpecial Paste:= xlPasteValues . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime Error 1004 | Excel Discussion (Misc queries) | |||
runtime error 1004 | Excel Discussion (Misc queries) | |||
runtime error 1004 | Excel Discussion (Misc queries) | |||
Another runtime 1004 error | Excel Discussion (Misc queries) | |||
Runtime Error '1004' | Excel Discussion (Misc queries) |