Trouble with a macro - copying cells
Not tested, but try this
Set oCell = Columns("A:A").Find("PKG")
If Not oCell Is Nothing Then
Range("A" & oCell.Row).Copy Worksheets("Labor Costing").Range("A24")
Range("B" & oCell.Row).Copy Worksheets("Labor Costing").Range("C24")
Range("L & oCell.Row).Copy Worksheets("Labor Costing").Range("F24")
End If
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"ToddG" wrote in message
...
Having trouble coming up with a macro to do the following:
If any cell in column A of sheet "Export" = "PKG",
Copy the cells in columns A, B, & L in that row to cells
A, C, & F of sheet "Labor Costing" respectively, starting
at Row 24 (of sheet "Labor Costing").
Kind of hard to explain, if you need more info let me know.
Any help would be appreciated,
TIA,
Todd
|