Paste values after filter/copy

[redspanna]

Hi all

I'm using this bit of code found online to copy/paste a certain filtered row into another sheet.
How to change the code so thaat it pastes the copied VALUES?

[/B]
 Set copyRange = src.Range("G2:G" & lastRow)
        copyRange.SpecialCells(xlCellTypeVisible).Copy tgt.Range("S3")
[B]

Thanks in advance

 

[johnny51981]

Here is the code that I use to do that very thing. However, you may need to include the Select of your range in order for it to "highlight" the visible cells.

Range("TASK[[Assigned to Accepted]:[Fiscal Month]]").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

 

[Fluff]

How about

 Set copyRange = src.Range("G2:G" & lastRow)
      copyRange.SpecialCells(xlCellTypeVisible).Copy
      tgt.Range("S3").PasteSpecial xlPasteValues

 

[redspanna]

How about

 Set copyRange = src.Range("G2:G" & lastRow)
      copyRange.SpecialCells(xlCellTypeVisible).Copy
      tgt.Range("S3").PasteSpecial xlPasteValues

Thanks @Fluff - exactly what I needed

 

[Fluff]

You're welcome & thanks for the feedback.