Giúp em sửa lỗi sub or function not defined (1 người xem)

[vanduongkt1611]

Chào mọi người.
khi em muốn tìm nhanh tên nhân viên tại Cột F băng cách gõ một vài ký tự để tìm kiếm thì xuất hiện lỗi " Sub or function not defined " ạ.
Em cảm ơn!

 

[PacificPR]

khi em tìm tên duy ở ô F thì hiện lỗi sub or function not defined ạ.

Sửa lại tiêu đề Topic đi bạn. Cố gắng chăm chuốt bài biết 1 tý (Viết đúng ngữ pháp, đúng chính tả...) Thì bạn nhận được câu trả lời nhanh nhất từ các thành viên GPE.

 

[vanduongkt1611]

Sửa lại tiêu đề Topic đi bạn. Cố gắng chăm chuốt bài biết 1 tý (Viết đúng ngữ pháp, đúng chính tả...) Thì bạn nhận được câu trả lời nhanh nhất từ các thành viên GPE.

Dạ vâng em rút kinh nghiệm ạ.

 

[♫ђöล♥ßล†♥†µ♫]

Dạ vâng em rút kinh nghiệm ạ.

Trong file của bạn không có Sub, Function trong Module. Do vậy mới có tình trang trên. Để tìm nhanh tên nhân viên tại Cột F băng cách gõ một vài ký tự thì mình có Copy cái hàm FindInArray của cái anh gì gì đẹp trai ấy vào trong File của Bạn.
Bạn xem thử

 

[vanduongkt1611]

Trong file của bạn không có Sub, Function trong Module. Do vậy mới có tình trang trên. Để tìm nhanh tên nhân viên tại Cột F băng cách gõ một vài ký tự thì mình có Copy cái hàm FindInArray của cái anh gì gì đẹp trai ấy vào trong File của Bạn.
Bạn xem thử[/QUOT
Cảm ơn bạn nhé mình dùng được rồi !

Bài đã được tự động gộp: 18/6/18

Chị ơi em còn một file tương tự, em muốn tìm kiếm nhanh mã tài khoản ở bảng Danh Muc TK sang bảng nhập liệu tại cột F bằng cách gõ tên tài khoản . Chị có thể giúp em tạo VBA được không ạ. Em cảm ơn!

 

[♫ђöล♥ßล†♥†µ♫]

Bài đã được tự động gộp: 18/6/18

Chị ơi em còn một file tương tự, em muốn tìm kiếm nhanh mã tài khoản ở bảng Danh Muc TK sang bảng nhập liệu tại cột F bằng cách gõ tên tài khoản . Chị có thể giúp em tạo VBA được không ạ. Em cảm ơn!

File có Virut hay sao ấy Bạn ạ. Không tải về được

 

[vanduongkt1611]

File có Virut hay sao ấy Bạn ạ. Không tải về được

Em tải lại file Chị xem được chưa ạ.

 

[♫ђöล♥ßล†♥†µ♫]

Em tải lại file Chị xem được chưa ạ.

Bạn thử xem sao

 

[vanduongkt1611]

Bạn thử xem sao

Dạ chị ơi oke rồi ạ. Em cảm ơn nhiều nhé!
Với cái cột G em muốn ẩn đi thì làm thế nào ạ.

 

[♫ђöล♥ßล†♥†µ♫]

Dạ chị ơi oke rồi ạ. Em cảm ơn nhiều nhé!
Với cái cột G em muốn ẩn đi thì làm thế nào ạ.

Bạn thay cái cũ bằng cái này

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Row >= 9 And Target.Column = 6  Then
    Dim e As Long, I As Long
    Dim sh As Worksheet
        Set sh = Sheets("DANH MUC TK")
        If Not IsArray(priArray) Then
            e = sh.Range("B" & Rows.Count).End(xlUp).Row
            priArray = sh.Range("A4:F" & e).Value2
        End If
        Call HienComboBox1
    Else
        Call AnComboBox1
    End If
End Sub

 

[vanduongkt1611]

Bạn thay cái cũ bằng cái này

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Row >= 9 And Target.Column = 6  Then
    Dim e As Long, I As Long
    Dim sh As Worksheet
        Set sh = Sheets("DANH MUC TK")
        If Not IsArray(priArray) Then
            e = sh.Range("B" & Rows.Count).End(xlUp).Row
            priArray = sh.Range("A4:F" & e).Value2
        End If
        Call HienComboBox1
    Else
        Call AnComboBox1
    End If
End Sub

Dạ được rồi Chị. Em cảm ơn!