CODE Xóa dòng có giá trị (1 người xem)

[lhthai]

Em có đoạn code xóa dòng có giá trị
Bây giờ muốn thêm điều kiện nếu cột D không có giá trị thì thoát sub còn có giá trị thì thực hiện lệnh DEL

 

[viehoai]

Em có đoạn code xóa dòng có giá trị
Bây giờ muốn thêm điều kiện nếu cột D không có giá trị thì thoát sub còn có giá trị thì thực hiện lệnh DEL

Thêm câu lệnh On Error Resume Next xem thế nào

 

[Quang_Hải]

Em có đoạn code xóa dòng có giá trị
Bây giờ muốn thêm điều kiện nếu cột D không có giá trị thì thoát sub còn có giá trị thì thực hiện lệnh DEL

1 cách khác

Private Sub CommandButton1_Click()
If [D65536].End(3).Row < 4 Then Exit Sub
With Range([D4], [D5000].End(3))
   .SpecialCells(2).EntireRow.Delete
End With
End Sub

 

[lhthai]

1 cách khác

Private Sub CommandButton1_Click()
If [D65536].End(3).Row < 4 Then Exit Sub
With Range([D4], [D5000].End(3))
   .SpecialCells(2).EntireRow.Delete
End With
End Sub

Trường hợp em để nút lệnh bên sheet khác thì thực hiện không được
Anh chỉ giúp nha.

 

[Kiều Mạnh]

Trường hợp em để nút lệnh bên sheet khác thì thực hiện không được
Anh chỉ giúp nha.

đơn giản thì làm như sau ở sheet nào cũng chạy tốt .... lưu ý chỉ chạy một lần lần 2 báo lỗi

Private Sub CommandButton1_Click()
    Sheet1.Range("D4:D65536").SpecialCells(2).EntireRow.Delete
End Sub