Copy paste special

[STIRRELL]

Hi,
I am using copy-paste the values from an autofilter onto another sheet. But for some reason, it is only copying and pasting the first row over and over. Please help.

Range("A1:Z5000").SpecialCells(xlCellTypeVisible).Copy
Worksheets("20").Range("A1:Z5000").PasteSpecial Paste:=xlPasteValues



thank you,
Sharon

 

[JasallBcn]

Good, the code works, it would be best if you upload the rest of the code, greetings

 

[STIRRELL]

Sorry- when I run the code the paste only copies the first row over and over again.

Sub FILTER_COPY_PASTE()
Worksheets("Certify").Select



With ActiveSheet.Range("A1")
.AutoFilter Field:=6, Criteria1:="20"
.AutoFilter Field:=25, Criteria1:="X"
End With

Range("A1:Z5000").SpecialCells(xlCellTypeVisible).Copy
Worksheets("20").Range("A1:Z5000").PasteSpecial Paste:=xlPasteValues

Worksheets("Certify").AutoFilterMode = False
End Sub

 

[STIRRELL]

I should say pastes only the first row over and over again.

 

[Fluff]

Try it like

Worksheets("20").Range("A1").PasteSpecial Paste:=xlPasteValues

 

[JasallBcn]

Hello, The code applies an autofilter on column F = 20 and column T = X , check the data in your table.

Sub FILTER_COPY_PASTE()
Worksheets("Certify").Select

With ActiveSheet.Range("A1")
.AutoFilter Field:=6, Criteria1:="20" ' column F = 20
.AutoFilter Field:=25, Criteria1:="X" ' column Y = X
End With

Range("A1:Z5000").SpecialCells(xlCellTypeVisible).Copy
Worksheets("20").Range("A1:z5000").PasteSpecial Paste:=xlPasteValues

Worksheets("Certify").AutoFilterMode = False
Application.CutCopyMode = False

End Sub

 

[Fluff]

The code applies an autofilter on column F = 20 and column T = X

You sure about that or is it a typo?

Also that will not prevent the problem the OP is getting.

 

[JasallBcn]

the user says it only copies one cell.
You can recreate the code, it works correctly, it only remains that the data does not contain the filter criteria.
Another way :

Sub FILTER_COPY_PASTE()
 Application.ScreenUpdating = False
    With Worksheets("Certify").Range("A1").CurrentRegion
        .AutoFilter Field:=6, Criteria1:="20"
        .AutoFilter Field:=25, Criteria1:="X"
        
        Worksheets("20").Range("A1").CurrentRegion.Delete
        .SpecialCells(12).Copy Worksheets("20").Range("A1")
        .AutoFilter
    End With
 Application.ScreenUpdating = True
End Sub

File1 , File2

 

[STIRRELL]

Im sorry but that is stopping at the first autofilter when I try to run the macro.
.AutoFilter Field:=6, Criteria1:="20"

 

[JasallBcn]

press F5 to continue