lổi Runtime Error"9"-Subcrip out of rabge (1 người xem)

[Rùa Con 1080]

Chào mọi người!!!!
Em có file này, sao mở lên bào lỗi như tiêu đề, mong MN giúp em với.
Em cám ơn nhiều.

 

[quanluu]

Chào mọi người!!!!
Em có file này, sao mở lên bào lỗi như tiêu đề, mong MN giúp em với.
Em cám ơn nhiều.

Cái này lỗi do code VBA, bạn coi code trong sự kiện open file tại thisworkbook rùi fix lại.

 

[Rùa Con 1080]

File lúc trước chưa sử dụng Table thì chạy được, nhưng khi mình tạo Bảng thì lại lỗi này. Mong mọi người xem giúp.!!!!
Code của file mình sưu tầm trên DD, chứ mình không rành VBA lắm.

 

[SA_DQ]

Bạn xem lại chương trình sau:

Private Sub UserForm_Initialize()
 On Error GoTo Loi_CT
1    With Sheets("Ton")     'Sheet3'
2        If .AutoFilterMode Then .AutoFilterMode = False 'do xac' dinh. mang? theo kieu xlUp -> phai nha? loc.
        ArrHangHoa = .Range(.Range("A65000").End(xlUp), .Range("B3")).Value
    End With
    'ho~ tro*. tbx_Search_Change   '
    pri_Ubd1 = UBound(ArrHangHoa, 1)
    pri_Ubd2 = UBound(ArrHangHoa, 2)
    With ListBox1
        .ColumnCount = 2
        .ColumnWidths = "240,50"
        .List = ArrHangHoa
    End With
    tb_Search.SetFocus
Err_:   MsgBox "GPE.COM"
    Exit Sub
Loi_CT:
    MsgBox Err, , Erl
    Resume Err_
End Sub