Nhờ các bạn viết Code dùm mình nút xóa dòng

[othanhquango]

Các bạn giúp mình xóa các dòng không có dữ liệu bằng nút Xóa

Chân thành cảm ơn các bạn.

 

[othanhquango]

Tôi chạy bằng code ngay trong file 31 sheet đó, không lỗi gì cả. Tôi không có thì giờ ghi lại bằng chứng, tuỳ bạn dùng được thì dùng, không thì thôi.

Hic, hiện tại nếu mình chạy bằng code của bạn vẫn lúc được lúc không. Do đó nên mình mới quay video lại để chứng minh, chả hiểu tại sao lại như vậy? Rất chân thành cảm ơn sự giúp đỡ của bạn. Mình chỉ có ý nhờ bạn hoàn thiện giúp mình thôi. Làm ghê quá.

 

[othanhquango]

Chân thành cảm ươn các bạn, đặc biệt là:
ptm0412
concogia
http://www.giaiphapexcel.com/forum/member.php?37219-Trung-ChinhTrung Chinh

Mình là người không biết gì về code xin có 1 số nhận xét sau:
ptm0412: Code của bạn làm việc nhanh, ràng buộc điều kiện chặt chẽ, nhưng nếu có sai sót ở dòng stt thì sai. Và mình xài cũng hên xui, lúc được lúc không được.
concogia: Code của bạn đơn giản, nhìn cũng "hơi" hiểu hiểu. Mình xài thấy phù hợp với công việc và không có sự cố. Nhưng do nhập liệu thường thì người nhập sẽ nhập mấy cái dòng kia trước, sau đó STT mới kéo xuống, do đó lỡ quên kéo mà nhấn xóa => đi luôn công sức nhập.
Trung Chinh: Code của bạn mình thích nhất vì ...mình xài thấy không sai, chỉ cần 1 dòng có dữ liệu là không xóa dòng đó. Nhưng cách viết code mình thấy có gì gì đó không thích bằng cách viết code của concogia và ptm0412.

Nếu có gì không đúng, mong các bạn bỏ qua cho. Mình còn phải học hỏi ở các bạn nhiều.

Một lần nữa xin chân thành cảm ơn các bạn.

 

[ptm0412]

Với bất kỳ đoạn code nào trong số các code trên (của ai cũng được), nếu muốn chắc ăn thì dùng đoạn code sau để cảnh báo và cancel kịp thời:

Sub abc()
Dim YesNo
YesNo = Msgbox("Are you sure to delete those empty rows?", VbOKCancel)
If YesNo = VbCancel Then
    Exit Sub
Else
    '' Code abc
End If
End Sub