Copy Existing Sheet and Paste Special Values with a New Name

Guzzlr · Jan 7, 2019

Hello All,
I’m having a few issues with the Code:

Code:

    Dim sht As Worksheet
    Dim ASY As Worksheet
    Dim DATA As Worksheet
    Set DATA = Sheets("DATA")
    DATA.Copy
       Selection.PasteSpecial Paste:=xlPasteValues
'    After:=DATA
            Columns("N:N").Select
    Selection.AutoFilter
    ActiveSheet.Range("$N$1:$N$3122").AutoFilter Field:=1, Criteria1:="RAMP"
    Sheets("DATA (2)").Name = "ASY"
 
    Set ASY = Sheets("ASY")
    ASY.Move After:=DATA
    ASY.Range("A1").Select

I wish to copy the sheet of DATA, then paste as Special Values to a new tab named ASY. Then filter Column N:N with the criteria of RAMP
Thanks for the help

mumps · Jan 9, 2019

My pleasure.

Copy Existing Sheet and Paste Special Values with a New Name

Guzzlr

Well-known Member

mumps

Well-known Member

Excel Facts

Similar threads

Forum statistics

Share this page

Copy Existing Sheet and Paste Special Values with a New Name

Guzzlr

Well-known Member

mumps

Well-known Member

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock