Private Sub cmdAdd_Click()

Dim RowNum As Long

Dim ListBoxRow As Long

Worksheets("Form").Activate

RowNum = Application.CountA(Range("A:A")) + 2

ListBoxRow = lstSearchResults.ListIndex + 2

Cells(RowNum, 1).Value = Worksheets("Product Search").Cells(ListBoxRow, 1).Value

Unload Me

End Sub

Private Sub cmdSearch_Click()

Dim RowNum As Long

Dim SearchRow As Long

RowNum = 2

SearchRow = 2

Worksheets("Stock Data").Activate

Do Until Cells(RowNum, 1).Value = ""

    If InStr(1, Cells(RowNum, 2).Value, txtKeywords.Value, vbTextCompare) > 0 Then

        Worksheets("Product Search").Cells(SearchRow, 1).Value = Cells(RowNum, 1).Value

        Worksheets("Product Search").Cells(SearchRow, 2).Value = Cells(RowNum, 2).Value

        Worksheets("Product Search").Cells(SearchRow, 3).Value = Cells(RowNum, 3).Value

        SearchRow = SearchRow + 1

    End If

    RowNum = RowNum + 1

Loop

If SearchRow = 2 Then

    MsgBox "No products were found that match your search criteria."

    Exit Sub

End If

lstSearchResults.RowSource = "SearchResults"

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

txtKeywords.SetFocus

Worksheets("Product Search").Range("A2:C100").ClearContents

End Sub

thầy ơi e nhờ thầy chút ạ 

e có bảng lít danh sách e muốn chọn và dữ liệu sang cột B , thầy xem đoạn code kia chỉnh như nào để sang dk cột B ạ 

cảm ơn thầy !

Chào bạn bạn đẩy file lên nhé.

https://docs.google.com/spreadsheets/...

Em gửi thầy ạ. Thầy xem giùm ạ

mãi ko thấy thầy trả lời ạ

Chào bạn có phải bạn cần khi gõ dữ liệu nó tìm kiếm như trên google đúng không?

dạ vầng ạ 

nhưng vấn đề e đang gặp phải là

chọn cái mình muốn và đưa nó về sang một cột khác , đoạn code e đang gửi thì nó chỉ mặc định ở cột A

mong thầy sửa và chỉ cho ạ 

Chào bạn bạn thử xem phải kiểu code này không?

https://drive.google.com/file/d/1_qjD...

dạ đúng rồi ạ . chuẩn kiểu này ạ 

nhưng e muốn tìm kiếm ra và chọn cái mã hay cái tên . sang một cái sheet khác và đưa vào các cột mà mình muốn 

mong thầy sửa lại, thêm đoạn code giúp ạ

ví dụ như hình ạ 

ý của bạn đang muốn chọn vào một vùng rồi ghi dữ liệu ra một vùng khác đúng không?

dạ đúng rồi ạ . ra dk vùng mà mình muốn đưa vào . có thể là trên một danh sách bảng list đó chỉ chọn mã hoặc tên , hay  cả mã và tên ạ 

mong thầy giúp

Chào bạn bạn xxem đúng ý bạn không nhé

https://drive.google.com/file/d/1LQyL...

cảm ơn thầy ạ !

chuẩn đúng như ý mong muốn . cảm ơn thầy nhiều ạ

Chúc bạn học tốt cùng gitiho

dạ vầng ạ !

Thầy ơi h e lại mắc là nhân bản cái tìm kiếm thêm 1 cái nữa, để phục vụ cho 1 sheets . Mà e thay vào ko dk . Mong fife trên thầy nhân bản cho e một cái tìm kiếm nữa . E cảm ơn thầy

Chào bạn có thể mô tả rõ hơn được không?

Ví dụ sheest1 là phần dữ liệu 

trong sheets 1 

có list danh sách bao gồm các mã ở các cột khác nhau. Vì vậy tìm kiếm chỉ chọn một mã nhất định. Nên e muốn tạo thêm nhân bản một cái tìm kiếm. Để chọn cái mã khác 

vd: sheets 1 

cột A  dx0001

            Dx0002

cột B    Mx0001

              Mx0002

giờ cái tìm kiếm sẽ chọn cột A dx0001

E muốn chọn thêm ở cột B nhưng dòng khác Mx0002

mong thầy tạo cho thêm một cái tìm kiếm nhân bản . Để e lựa chọn tìm mã .  Em cảm ơn thầy

Mong thầy giúp ạ

Phần này cần sql là ngôn ngữ truy vấn bạn cần thay đổi câu select là sẽ ra.

Dạ e thay rồi vẫn bị lỗi . Mong thầy giúp e thay đổi một cái ạ 

Chào bạn bạn đẩy file lên nhé.

https://drive.google.com/file/d/1LQyL...

Dan vầng ạ . Vì h e ko ở nhà nên e ko có fife . Vẫn là file này h e muốn thêm mot cái tìm kiếm ở data . Để lấy dữ liệu ở bên DMTK làm nguồn chính . Mong thầy giúp ạ

khi nào bạn có file và dữ liệu vui lòng đảy lên nhé.

https://drive.google.com/file/d/1Zs_U..." target="_blank">

https://drive.google.com/file/d/1Zs_U...

Dạ thầy xem giúp e xem lỗi ở đâu ạ 

Chào bạn do Private Sub UserForm_Initialize1() không có trong sự kiện của vba mà chỉ có Private Sub UserForm_Initialize() bạn xoá số 1 đi và thử lại nhé.

Thầy ơi phần ghi dưx liễu của e vẫn ko dk ạ

Chào bạn bạn xem lại phần nút ghi khi click nhé. bạn đang bắt sai nút

Dạ vâng ạ . Thầh ơi e giờ muốn chuyển cột tìm kiếm . A vs B . Sang C vs D . Thì vào thay chỗ nào của phần DMTK  ạ . Mong thày giúp ạ

Chào bạn bạn thay đổi điều kiện where và đổi tên cột là được nhé.

Thày có thể chỉ rõ cobe dk ko ạ

Chào bạn bạn thay đổi tại đây:

 Mysql = "SELECT *  " & "FROM [DMTK$] WHERE " & _
        "((AA LIKE '%" & (UfGitiho.ComboBox1.text) & "%')) OR (TTK LIKE '%" & (UfGitiho.ComboBox1.text) & "%')" & _
        "OR (CAP LIKE '%" & (UfGitiho.ComboBox1.text) & "%')"

E thay rồi mà nó vẫn ra hai cột đầu tiên ạ . Mong thầy chỉ lỗi ạ

Chào bạn bạn chỉ cần thay đổi câu sau:

với AA hoặc TTK là tên của cột

 Mysql = "SELECT *  " & "FROM [DMTK$] WHERE " & _
        "((AA LIKE '%" & (UfGitiho.ComboBox1.text) & "%')) OR (TTK LIKE '%" & (UfGitiho.ComboBox1.text) & "%')" & _
        "OR (CAP LIKE '%" & (UfGitiho.ComboBox1.text) & "%') OR (TKN LIKE '%" & (UfGitiho.ComboBox1.text) & "%')"