Using copy and destination formatting
Neither of these solutions (yours or the one below yours) transfers a
hyperlink in the cell properly but the formatting works. Any more thots?
"Jacob Skaria" wrote:
Use PasteSpecial (vaues) as below....Note that one line is remarked
If .Cells(r, 7) = 2 Then
Set cophyp = .Cells(r, 4)
With Worksheets("Home Page")
Set DestCell = .Cells(.Rows.Count, "G").End(xlUp).Offset(1, 0)
'cophyp.Copy Destination:=DestCell
cophyp.Copy
destcell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
If this post helps click Yes
---------------
Jacob Skaria
"Jeff S." wrote:
I am using the following code to copy cells from page to page.
I would like them to match "Home Page" formatting. How can I do this?
If .Cells(r, 7) = 2 Then
Set cophyp = .Cells(r, 4)
With Worksheets("Home Page")
Set DestCell = .Cells(.Rows.Count, "G").End(xlUp).Offset(1, 0)
cophyp.Copy Destination:=DestCell
End With
End If
Thx, Jeff
|