VBA - Kopiowanie danych do zakładek

Описание: Plik na którym klikam, możesz pobrać tutaj:

https://learn.microsoft.com/pl-pl/pow...


Poniżej mój kod z VBA :-)

Sub Tabelki_z_rokiem()
'
' Tabelki_z_rokiem Makro
'
' Sheets.Add After:=ActiveSheet
' Sheets("Arkusz18").Select
' Sheets("Arkusz18").Name = "2020"
Sheets.Add(After:=Sheets(1)).Name = "2020"
Sheets("Sales").Select
ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=16, Criteria1:= _
"2020"
Range("Tabela1[#All]").Select
Selection.Copy
Sheets("2020").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sales").Select
' Sheets.Add After:=ActiveSheet
' Sheets("Arkusz19").Select
' Sheets("Arkusz19").Name = "2021"
Sheets.Add(After:=Sheets(2)).Name = "2021"
Sheets("Sales").Select
ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=16, Criteria1:= _
"2021"
Range("Tabela1[#All]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2021").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub