Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004, pasting merged cells
‘Alpha is a tab in another workbook (WBSEL) which is copied and
pasted in to a newly added workbook (via VBA). However this is an 1004 error relating to a merged cell (A1:J1). For some reason it won’t copy due to the merged cell? Why is this, the whole sheet is copied, why is it dependent on a cell? With WBAlpha .SaveAs Filename:="N:\mis\" & MyRange.Value & MyRange2.Value & "\" & "Alpha Figures" & " " & MyRange.Value & MyRange2.Value & ".xls" End With WBSEL.Activate Sheets("Alpha").Select Sheets("Alpha").Copy Befo=WBAlpha.Sheets(1) WBAlpha.Activate Sheets("Alpha").Paste Sheets("Sheet1").Select ActiveWindow.SelectedSheets.Delete Sheets("Sheet2").Select ActiveWindow.SelectedSheets.Delete Sheets("Sheet3").Select ActiveWindow.SelectedSheets.Delete With WBAlpha .SendMail Recipients:=Array(RngEmailTest2.Value, RngEmailTest.Value) .Close SaveChanges:=True Thanks, Simon (the MyRange.Value occurances are merely a date stamping for the previous month. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004, pasting merged cells
This line of your code copies the sheet and everything on it:
Sheets("Alpha").Copy Befo=WBAlpha.Sheets(1) I don't see what the Paste is trying to do. -- Jim "Simon" wrote in message ... ‘Alpha is a tab in another workbook (WBSEL) which is copied and pasted in to a newly added workbook (via VBA). However this is an 1004 error relating to a merged cell (A1:J1). For some reason it won’t copy due to the merged cell? Why is this, the whole sheet is copied, why is it dependent on a cell? With WBAlpha .SaveAs Filename:="N:\mis\" & MyRange.Value & MyRange2.Value & "\" & "Alpha Figures" & " " & MyRange.Value & MyRange2.Value & ".xls" End With WBSEL.Activate Sheets("Alpha").Select Sheets("Alpha").Copy Befo=WBAlpha.Sheets(1) WBAlpha.Activate Sheets("Alpha").Paste Sheets("Sheet1").Select ActiveWindow.SelectedSheets.Delete Sheets("Sheet2").Select ActiveWindow.SelectedSheets.Delete Sheets("Sheet3").Select ActiveWindow.SelectedSheets.Delete With WBAlpha ..SendMail Recipients:=Array(RngEmailTest2.Value, RngEmailTest.Value) ..Close SaveChanges:=True Thanks, Simon (the MyRange.Value occurances are merely a date stamping for the previous month. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pasting into merged cells | Excel Discussion (Misc queries) | |||
Runtime error '1004' Cannot change part of a merged cell | Excel Programming | |||
Pasting into merged cells | Excel Discussion (Misc queries) | |||
Excel 1004 Error When Pasting Special W/ Macro | Excel Discussion (Misc queries) | |||
Error 1004 when pasting - Hair pulling time | Excel Programming |