'Xoa du lieu o ten hang va so luongMecb_TenHangClear cho e hoi la o phan nay e khong nhap duoc

Chào bạn bạn phải gọi từng textbox hoặc combobox để xoá nhé.

bạn chọn lệnh clear bạn nhé lệnh delete nó không hiểu

Em dùng lệnh clear cũng bị lỗi như v ạ

Chào Dung Bạn có thể đẩy file lên giúp gitiho được không?

Private Sub cmb_Save_Click()
Dim dongcuoi As Long
   dongcuoi = Sheet2.Range("E" & Rows.Count).End(xlUp).Row
If cb_TenHang = "" Or tb_SoLuong = "" Then
   MsgBox "Nhap gia tri cho 2 o nay "
   Else
   'Luu tung noi dung tuong ung
   With Sheet2
       .Range("A" & dongcuoi + 1).Value = cb_TenHang.Value
       .Range("B" & dongcuoi + 1).Value = tb_DVT.Value
       .Range("C" & dongcuoi + 1).Value = CLng(tb_SoLuong.Value)
       .Range("D" & dongcuoi + 1).Value = CLng(tb_DonGia.Value)
       .Range("E" & dongcuoi + 1).Value = CLng(tb_ThanhTien.Value)
   End With
End If
   cb_TenHang.Clear
   tb_SoLuong.Clear

   uf_ThemMoi.Show

End Sub

em muốn chỉ xóa tên hàng với số lượng thì dòng code em không chạy dc

tb_SoLuong.Clear không có  nên em không thể xóa ô tb_SoLuong

bạn làm như sau nhé

Private Sub cmb_Save_Click()
Dim dongcuoi As Long
   dongcuoi = Sheet2.Range("E" & Rows.Count).End(xlUp).Row
If cb_TenHang = "" Or tb_SoLuong = "" Then
   MsgBox "Nhap gia tri cho 2 o nay "
   Else
   'Luu tung noi dung tuong ung
   With Sheet2
       .Range("A" & dongcuoi + 1).Value = cb_TenHang.Value
       .Range("B" & dongcuoi + 1).Value = tb_DVT.Value
       .Range("C" & dongcuoi + 1).Value = CLng(tb_SoLuong.Value)
       .Range("D" & dongcuoi + 1).Value = CLng(tb_DonGia.Value)
       .Range("E" & dongcuoi + 1).Value = CLng(tb_ThanhTien.Value)
   End With
End If
  Unload Me
  UserForm1.Show

End Sub

Để xóa textbox thì bạn có thể dùng lệnh
ten_textbox = “”

Đặt giá trị textbox là rỗng cũng có nghĩa là xóa.

Áp dụng tương tự với combobox nhé.