| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Format Error
Hi,
The following code gives me a run time error 1004 Select method of range class failed. Would you have any ideas why? It came from the recorder as well! Thanks for your help LiAD Sheets("6").Select Range("D10:L23").Select Selection.Copy Sheets("1").Select Range("D10").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Sheets("6").Select Range("A1").Select Sheets("1").Select |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy Format Error
where does the code break??
Sheets("6").Range("D10:L23")..Copy Sheets("1").Range("D10").PasteSpecial Paste:=xlPasteFormats, peration:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False "LiAD" wrote: Hi, The following code gives me a run time error 1004 Select method of range class failed. Would you have any ideas why? It came from the recorder as well! Thanks for your help LiAD Sheets("6").Select Range("D10:L23").Select Selection.Copy Sheets("1").Select Range("D10").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Sheets("6").Select Range("A1").Select Sheets("1").Select |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy Format Error
typo two dots instead of one, sorry
Sheets("6").Range("D10:L23").Copy 'this line was at fault Sheets("1").Range("D10").PasteSpecial Paste:=xlPasteFormats, peration:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False "Patrick Molloy" wrote: where does the code break?? Sheets("6").Range("D10:L23")..Copy Sheets("1").Range("D10").PasteSpecial Paste:=xlPasteFormats, peration:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False "LiAD" wrote: Hi, The following code gives me a run time error 1004 Select method of range class failed. Would you have any ideas why? It came from the recorder as well! Thanks for your help LiAD Sheets("6").Select Range("D10:L23").Select Selection.Copy Sheets("1").Select Range("D10").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Sheets("6").Select Range("A1").Select Sheets("1").Select |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy Format Error
Works now.
THanks "Patrick Molloy" wrote: typo two dots instead of one, sorry Sheets("6").Range("D10:L23").Copy 'this line was at fault Sheets("1").Range("D10").PasteSpecial Paste:=xlPasteFormats, peration:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False "Patrick Molloy" wrote: where does the code break?? Sheets("6").Range("D10:L23")..Copy Sheets("1").Range("D10").PasteSpecial Paste:=xlPasteFormats, peration:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False "LiAD" wrote: Hi, The following code gives me a run time error 1004 Select method of range class failed. Would you have any ideas why? It came from the recorder as well! Thanks for your help LiAD Sheets("6").Select Range("D10:L23").Select Selection.Copy Sheets("1").Select Range("D10").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Sheets("6").Select Range("A1").Select Sheets("1").Select |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy Format Error
Which of the selects causes the problem? It should be highlighted in yellow
if you debug. I'd guess that either "1" or "6" doesn't exist as a sheet, maybe it's been renamed. "LiAD" wrote: Hi, The following code gives me a run time error 1004 Select method of range class failed. Would you have any ideas why? It came from the recorder as well! Thanks for your help LiAD Sheets("6").Select Range("D10:L23").Select Selection.Copy Sheets("1").Select Range("D10").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Sheets("6").Select Range("A1").Select Sheets("1").Select |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Lock Cell Format - Allow copy and paste of data without format change | Excel Worksheet Functions | |||
| Copy/Paste dates from CSV file - date format error? | Excel Programming | |||
| A visual basic value copy BUG?? - accounting format has copy problem!! | Excel Programming | |||
| Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming | |||
| How copy format, font, color and border without copy/paste? | Excel Programming | |||
Hybrid Mode
