Lỗi Run-time-error '380'

[iloveit]

Mình có tải file này trên mạng nhưng khi mở lên D-click vào cột vùng màu vàng của Sheet "TEST" để nhập liệu thì báo lỗi như hình.
Nhờ các Anh/Chị tìm lỗi trên trong code VBA giúp. Chân thành cảm ơn!

​

 

[SA_DQ]

Bạn thử thay bỡi các dòng lệnh này:

Private Sub UserForm_Initialize()
On Error GoTo LoiCT

    Set Dic = CreateObject("Scripting.Dictionary")   
    sArray = S2.Range("A1:D" & S2.[A65536].End(xlUp).Row).Value
    LBDMHH.List() = sArray
3    CBDMHH.List = Sheet3.[A1:A5].Value
4    CBDMHH.Value = "ALL"
Err_:       Exit Sub
LoiCT:
  MsgBox Error(), , Erl
  GoTo Err_
End Sub

 

[huuthang_bd]

Sửa thuộc tính Style của CBDMHH thành 0 - fmStyleDropDownCombo

 

[iloveit]

Bạn thử thay bỡi các dòng lệnh này:

Private Sub UserForm_Initialize()
On Error GoTo LoiCT

    Set Dic = CreateObject("Scripting.Dictionary") 
    sArray = S2.Range("A1:D" & S2.[A65536].End(xlUp).Row).Value
    LBDMHH.List() = sArray
3    CBDMHH.List = Sheet3.[A1:A5].Value
4    CBDMHH.Value = "ALL"
Err_:       Exit Sub
LoiCT:
  MsgBox Error(), , Erl
  GoTo Err_
End Sub

cái này mình thay vào chỗ nào vậy Chú?

 

[SA_DQ]

Thì thay vô các macro hiện tại của bạn, thử đi; Sẽ biết lỗi ở dòng nào & lỗi đó là gì.