Sửa sai code Filter dựa vào dòng cuối cùng, filter cell trống rồi delete

AnhThu-1976 · 10/1/19

Em có Record macro rồi sửa code lại nhưng code sau khi chạy lần đầu thì đúng, rồi tiếp tục cho chạy lần thứ 2, ... thì cho kết quả sai (bấm vào nút XÓA liên tiếp nhiều lần)
Mục đích của em như sau:
1/ Xác định dòng cuối ở cột của cột D => mục đích là để Filter từ dòng 15 đến dòng cuối cột D (chỉ filter đến dòng cuối cùng của cột D)
2/ Filer cột F, nếu cell trống thì delete cả dòng
Em thử nghiệm lần đầu code chạy đúng nhưng tiếp tục chạy code thì kết quả sai
Nhờ anh/chị & các bạn hướng dẫn chỗ sai
Xin cảm ơn!

Mã:

Sub Filter_Xoa()
    On Error Resume Next
    Dim lr As Long
    lr = Range("D" & Rows.Count).End(xlUp).Row
    MsgBox lr
    If lr < 15 Then MsgBox lr: Exit Sub
    Range("A14:N" & lr).Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$14:$N$" & lr).AutoFilter Field:=6, Criteria1:="="
    Rows("15:" & lr).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.ShowAllData
End Sub

AnhThu-1976 · 11/1/19

Anh chị phân tích giúp em tìm lỗi sai của bài trên ạ!

Ba Tê · 11/1/19

AnhThu-1976 đã viết:
Anh chị phân tích giúp em tìm lỗi sai của bài trên ạ!

Không có thời gian để phân tích đâu, bạn xài tạm cái này coi có chạy được không.

PHP:

Sub Xoa()
Dim I As Long, R As Long
R = Range("D50000").End(xlUp).Row
If R < 15 Then Exit Sub
For I = R To 15 Step -1
    If Range("F" & I) = Empty Then Range("F" & I).EntireRow.Delete
Next I
End Sub

snow25 · 11/1/19

Ba Tê đã viết:
Không có thời gian để phân tích đâu, bạn xài tạm cái này coi có chạy được không.

PHP:

Sub Xoa() Dim I As Long, R As Long R = Range("D50000").End(xlUp).Row If R < 15 Then Exit Sub For I = R To 15 Step -1 If Range("F" & I) = Empty Then Range("F" & I).EntireRow.Delete Next I End Sub

Bạn này không dùng kiểu này đâu thầy ạ.Vì nó lâu.Lần trước giới thiệu rồi.Không dùng.

HieuCD · 11/1/19

AnhThu-1976 đã viết:
Em có Record macro rồi sửa code lại nhưng code sau khi chạy lần đầu thì đúng, rồi tiếp tục cho chạy lần thứ 2, ... thì cho kết quả sai (bấm vào nút XÓA liên tiếp nhiều lần)
Mục đích của em như sau:
1/ Xác định dòng cuối ở cột của cột D => mục đích là để Filter từ dòng 15 đến dòng cuối cột D (chỉ filter đến dòng cuối cùng của cột D)
2/ Filer cột F, nếu cell trống thì delete cả dòng
Em thử nghiệm lần đầu code chạy đúng nhưng tiếp tục chạy code thì kết quả sai
Nhờ anh/chị & các bạn hướng dẫn chỗ sai
Xin cảm ơn!

Mã:

Sub Filter_Xoa() On Error Resume Next Dim lr As Long lr = Range("D" & Rows.Count).End(xlUp).Row MsgBox lr If lr < 15 Then MsgBox lr: Exit Sub Range("A14:N" & lr).Select Selection.AutoFilter ActiveSheet.Range("$A$14:$N$" & lr).AutoFilter Field:=6, Criteria1:="=" Rows("15:" & lr).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Delete Shift:=xlUp ActiveSheet.ShowAllData End Sub

Dùng code mới

Mã:

Sub Filter_Xoa()
    Dim lr As Long, i As Long
    lr = Range("D" & Rows.Count).End(xlUp).Row
    MsgBox lr
    If lr < 15 Then MsgBox lr: Exit Sub
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Range("A14:N" & lr).AutoFilter Field:=6, Criteria1:="="
    On Error Resume Next
    i = Range("A15:N" & lr).SpecialCells(xlCellTypeVisible).Rows.Count
    If Err.Number = 0 Then Range("A15:N" & lr).Delete Shift:=xlUp
    ActiveSheet.ShowAllData
End Sub

AnhThu-1976 · 11/1/19

snow25 đã viết:
Bạn này không dùng kiểu này đâu thầy ạ.Vì nó lâu.Lần trước giới thiệu rồi.Không dùng.

Code là do record nên tôi muốn tìm chỗ sai đó mà!

AnhThu-1976 · 11/1/19

Ba Tê đã viết:
For I = R To 15 Step -1

Cho em hỏi, em thấy 1 code có chữ step (bước nhảy) vậy mấy số -1; 2 ... có ý nghỉa như thế nào. Em cảm ơn!

snow25 · 11/1/19

AnhThu-1976 đã viết:
Cho em hỏi, em thấy 1 code có chữ step (bước nhảy) vậy mấy số -1; 2 ... có ý nghỉa như thế nào. Em cảm ơn!

Bước nhảy -1 là đếm ngược đó.Từ cao xuống thấp.

tam888 · 11/1/19

AnhThu-1976 đã viết:
Anh chị phân tích giúp em tìm lỗi sai của bài trên ạ!

thêm dòng này vào trước lệnh xóa (delete)
MsgBox "selection.address=" & Selection.Address

sẽ hiểu ngay (sau khi chạy lần 1 lần 2),

Vì xóa lần 2, thì vùng được filter ẩn hết (không có dòng thỏa mãn điều kiện trống) --> cells visible không có --> vùng chọn vẫn giữ nguyên nên bị xóa sạch

Bài đã được tự động gộp: 11/1/19

snow25 đã viết:
Bạn này không dùng kiểu này đâu thầy ạ.Vì nó lâu.Lần trước giới thiệu rồi.Không dùng.

Tôi nghĩ người hỏi này muốn học hỏi, tự học - nên đó là hướng tốt, hơn một số chỉ thích có bánh bao ngay trị đói

Quang_Hải · 11/1/19

AnhThu-1976 đã viết:
Em có Record macro rồi sửa code lại nhưng code sau khi chạy lần đầu thì đúng, rồi tiếp tục cho chạy lần thứ 2, ... thì cho kết quả sai (bấm vào nút XÓA liên tiếp nhiều lần)
Mục đích của em như sau:
1/ Xác định dòng cuối ở cột của cột D => mục đích là để Filter từ dòng 15 đến dòng cuối cột D (chỉ filter đến dòng cuối cùng của cột D)
2/ Filer cột F, nếu cell trống thì delete cả dòng
Em thử nghiệm lần đầu code chạy đúng nhưng tiếp tục chạy code thì kết quả sai
Nhờ anh/chị & các bạn hướng dẫn chỗ sai
Xin cảm ơn!

Mã:

Sub Filter_Xoa() On Error Resume Next Dim lr As Long lr = Range("D" & Rows.Count).End(xlUp).Row MsgBox lr If lr < 15 Then MsgBox lr: Exit Sub Range("A14:N" & lr).Select Selection.AutoFilter ActiveSheet.Range("$A$14:$N$" & lr).AutoFilter Field:=6, Criteria1:="=" Rows("15:" & lr).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Delete Shift:=xlUp ActiveSheet.ShowAllData End Sub

Sửa vầy nha

Mã:

Sub Filter_Xoa()
    On Error Resume Next
    ActiveSheet.ShowAllData
    Dim lr As Long
    lr = Range("D" & Rows.Count).End(xlUp).Row
    MsgBox lr
    If lr < 15 Then MsgBox lr: Exit Sub
    Range("I14:I" & lr).SpecialCells(4).EntireRow.Delete    
End Sub

Sửa sai code Filter dựa vào dòng cuối cùng, filter cell trống rồi delete

AnhThu-1976

Thành viên tích cực

File đính kèm

AnhThu-1976

Thành viên tích cực

Ba Tê

Cạo Rồi Khỏi Gội

snow25

Thành viên gạo cội

HieuCD

Chuyên gia GPE

AnhThu-1976

Thành viên tích cực

AnhThu-1976

Thành viên tích cực

snow25

Thành viên gạo cội

tam888

Thành viên tích cực

Quang_Hải

Thành viên gạo cội

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian