Anh chị nào xem giúp em đoạn code dưới đây được ko ạ,
e có nhiều sheet, trừ 5 sheet đầu ra, tính từ sheet thứ 6, em muốn bắt đầu từ dòng 13 trở đi ở cọt 11, nếu ko có gì thì xóa cả dòng, , sau đó copy toàn bộ dữ liệu bảng đó cũng từ dòng 13 đến hết rùi dán vào sheet 2PL2.
Em chỉ muốn xóa các dòng phía dưới dòng 13, nhưng chương trình lại xóa cả các dòng trên dòng 13, dẫn đến code vba của các đoạn sau của em chạy sai
Option Explicit
Sub A92_PHULUC2()
Dim J As Integer
On Error Resume Next
Sheets("2PL2").Range("P4:AG3258").Select
Selection.ClearContents
For J = 5 To Sheets.Count
Sheets(J).Activate
With ActiveSheet.Range("A13").CurrentRegion
.AutoFilter 11, Empty
.AutoFilter 9, ">0"
.Offset(1).Resize(, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
Range("A13").Select
Selection.CurrentRegion.Select
Selection.Offset(12, 0).Resize(Selection.Rows.Count - 1).Select '-1
Selection.Copy Destination:=Sheets("2PL2").Range("P4500").End(xlUp)(2)
End With
Next J
Sheets("2PL2").Activate
End Sub
e có nhiều sheet, trừ 5 sheet đầu ra, tính từ sheet thứ 6, em muốn bắt đầu từ dòng 13 trở đi ở cọt 11, nếu ko có gì thì xóa cả dòng, , sau đó copy toàn bộ dữ liệu bảng đó cũng từ dòng 13 đến hết rùi dán vào sheet 2PL2.
Em chỉ muốn xóa các dòng phía dưới dòng 13, nhưng chương trình lại xóa cả các dòng trên dòng 13, dẫn đến code vba của các đoạn sau của em chạy sai
Option Explicit
Sub A92_PHULUC2()
Dim J As Integer
On Error Resume Next
Sheets("2PL2").Range("P4:AG3258").Select
Selection.ClearContents
For J = 5 To Sheets.Count
Sheets(J).Activate
With ActiveSheet.Range("A13").CurrentRegion
.AutoFilter 11, Empty
.AutoFilter 9, ">0"
.Offset(1).Resize(, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
Range("A13").Select
Selection.CurrentRegion.Select
Selection.Offset(12, 0).Resize(Selection.Rows.Count - 1).Select '-1
Selection.Copy Destination:=Sheets("2PL2").Range("P4500").End(xlUp)(2)
End With
Next J
Sheets("2PL2").Activate
End Sub