Sửa lỗi danh sách hàng giúp e
Chào bạn bạn mô tả bằng cả hình ảnh giúp gitiho dc khokng?
Câu lênh lấy ĐVT viết thế nào ạ?
Chào bạn bạn đã có list tên hàng trong name range chưa nhỉ? nếu cách đó không được bạn thử với cách sau
Option Explicit
Private Sub UserForm_Initialize()
Call loadbophan
End Sub
Sub loadbophan()
Dim dc As Long, arr As Variant
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
arr = Sheet1.Range("A2:A" & dc).Value
cb_BoPhan.Clear
If (IsArray(arr)) Then
cb_BoPhan.List = arr
End If
End Sub