m code này (em viết là bấm vào xoá dữ liệu sẽ hiện ra thông báo bấm ok

Code bạn đang xóa ở cột A và B thôi, còn bạn đang xem cột D và E sẽ không thấy code hoạt động. Bạn kiểm tra lại các cột A và B nhé.

Chào bạn code của bạn dang nhu sau nhé

Option Explicit
Sub xoadulieu()
    Dim hoi  As VbMsgBoxResult
    hoi = MsgBox("ban co muon xoa khong", vbYesNo, "Thông báo")
    If hoi = vbYes Then
     ' lenh xoa
    End If
End Sub

Thầy ơi, em chỉnh lại là WS2.Range("A2:E" & Lr2).ClearContents nhưng kết quả vẫn chưa được ah

Chào bạn bạn đính kèm file lên giúp gitiho nhé

https://gitiho.com/blog/huong-dan-upl...

máy em không tải được google drive Thầy ah

Chào bạn bạn có thể tải lên http://www.mediafire.com rồi cho gitiho link cũng được nhé.

hoặc bạn copy code lên đây giúp gitiho nhé, code kia có thể bạn chụp thiếu

Em kính gởi Thầy code mà em đã viết ah

Sub XOADULIEUTONGNQH()

    Dim WS2 As Worksheet ''Khai bao kieu bien cua Worksheet

    Dim Lr2 As Long ''Khai bao bien tim dong cuoi

    Set WS2 = Sheet2 ''Gan WS2 cho sheet2

    Lr2 = WS2.Range("A" & Rows.Count).End(xlUp).Row ''cau lenh tim dong cuoi lrl

    canhbaoxoadulieu = MsgBox("Ban muon xoa du lieu", vbOKCancel, warning)

    Select Case canhbaoxoadulieu

    Case vbOK

    WS2.Range("A2:E" & Lr2).ClearContents

    MsgBox "Da xoa thanh cong"

    Case vbCancel

    Exit Sub

    End If

End Sub

Chào bạn bạn dùng code sau nhé

Option Explicit
Sub XOADULIEUTONGNQH()
    Dim WS2 As Worksheet ''Khai bao kieu bien cua Worksheet
    Dim Lr2 As Long ''Khai bao bien tim dong cuoi
    Set WS2 = Sheet2 ''Gan WS2 cho sheet2
    Lr2 = WS2.Range("A" & Rows.Count).End(xlUp).Row ''cau lenh tim dong cuoi lrl
    Dim canhbaoxoadulieu As VbMsgBoxResult
    canhbaoxoadulieu = MsgBox("Ban muon xoa du lieu", vbOKCancel, "thong bao")
    Select Case canhbaoxoadulieu
    Case vbOK
        WS2.Range("A2:E" & Lr2).ClearContents
        MsgBox "Da xoa thanh cong"
    Case vbCancel
    End Select
End Sub

dạ em cám ơn Thầy ah

Thầy ơi sao em chạy code nhưng dòng D4 không có xoá được Thầy?

Dạ em làm được rồi thầy ah. Em cám ơn Thầy nhiều ah

Thầy ơi, em có bảng số liệu excel như vậy và em muốn tạo một box là import dữ liệu với điều kiện là lọc ra đơn vị + số tiền có mã nhóm từ Nhóm 2 đến nhóm 4. Em sẽ xem tài liệu chỗ phần nào Thầy ah?

chào bạn bạn có thể sử dụng advanced fiter hoặc nếu muốn ứng dụng mảng hoặc sql có thể tham khảo khoá sau

https://by.com.vn/

là mình sẽ tham gia lớp VBA nâng cao phải không ah?

Chào bạnd đúng rồi bạn nhé, trong đó sẽ có phần trích lọc bằng mảng hoặc sql bạn nhé.