| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy pasted name range
Having a problem with the following. It errors out but I'm not sure why?
Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy pasted name range
Try this...
Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Name = "Analysis Stats" With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select ActiveWindow.Zoom = 70 .Cells.Interior.ColorIndex = 2 .Range("A2").Select .Move After:=Sheets(3) End With Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- HTH... Jim Thomlinson "pgarcia" wrote: Having a problem with the following. It errors out but I'm not sure why? Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy pasted name range
Sorry I took so long to write back.
I get: Run-time error '1004': Application-defined or object-defined error Thanks "Jim Thomlinson" wrote: Try this... Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Name = "Analysis Stats" With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select ActiveWindow.Zoom = 70 .Cells.Interior.ColorIndex = 2 .Range("A2").Select .Move After:=Sheets(3) End With Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- HTH... Jim Thomlinson "pgarcia" wrote: Having a problem with the following. It errors out but I'm not sure why? Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy pasted name range
I'm not Jim, but if I were, I'd ask what line caused the error.
If it's this area: With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select Try correcting the spelling of Destination. pgarcia wrote: Sorry I took so long to write back. I get: Run-time error '1004': Application-defined or object-defined error Thanks "Jim Thomlinson" wrote: Try this... Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Name = "Analysis Stats" With Sheets("Analysis Stats") Sheets("Analysis Graphs").Range("BetsyR1").Copy Desintation:=.Range("A1") .Select ActiveWindow.Zoom = 70 .Cells.Interior.ColorIndex = 2 .Range("A2").Select .Move After:=Sheets(3) End With Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- HTH... Jim Thomlinson "pgarcia" wrote: Having a problem with the following. It errors out but I'm not sure why? Thanks FYI, the sheets that are beeing delete are hiden, so is "Analysis Graphs". Sheets("Betsy").Select Range("B5").Select Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Analysis").Delete Sheets("David").Delete Sheets("Jackie").Delete Sheets("Jenni").Delete Sheets("Julio").Delete Sheets("Tally").Delete Sheets.Add Sheets("Sheet1").Select Sheets("Sheet1").Name = "Analysis Stats" Application.DisplayAlerts = True Sheets("Analysis Graphs").Select Range("BetsyR1").Select Selection.Copy Sheets("Analysis Stats").Select ActiveSheet.Paste ActiveWindow.Zoom = 70 Cells.Select Selection.Interior.ColorIndex = 2 Range("A2").Selec Sheets("Analysis Stats").Move After:=Sheets(3) Sheets("Analysis Graphs").Delete Application.DisplayAlerts = True -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| URGENT: #REF! ERROR WHEN COPY AND PASTED | Excel Programming | |||
| copy active cell value,find the pasted value in different worksheet | Excel Worksheet Functions | |||
| How do I determine the Range that was pasted | Excel Programming | |||
| Copy enabled / Pasted disabled | Excel Programming | |||
| How to copy paste from Excel and leave the pasted data editable? | Excel Worksheet Functions | |||
Hybrid Mode
