Welcome to the forum
Logic nya belum pernah ada data yang di filter dan dapat tercopy semuanya.
Jika memang kebutuhan nya utk mengcopy semua data, layaknya ga perlu lagi
difilter
Sub CopyAllData()
Sheets(1).Select
ActiveSheet.UsedRange.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
Cells.Select
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
End Sub
Sebaliknya, untuk mengcopy hanya data yang di filter berdasarkan kriteria maka
macronya spt ini:
Sub CopyAndFilter()
Sheets(1).Select
Selection.AutoFilter Field:=1, Criteria1:="*Under*", Operator:=xlOr _
, Criteria2:=""
Intersect(Columns("A:F"), ActiveSheet.UsedRange).Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = "CopyData"
Cells.Select
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
End Sub
Semoga membantu
---------------------------------
Buat sendiri desain eksklusif Messenger Pingbox Anda sekarang!
Membuat tempat chat pribadi di blog Anda sekarang sangatlah mudah
