View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bob Umlas Bob Umlas is offline
external usenet poster
 
Posts: 301
Default code is not selecting correct range

Is this stored in a regular module (as opposed to a sheet module)?
And you can streamline the code by doing no selecting:
For example, change this:
Sheets("A4_Targets").Select
Range("f13:f28").Select
Selection.Copy
Sheets("A1_Scenario Input").Select
Range("cq331").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

to this:
Sheets("A4_Targets").Range("f13:f28").Copy
Sheets("A1_Scenario Input").Range("cq331").PasteSpecial
Paste:=xlPasteValues

Bob Umlas
Excel MVP

"SteveC" wrote in message
...
I have a strange problem -- the macro is not selecting, copying or pasting
to
the correct ranges. When I do a F8 step by step debug review, it seems as
if
it actually skips the Range(...).Select code.

The new select and paste ranges that are not be selected properly were
edited from previously coded ranges -- the macro is still selecting the
old
ranges but the ranges are not coded in this macro! how do I fix this?
thanks.

Steve

Sub Set_Price()
'
' Set_Buyback_Price Macro

Sheets("A4_Targets").Select
Range("f13:f28").Select
Selection.Copy
Sheets("A1_Scenario Input").Select
Range("cq331").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Sheets("A4_Targets").Select
Range("f36:f51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A1_Scenario Input").Select
Range("cr301").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False