Tạo form Danh Mục (1 người xem)

[Rùa Con 1080]

Em có file này, mong các AC giúp tạo danh mục hàng hóa với.
Khi mở file, Form load tất cả hàng hóa vào lisbox1, khi gỏ từ vào tb_Search thì Filter những hàng hóa nào trùng với tb_Search vào isbox1, nếu nhìn không có tên hàng hóa nào thì gỏ tên hàng hóa vào tb_THH và đơn vị tính vào tb_DVT rồi nhấn cb_CN thì lưu vào sheet và cập nhật vào lisbox1(Cũng mong các AC giúp bẫy lỗi nếu tên hàng hóa trùng thì có MsgBox)

 

[tờ rung]

Em có file này, mong các AC giúp tạo danh mục hàng hóa với.
Khi mở file, Form load tất cả hàng hóa vào lisbox1, khi gỏ từ vào tb_Search thì Filter những hàng hóa nào trùng với tb_Search vào isbox1, nếu nhìn không có tên hàng hóa nào thì gỏ tên hàng hóa vào tb_THH và đơn vị tính vào tb_DVT rồi nhấn cb_CN thì lưu vào sheet và cập nhật vào lisbox1(Cũng mong các AC giúp bẫy lỗi nếu tên hàng hóa trùng thì có MsgBox)

Mục Tb_Search tôi không làm, vì bản thân Listbox khi bạn tác động lên nó và đánh chữ cái mình cần tìm vào nó cũng tự seach cho bạn, còn bạn muốn làm phức tạp vấn đề seach thì mình không giúp được, vì không có nhiều thời gian

 

[SA_DQ]

. . . Khi gỏ từ vào tb_Search thì Filter những hàng hóa nào trùng với tb_Search vào isbox1,. . .

Vì không thề đánh tiếng Việt vô tb_Search để chạy các sự kiện, nên mình đành thêm nút lệnh bên cạnh nó.

Sau khi nhập từ cần tìm vô tb_Search, ta chịu khó bấm vô nút lệnh
Cảm ơn Tờ Rưng do đã sử dụng file của bạn!

 

[Rùa Con 1080]

Sao file của Thầy SA_DQ em mở lên bị lỗi "1004" "Worksheet Failse" Thầy Ơi!!!!

 

[be_09]

Góp ý cho bạn:

1/ Nên có tiêu đề cột đầy đủ như File đang theo dõi thì việc áp dụng code mới thiết thực.

2/ Tiêu đề cột nên chừa vài dòng phía trên để cọn sử dụng vào mục đích khác.

Ba cái vụ này tôi cũng góp ý rất nhiều rồi nhưng các thành viên không ai chú ý để sửa, vì vậy khi áp dụng cho File thực tế không được mới la làng lên thì đã quá muộn.

 

[SA_DQ]

Sao file của Thầy SA_DQ em mở lên bị lỗi "1004" "Worksheet Failse" Thầy Ơi!!!!

Vì trong file có macro này:

Sub TEST()
 If ActiveSheet.Name = "Sheet1" Then
    UserForm1.Show
 End If
End Sub

Ta có thể bỏ 1 trong 2 macro gồm macro trên hay

[SIZE=3][B]Private Sub Workbook_Open()
[/B][/SIZE]   UserForm1.Show
[SIZE=3][B]End Sub[/B]
[/SIZE]

 

[Rùa Con 1080]

Bạn HYen17 ơi sao mình bỏ code trong WorkBook_Open rồi mà file vẫn không chạy code khi mình Active sheet1. (chọn sheet3 xong quay lại sheet1)

 

[ChanhTQ@]

Bạn sửa lại macro theo vầy, chắc được:

Private Sub UserForm_Initialize()
 Dim Rw As Long
 Dim Ws As Worksheet, Src()
 On Error GoTo Loict
    Set Ws = Sheets("Sheet1")
    With Ws
4        Rw = .Range("A1").End(xlDown).Row      '**'
        Src = .Range("A2:B" & Rw).Value
    End With
    ListBox1.List() = Src
Err_:               Exit Sub
Loict:
    MsgBox Error, , Erl
    Resume Err_
End Sub

 

[be_09]

Góp ý mà chủ Topic không ý kiến gì thì chạy thôi, chúc bác ChanhTQ ở lại mạnh khỏe để có sức mà sửa tiếp.