can these 3 macros be combined into 1?

[sschwant]

the challenge seems to be referring back to the previously ActiveSheet . . . when toggling between CopyFrom range and Paste to range1, and PasteRange2 (two different copy to destinations).

thanks in advance for any ideas ...

Steve

crossposted: http://www.vbaexpress.com/forum/show...s-into-1-macro

this is similar to my previous post however I am in fall back mode and taking a different tack having no luck w/ the prevoius approach.
Having given up on embedding these in another sub entirely - per previous post - I now have these 3 macros working and doing all I intended to do - - just curious if it is possible to combine thm into 1?

thanks again

Please Login or Register  to view this content.

[protonLeah]

Macros 1 & 3 both test for "No", but for 1 and 2:

Please Login or Register  to view this content.

[sschwant]

Hi ProtonLeah,

Thank you very much for the suggestion. I ran it, but it omitted the 2nd part of If no, which should copy range to RR2 as well as RR1.

I edited as follows, but ran into a compile error at this line; Selection.Insert Shift:=xlToRight - - when it moves to RR2 sheet

error msg: "insert method of range class failed

Sub MacroRR100()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Application.Goto Reference:="RR_Table_Copy"
Selection.Copy

Please Login or Register  to view this content.

[StuCram]

How about this? … You have the working parts, this will combine them.

Please Login or Register  to view this content.

One advantage; it's easier to edit/change/fix each part if needed than worrying about interactions of statements in one large module. Divide and Conquer philosophy.

- Stu