Hi,
I am writing some code to copy and paste a range from one sheet to another but the code is bringing the formula through to the new destination whereas I only need the values.
Current code:
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Dim Arange As Range, Drange As Range, Crange As Range, Trange As Range
Set Arange = ws.Range("A3:A" & lastrow)
Set Trange = ws.Range("B3:B" & lastrow)
Set Crange = ws.Range("D3:D" & lastrow)
Arange.SpecialCells(xlCellTypeVisible).Copy jnl.Range("C" & lastrow2)
Crange.SpecialCells(xlCellTypeVisible).Copy jnl.Range("F" & lastrow2)
Trange.SpecialCells(xlCellTypeVisible).Copy jnl.Range("T" & lastrow2)
How do I tweak this to transfer only values?
[/FONT]
I am writing some code to copy and paste a range from one sheet to another but the code is bringing the formula through to the new destination whereas I only need the values.
Current code:
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Dim Arange As Range, Drange As Range, Crange As Range, Trange As Range
Set Arange = ws.Range("A3:A" & lastrow)
Set Trange = ws.Range("B3:B" & lastrow)
Set Crange = ws.Range("D3:D" & lastrow)
Arange.SpecialCells(xlCellTypeVisible).Copy jnl.Range("C" & lastrow2)
Crange.SpecialCells(xlCellTypeVisible).Copy jnl.Range("F" & lastrow2)
Trange.SpecialCells(xlCellTypeVisible).Copy jnl.Range("T" & lastrow2)
How do I tweak this to transfer only values?
[/FONT]