Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Why does this Macro not work - cut, copy and paste
Morning from a overcast South Africa,
I have this macro that is supposed to copy a worksheet, paste the values and formats onto a new worksheet and then send the new worksheet via e-mail. Can you please identify why when copy and pasted onto the new worksheet ,the calculated cells all have #REF!. Here is the macro that is causing the problem. Sub EMail() 'Sub UnprotectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Unprotect Password:="Drivers" Next n Application.ScreenUpdating = True 'End Sub Dim wb As Workbook Application.ScreenUpdating = False ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Set wb = ActiveWorkbook With wb ..SendMail "", _ ThisWorkbook.Names("Spreadsheet_Name").RefersToRan ge.Value 'Range ("E2") & " Payroll MonthEnd figures" '"This is the Subject line" ..Close False End With Application.ScreenUpdating = True 'End Sub 'Sub ProtectAllSheets() Application.ScreenUpdating = False 'Dim n As Single For n = 1 To Sheets.Count Sheets(n).Protect Password:="Drivers" Next n Application.ScreenUpdating = True End Sub Waiting in anticipation. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Why does this Macro not work - cut, copy and paste
After your paste special | values line, I think you will need this:
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _ SkipBlanks:= False, Transpose:=False Application.CutCopyMode = False Hope this helps. Pete On Oct 11, 9:54 am, Sunnyskies wrote: Morning from a overcast South Africa, I have this macro that is supposed to copy a worksheet, paste the values and formats onto a new worksheet and then send the new worksheet via e-mail. Can you please identify why when copy and pasted onto the new worksheet ,the calculated cells all have #REF!. Here is the macro that is causing the problem. Sub EMail() 'Sub UnprotectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Unprotect Password:="Drivers" Next n Application.ScreenUpdating = True 'End Sub Dim wb As Workbook Application.ScreenUpdating = False ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Set wb = ActiveWorkbook With wb .SendMail "", _ ThisWorkbook.Names("Spreadsheet_Name").RefersToRan ge.Value 'Range ("E2") & " Payroll MonthEnd figures" '"This is the Subject line" .Close False End With Application.ScreenUpdating = True 'End Sub 'Sub ProtectAllSheets() Application.ScreenUpdating = False 'Dim n As Single For n = 1 To Sheets.Count Sheets(n).Protect Password:="Drivers" Next n Application.ScreenUpdating = True End Sub Waiting in anticipation. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Why does this Macro not work - cut, copy and paste
Afternoon Pete,
I inserted the script you provided between the lines: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False and Set wb = ActiveWorkbook And unfortunately still get the #REF! on the new worksheet once I had opened it up. Any other possible solution? "Pete_UK" wrote: After your paste special | values line, I think you will need this: Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _ SkipBlanks:= False, Transpose:=False Application.CutCopyMode = False Hope this helps. Pete On Oct 11, 9:54 am, Sunnyskies wrote: Morning from a overcast South Africa, I have this macro that is supposed to copy a worksheet, paste the values and formats onto a new worksheet and then send the new worksheet via e-mail. Can you please identify why when copy and pasted onto the new worksheet ,the calculated cells all have #REF!. Here is the macro that is causing the problem. Sub EMail() 'Sub UnprotectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Unprotect Password:="Drivers" Next n Application.ScreenUpdating = True 'End Sub Dim wb As Workbook Application.ScreenUpdating = False ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Set wb = ActiveWorkbook With wb .SendMail "", _ ThisWorkbook.Names("Spreadsheet_Name").RefersToRan ge.Value 'Range ("E2") & " Payroll MonthEnd figures" '"This is the Subject line" .Close False End With Application.ScreenUpdating = True 'End Sub 'Sub ProtectAllSheets() Application.ScreenUpdating = False 'Dim n As Single For n = 1 To Sheets.Count Sheets(n).Protect Password:="Drivers" Next n Application.ScreenUpdating = True End Sub Waiting in anticipation. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Why does this Macro not work - cut, copy and paste
I suggest you step through the macro using F8 to check what is
happening at each point - it looks as if you are not pasting all the values. Hope this helps. Pete On Oct 11, 1:31 pm, Sunnyskies wrote: Afternoon Pete, I inserted the script you provided between the lines: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False and Set wb = ActiveWorkbook And unfortunately still get the #REF! on the new worksheet once I had opened it up. Any other possible solution? "Pete_UK" wrote: After your paste special | values line, I think you will need this: Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _ SkipBlanks:= False, Transpose:=False Application.CutCopyMode = False Hope this helps. Pete On Oct 11, 9:54 am, Sunnyskies wrote: Morning from a overcast South Africa, I have this macro that is supposed to copy a worksheet, paste the values and formats onto a new worksheet and then send the new worksheet via e-mail. Can you please identify why when copy and pasted onto the new worksheet ,the calculated cells all have #REF!. Here is the macro that is causing the problem. Sub EMail() 'Sub UnprotectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Unprotect Password:="Drivers" Next n Application.ScreenUpdating = True 'End Sub Dim wb As Workbook Application.ScreenUpdating = False ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Set wb = ActiveWorkbook With wb .SendMail "", _ ThisWorkbook.Names("Spreadsheet_Name").RefersToRan ge.Value 'Range ("E2") & " Payroll MonthEnd figures" '"This is the Subject line" .Close False End With Application.ScreenUpdating = True 'End Sub 'Sub ProtectAllSheets() Application.ScreenUpdating = False 'Dim n As Single For n = 1 To Sheets.Count Sheets(n).Protect Password:="Drivers" Next n Application.ScreenUpdating = True End Sub Waiting in anticipation.- Hide quoted text - - Show quoted text - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formulas don't work after copy/paste from Lotus 1-2-3 97 (Excel 20 | Excel Discussion (Misc queries) | |||
copy paste between two instances does not work | Excel Discussion (Misc queries) | |||
Copy and paste between windows in excel 2003 will not work | Excel Worksheet Functions | |||
Copy paste in excel dont work properly | Excel Discussion (Misc queries) | |||
Data validation does not seem to work with copy/paste | Excel Discussion (Misc queries) |