Da hướng dẫn giúp em phần tạo UserForm tb_DonGia thay đổi theo cb_TenHang vì

Chào bạn bạn có thể đẩy file lên được không?

da Chào Thầy em gửi link file, nhờ Thầy xem qua giúp em ạ

https://drive.google.com/file/d/13Ocr...

Bạn thêm dòng lấy đơn giá là được.

Private Sub cb_TenHang_Change()

    Dim DongCuoi As Long

        DongCuoi = Sheets("DS_Hang").Range("A" & Rows.Count).End(xlUp).Row

    Dim i As Integer

        For i = 3 To DongCuoi

    If Me.cb_TenHang.Value = "" Then

        Me.tb_DVT.Value = ""

    ElseIf Me.cb_TenHang.Value = Sheets("DS_Hang").Range("A" & i).Value Then

        Me.tb_DVT.Value = Sheets("DS_Hang").Range("B" & i).Value

        Me.tb_DonGia.Value = Sheets("DS_Hang").Range("C" & i).Value

    End If

    Next i

End Sub

Da em cám ơn Thầy em đã làm được rồi ạ

Nhờ Thầy hướng dẫn giúp em phần xóa dữ liệu trong tb_ SoLuong ạ. Phần code xóa dữ liệu trong cb_TenHang em đã thực hiện được nhưng textbox lại không có lệnh clear như combobox nên không xóa được ạ.

'Luu du lieu vao sheet Data khi bam nut Save

Private Sub cmb_Save_Enter()

    Dim DongCuoi_Data As Long

        DongCuoi_Data = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row

    If Me.cb_TenHang = "" Or Me.tb_SoLuong = "" Then

        MsgBox "Nhap du lieu Ten Hang va So Luong"

        Exit Sub

    Else

        Range("A" & DongCuoi_Data + 1).Value = Me.cb_TenHang.Value

        Range("B" & DongCuoi_Data + 1).Value = Me.tb_DVT.Value

        Range("C" & DongCuoi_Data + 1).Value = Format(Me.tb_SoLuong.Value, "#,##0")

        Range("D" & DongCuoi_Data + 1).Value = Format(Me.tb_DonGia.Value, "#,##0")

        Range("E" & DongCuoi_Data + 1).Value = Format(Me.tb_ThanhTien.Value, "#,##0")

    End If

    MsgBox "Da luu thanh cong"

    Me.cb_TenHang.Clear

End Sub

chào bạn với textbox thì bạn làm như sau textbox.text = ""

da em cám ơn Thầy nhiều ạ