Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy from one worksheet to another
I have the following macro. I desire that it copy from "Orders" to
"Pofit_Loss_Statement" the value in "ID" (a drop-down list) and paste it into the first blank line in the Profit_Loss_Statement. The code works fine as long as I stay on the Orders worksheet. Once I inserted the code to switch to the Profit_Loss_Statement, I started getting Runtime Error 1004. What am I doing wrong? Sub SelectItem() ' ' SelectItem Macro ' Macro recorded 05/20/2007 by EuGene C. White, CNA ' Worksheets("Orders").Activate ' extra code Range("ID").Select Selection.Copy Worksheets("Profit_Loss_Statement").Activate Range("A3").Select Do Until Cells(ActiveCell.Row + 1, 1) = "" If ActiveCell = "" Then Cells(ActiveCell.Row + 1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Else Cells(ActiveCell.Row + 1, 1).Select End If Loop Cells(ActiveCell.Row + 1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy & paste cells fr open worksheet then close the worksheet | Excel Programming | |||
Unable to Insert Worksheet/Move and copy worksheet Excel 2003 | Excel Worksheet Functions | |||
copy range on every worksheet (diff names) to a master worksheet (to be created) | Excel Programming | |||
copy range on every worksheet (diff names) to a master worksheet (to be created) | Excel Programming | |||
Code to copy range vs Copy Entire Worksheet - can't figure it out | Excel Programming |