Activecell Copy/Paste Syntax

[Yamezz]

Guys,

Can I accomplish the following code:

Range("TotalCost").Copy
Sheets("Programming").Select
ActiveCell.Offset(RowOffset:=0, ColumnOffset:=2).Activate
ActiveCell.Value = Sheets("Operations").Range("TotalCost")

with something like:

Sheets("Programming").ActiveCell.Offset(0,2) = Sheets("Operations").Range("TotalCost")

Thanks.

 

[Michael M]

If I follow you correctly, you'll need
If you are already the active cell in "Programming" you dont to refer to the sheet

ActiveCell.Offset(0, 2) = Sheets("Operations").Range("TotalCost").Value

 

[Yamezz]

Thanks Michael. I was thinking I would save processing time by not selecting the Programming sheet, but looks like I have to.

Funny how sometimes it doesn't seem to matter if one has 'redundant' code (such as Sheets("Programming")) and sometime it does...

 

[Michael M]

you don't have to Select the programming sheet !
But with Activecell in the syntax, I assumed you were there !
You need only to refer to a range in Sheets "Programming"....eg..

Sheets("Programming").Range("A1").Offset(0,2).value = Sheets("Operations").Range("TotalCost").value

 

[Yamezz]

The trouble is the code steps down a column in a Do While IsEmpty(ActiveCell) = False loop; so I guess to use a Range I would have to have a different kind of loop to step through the list. I imagine it would be more complicated programming than my basic ability. The code goes down the list, uses the value to filter another sheet, then copies the SUBTOTAL values to the same row, but 2 columns over.