Copy cell to another sheet

Closed
mimic - Nov 2, 2009 at 01:15 PM
 Blocked Profile - Nov 3, 2009 at 07:17 AM
Hello,

I'm have a problem. How can i copy a cell with its properties like cell border to another cell(ActiveCell) in a different sheet.

I need a function for it , like

Function CopyCell( R as Range) as Long


End Function

so i can call it from a cell like =CopyCell(sheet1!A1)

this would copy the cell value with its borders from cell A1 on sheet1 to the ActiveCell(the cell that is calling the function) on another Sheet.


Please help!

1 response

Blocked Profile
Nov 3, 2009 at 07:17 AM
Dear Mimic,

Please consider using the below sample to have the problem solved:

If Sheets("Sheet1"). Range("I5").Value = "Sample" Then _
Range("I5").EntireRow.Copy Destination:=Sheets("Complete").Range("A1")


Thanks in advance.
-1