Private Sub UserForm_Initialize()
Dim dc As Long
dc = Sheets("DS_hang").Range("a" & Rows.Count).End(xlUp).Row
Dim ChonTen As Object
For Each ChonTen In Sheet1.Range("a3:a" & dc)
CBB_TenHang.AddItem ChonTen
Next
End Sub
thầy cho e hỏi e tạo cbb nhưng không dùng hàm offset để tạo list chỉ cần thay thông số của thầy bằng dòng cuối thì n vẫn tự động nạp vào cbb bình thường. vậy cách đó có gì sai k ah
cách tạo list như code của bạn là đúng rồi nhé.
Bạn có thể kết hợp thêm lệnh sắp xếp cho vùng danh sách
Sheet1.Range("a3:a" & dc)để đảm bảo ko có dòng trống xen kẽ. Lệnh sắp xếp có thể record macro rồi sửa lại code record là được.