Hi Thầy !
Em viết code với vòng lặp For dùng lấy dữ liệu từ CBBOX cho TB Số lượng vs Đơn vị tính nhưng chạy thì báo lỗi:
Private Sub CB_TH_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_TH = "" Then
Me.TB_DG = 0
Me.TB_DVT = ""
ElseIf Me.CB_TH.Value = Sheets("DS_Hang").Range("A" & i).Value Then
Me.TB_DG.Value = Sheets("DS_Hang").Range("C" & i).Value
Me.TB_DVT.Value = Sheets("DS_Hang").Range("B" & i).Value
End If
Next i
TB_DG = Format(TB_DG, "#,##0")
End Sub
Chào bạn bạn đẩy file lên nhé.