Nhờ các bạn giúp dùm code xóa dòng theo điều kiện

[nguyen trunghoa]

Mình có tập làm 1 file excel theo địa chỉ sau:
https://drive.google.com/file/d/125DvUueMFx4H1rjbx3TC4zNAM81A7xs-/view?usp=sharing
Khi các bạn mở lên thì gặp sheet "InPhancong", mình nhờ các bạn giúp dùm viết code VBA để xóa các dòng bên dưới với điều kiện là những dòng nào có cột B bằng 0. Cảm ơn nhiều.
Mình có tải file lên kèm theo luôn. Mong được giúp đỡ sớm, mình cần gấp.

 

[syquyen1987]

Mình có tập làm 1 file excel theo địa chỉ sau:
https://drive.google.com/file/d/125DvUueMFx4H1rjbx3TC4zNAM81A7xs-/view?usp=sharing
Khi các bạn mở lên thì gặp sheet "InPhancong", mình nhờ các bạn giúp dùm viết code VBA để xóa các dòng bên dưới với điều kiện là những dòng nào có cột B bằng 0. Cảm ơn nhiều.
Mình có tải file lên kèm theo luôn. Mong được giúp đỡ sớm, mình cần gấp.

Bạn tham khảo Code dưới đây nhé

Sub XoaDongCoDieuKien()

Dim i

i = 10



Do While Len(Cells(i, 2)) > 0

If Cells(i, 2) = 0 Then

Cells(i, 2).ClearContents

End If

i = i + 1

Loop

i = Cells(Rows.Count, 2).End(xlUp).Row

Range("B11:B" & i).Select

Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete



End Sub

 

[phulien1902]

Mình có tập làm 1 file excel theo địa chỉ sau:
https://drive.google.com/file/d/125DvUueMFx4H1rjbx3TC4zNAM81A7xs-/view?usp=sharing
Khi các bạn mở lên thì gặp sheet "InPhancong", mình nhờ các bạn giúp dùm viết code VBA để xóa các dòng bên dưới với điều kiện là những dòng nào có cột B bằng 0. Cảm ơn nhiều.
Mình có tải file lên kèm theo luôn. Mong được giúp đỡ sớm, mình cần gấp.

Thử:

Sub abc()
 Columns("B:B").SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
End Sub

 

[nguyen trunghoa]

Cảm ơn bạn phulien1902 nhiều, mình làm được rồi. Code chạy rất êm, nhanh nhưng hiện nay mình khóa sheet này lại (mục đích là để bảo toàn dữ liệu) thì nút bấm xóa mất hiệu lực rồi bạn ơi, giúp mình với.

 

[phulien1902]

Cảm ơn bạn phulien1902 nhiều, mình làm được rồi. Code chạy rất êm, nhanh nhưng hiện nay mình khóa sheet này lại (mục đích là để bảo toàn dữ liệu) thì nút bấm xóa mất hiệu lực rồi bạn ơi, giúp mình với.

Vậy khi nào cần xử lý số liệu thì bạn mở khóa và chạy Code thôi. Hay bạn có ý gì đó mà tôi chưa rõ.

 

[hoanganhvo2612]

Cảm ơn bạn phulien1902 nhiều, mình làm được rồi. Code chạy rất êm, nhanh nhưng hiện nay mình khóa sheet này lại (mục đích là để bảo toàn dữ liệu) thì nút bấm xóa mất hiệu lực rồi bạn ơi, giúp mình với.

Trong khi khóa sheet nó có tùy chọn mà, bạn tích phần cho phép xóa là được

 

[nguyen trunghoa]

Mình muốn khóa luôn sheet để người dùng không xóa được các ô dùng công thức. Bạn hoanganhvo2612 làm ơn chỉ rõ hơn dùm. Cảm ơn!

 

[hoanganhvo2612]

Mình muốn khóa luôn sheet để người dùng không xóa được các ô dùng công thức. Bạn hoanganhvo2612 làm ơn chỉ rõ hơn dùm. Cảm ơn!

Vậy là có 2 phương án:
1. Khóa những cell có công thức thôi, các ô khác không khóa nữa
2. Bổ sung thêm code của bạn @phulien1902

Sub abc()
 activesheet.unprotect "your pas"
 Columns("B:B").SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
 activesheet.protect "your pas"
End Sub

 

[nguyen trunghoa]

Mình vẫn làm như bạn hướng dẫn nhưng khi bấm xóa vẫn báo lỗi vậy bạn.

 

[hoanganhvo2612]

Mình vẫn làm như bạn hướng dẫn nhưng khi bấm xóa vẫn báo lỗi vậy bạn.
View attachment 200283

Password not correct kìa bạn.

 

[Phuocam]

Mình vẫn làm như bạn hướng dẫn nhưng khi bấm xóa vẫn báo lỗi vậy bạn.

Người ta hướng dẫn cách làm, tức là thay chuỗi "your pas" bằng mật khẩu thật của bạn.
Bê nguyên vào, không lỗi mới lạ!

 

[ndu96081631]

Người ta hướng dẫn cách làm, tức là thay chuỗi "your pas" bằng mật khẩu thật của bạn.
Bê nguyên vào, không lỗi mới lạ!

Thì ai biết đâu. Thấy viết sao thì copy vậy thôi. Mấy "bùa chú" này ai đủ khả năng tự chế chứ