| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste-Special - R/T 1004 help needed
Code almost working..
Sub Foo() Set rng = Range("Mylist") 'Range("A4:F10") Set nrng = rng.Offset(4).Resize(rng.Rows.Count - 4) 'Range("A8:F10") nrng.Cut nrng.Offset(1).Select Selection(1).Select ActiveCell.Paste xlPasteValues '''<<< Runtime 1004 here Application.CutCopyMode = False End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Paste-Special - R/T 1004 help needed
Sorry,
I forgot to use the Recorded, which showed me I needed ActiveSheet.Paste Tks, "Jim May" wrote in message news:vi%Lf.185387$oG.110762@dukeread02... Code almost working.. Sub Foo() Set rng = Range("Mylist") 'Range("A4:F10") Set nrng = rng.Offset(4).Resize(rng.Rows.Count - 4) 'Range("A8:F10") nrng.Cut nrng.Offset(1).Select Selection(1).Select ActiveCell.Paste xlPasteValues '''<<< Runtime 1004 here Application.CutCopyMode = False End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Paste and Paste Special No Longer Working - Excel 2003 | Excel Discussion (Misc queries) | |||
| In Excel: add a Paste-Special Option to paste IN REVERSE ORDER. | Excel Worksheet Functions | |||
| Excel 1004 Error When Pasting Special W/ Macro | Excel Discussion (Misc queries) | |||
| How do I capture user paste action and convert to Paste Special | Excel Programming | |||
| Dynamic Copy/Paste Special Formulas/Paste Special Values | Excel Programming | |||
Linear Mode
