Xin giúp mình code xóa có điều kiện

[hoang0569]

Mình gửi File kèm, các bạn xem giúp, xin cảm ơn nhiều

 

[hoang0569]

Anh em giúp tôi với

 

[befaint]

Mình gửi File kèm, các bạn xem giúp, xin cảm ơn nhiều

 

[SA_DQ]

Thêm 1 tham khảo cho bạn:

Sub XoaDuLieuTheoNgay()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 Dim Ng As Integer
 
 Ng = [A1].Value
 For Each Sh In ThisWorkbook.Worksheets
    Set Rng = Sh.[C1].Resize(35)
    Set sRng = Rng.Find(Ng, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        MsgBox "Nothing", , Sh.Name
    Else
        sRng.Offset(, 1).Resize(, 11).Clear
    End If
 Next Sh
End Sub

 

[hoang0569]

Cảm ơn bạn nhiều

Bài đã được tự động gộp: 31/12/18

Cảm ơn bạn nhều

 

[hoang0569]

Bạn befaint ơi
Bạn có thể sửa lại giúp mình chút ít code của bạn được không? mình gửi lại File đó,cảm ơn bạn rất nhiều nhé

 

[befaint]

Bạn befaint ơi
Bạn có thể sửa lại giúp mình chút ít code của bạn được không? mình gửi lại File đó,cảm ơn bạn rất nhiều nhé

 

[hoang0569]

Mình chạy thử bị lỗi bạn à, bạn kiểm tra lại giúp mình nhé,cảm ơn bạn.

 

[befaint]

Mình chạy thử bị lỗi bạn à, bạn kiểm tra lại giúp mình nhé,cảm ơn bạn.

Bạn chụp hình chỗ lỗi hoặc gửi file đang lỗi lên mình kiểm tra lại để sửa.

 

[hoang0569]

Mình gửi File bạn xem giúp nhé

 

[befaint]

Mình gửi File bạn xem giúp nhé

Bạn tải lại file ở bài trên nhé.

 

[hoang0569]

Được rồi bạn à, cảm ơn bạn nhiều. Sang năm mới rồi chúc bạn cùng gia đình sức khỏe và hạnh phúc thật nhiều nhé,chào bạn.

 

[hoang0569]

Ban befaint và các bạn sửa lại code của befaint giúp mình với: Nếu A1=A2 sẽ xóa hết cả bảng dữ liệu (vùng C2:N23), mình gửi File, các bạn giúp nhé, cảm ơn nhiều.

 

[be_09]

Ban efaint và các bạn sửa lại code của efaint giúp mình với: Nếu A1=A2 sẽ xóa hết cả bảng dữ liệu (vùng C2:N23), mình gửi File, các bạn giúp nhé, cảm ơn nhiều.

Nick của người ta là
befaint

Sao bạn sửa Nick của người ta vậy.
efaint

 

[hoang0569]

Ồ, Mình viết thiếu, rất xin lỗi bạn befaint