Get results to userform labels

[Akbarov]

Hey community,

İ use VBA code which searchs product , find it and if needed orders found product to worksheet ( form )
A4,5,6.
B4,5,6.
C4,5,6.
D4,5,6 etc.
can anyone help me to get same orders on userform labels?

Option Explicit


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
Dim wsSD As Worksheet


Set wsSD = Worksheets("Stock Data")


RowNum = 2
SearchRow = 2






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




    If InStr(1, wsSD.Cells(RowNum, 2).Value, txtKeywords.Value, vbTextCompare) > 0 Then
        Worksheets("Product Search").Cells(SearchRow, 1).Value = wsSD.Cells(RowNum, 1).Value
        Worksheets("Product Search").Cells(SearchRow, 2).Value = wsSD.Cells(RowNum, 2).Value
        Worksheets("Product Search").Cells(SearchRow, 3).Value = wsSD.Cells(RowNum, 3).Value
        SearchRow = SearchRow + 1
    End If
    RowNum = RowNum + 1
Loop




If SearchRow = 2 Then
    MsgBox "Hec bir netice tapilmadi!"
    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

 

[Akbarov]

any help?

 

[Akbarov]

any help?