VBA paste special Values Issue

[thelad]

Hi,

I have the following code working and it moves data from certain columns to another column on a different sheet. The below code works but soe of these columns have formula's in them. Do you know how to move paste Special values

I tried the following as a test but it doesnt work.

Does nyone know whats to be done to paste special values using below code?

src.Range("B:B").Copy Destination:=trg.Range("A1").PasteSpecial

Sub Test()
    Dim src As Worksheet    Dim trg As Worksheet    Dim LastRow As Long

    Set src = ThisWorkbook.Worksheets("Test")    Set trg = ThisWorkbook.Worksheets("Copy")


    src.Range("B:B").Copy Destination:=trg.Range("A1")            src.Range("F:F").Copy Destination:=trg.Range("B1")

    src.Range("U:U").Copy Destination:=trg.Range("C1")    
    End Sub

 

[Norie]

Try this.

Sub Test()
Dim src As Worksheet    Dim trg As Worksheet    Dim LastRow As Long

    Set src = ThisWorkbook.Worksheets("Test")    
    Set trg = ThisWorkbook.Worksheets("Copy")


    src.Range("B:B").Copy 
    trg.Range("A1").PasteSpecial xlPasteValues

    src.Range("F:F").Copy
    trg.Range("B1").PasteSpecial xlPasteValues

    src.Range("U:U").Copy
    trg.Range("C1").PasteSpecial xlPasteValues

End Sub

 

[thelad]

Hi

That worked a treat. Thank you

 

[arunsjain]

Try this

Instead of copy and paste three time, copy and paste in one go

Sub Test()
Dim src As Worksheet    Dim trg As Worksheet    Dim LastRow As Long

    Set src = ThisWorkbook.Worksheets("Test")    
    Set trg = ThisWorkbook.Worksheets("Copy")


    src.Range("B:B,F:F,U:U").Copy 
    trg.Range("A1").PasteSpecial xlPasteValues

    Application.CutCopyMode = False


End Sub