Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why R/T error 1004 - 7 rows from the end of this code
Private Sub Workbook_Open()
ans = MsgBox("Would you like to CLEAR the WorkingReport Sheet at this time?", vbYesNo) If ans = vbNo Then MsgBox "The WorkingReport has not been updated, be CAREFUL!!" Exit Sub Else Worksheets("WorkingReport").Cells.ClearContents Worksheets("WorkingReport").Range("Z1").Copy 'copies an unformatted cell Worksheets("WorkingReport").Range("A1:Q300").Paste Special Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False With Worksheets("WorkingReport") .Range("A1").Select ' WHY R/T 1004 Here???????????? End With Application.CutCopyMode = False Worksheets("Start Here").Activate Range("C4").Select End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why R/T error 1004 - 7 rows from the end of this code
The sheet must first be activated.
With Worksheets('WorkingReport") .Activate .Range("A1").Select End With It is better to use a coding style that eliminates Activate and Select as much as possible, which is almost completely. "JMay" wrote: Private Sub Workbook_Open() ans = MsgBox("Would you like to CLEAR the WorkingReport Sheet at this time?", vbYesNo) If ans = vbNo Then MsgBox "The WorkingReport has not been updated, be CAREFUL!!" Exit Sub Else Worksheets("WorkingReport").Cells.ClearContents Worksheets("WorkingReport").Range("Z1").Copy 'copies an unformatted cell Worksheets("WorkingReport").Range("A1:Q300").Paste Special Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False With Worksheets("WorkingReport") .Range("A1").Select ' WHY R/T 1004 Here???????????? End With Application.CutCopyMode = False Worksheets("Start Here").Activate Range("C4").Select End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why R/T error 1004 - 7 rows from the end of this code
Another way:
application.goto Worksheets("WorkingReport").Range("A1"), scroll:=true '??? JMay wrote: Private Sub Workbook_Open() ans = MsgBox("Would you like to CLEAR the WorkingReport Sheet at this time?", vbYesNo) If ans = vbNo Then MsgBox "The WorkingReport has not been updated, be CAREFUL!!" Exit Sub Else Worksheets("WorkingReport").Cells.ClearContents Worksheets("WorkingReport").Range("Z1").Copy 'copies an unformatted cell Worksheets("WorkingReport").Range("A1:Q300").Paste Special Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False With Worksheets("WorkingReport") .Range("A1").Select ' WHY R/T 1004 Here???????????? End With Application.CutCopyMode = False Worksheets("Start Here").Activate Range("C4").Select End If End Sub -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why R/T error 1004 - 7 rows from the end of this code
Thanks JLGWhiz,
Rule#1 (somehow missed): If you use the SELECT method you must be ALREADY BE INSIDE the sheet of the Range you wish to SELECT. Is there a list of the other 6 DEADLIEST Sins (Rules) that I can MEMORIZE? Thanks, Jim "JLGWhiz" wrote: The sheet must first be activated. With Worksheets('WorkingReport") .Activate .Range("A1").Select End With It is better to use a coding style that eliminates Activate and Select as much as possible, which is almost completely. "JMay" wrote: Private Sub Workbook_Open() ans = MsgBox("Would you like to CLEAR the WorkingReport Sheet at this time?", vbYesNo) If ans = vbNo Then MsgBox "The WorkingReport has not been updated, be CAREFUL!!" Exit Sub Else Worksheets("WorkingReport").Cells.ClearContents Worksheets("WorkingReport").Range("Z1").Copy 'copies an unformatted cell Worksheets("WorkingReport").Range("A1:Q300").Paste Special Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False With Worksheets("WorkingReport") .Range("A1").Select ' WHY R/T 1004 Here???????????? End With Application.CutCopyMode = False Worksheets("Start Here").Activate Range("C4").Select End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
runtime error code 1004 | Excel Worksheet Functions | |||
runtime error 1004: how can i use rows. | Excel Programming | |||
Code Run-time error '1004' | Excel Programming | |||
VBA code to save gives error 1004??? | Excel Programming |