User Form searching from two different columns

[JarmoVee]

Hello,

I have an user form for searching data from worksheet "Data".
Now I can search only data from column A (1). Is this possible to get do searching also column B (2)?

Thank you in advance!

Private Sub cmdSearch_Click()

Dim RowNum As Long
Dim SearchRow As Long

RowNum = 2
SearchRow = 2

Worksheets("Data").Activate

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

    If InStr(1, Cells(RowNum, 1).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
        Worksheets("Product Search").Cells(SearchRow, 4).Value = Cells(RowNum, 4).Value
        Worksheets("Product Search").Cells(SearchRow, 5).Value = Cells(RowNum, 5).Value
        Worksheets("Product Search").Cells(SearchRow, 6).Value = Cells(RowNum, 6).Value
        Worksheets("Product Search").Cells(SearchRow, 7).Value = Cells(RowNum, 7).Value
        Worksheets("Product Search").Cells(SearchRow, 8).Value = Cells(RowNum, 8).Value
        Worksheets("Product Search").Cells(SearchRow, 9).Value = Cells(RowNum, 9).Value
        Worksheets("Product Search").Cells(SearchRow, 10).Value = Cells(RowNum, 10).Value
        Worksheets("Product Search").Cells(SearchRow, 11).Value = Cells(RowNum, 11).Value
        Worksheets("Product Search").Cells(SearchRow, 12).Value = Cells(RowNum, 12).Value
        Worksheets("Product Search").Cells(SearchRow, 13).Value = Cells(RowNum, 13).Value
        Worksheets("Product Search").Cells(SearchRow, 14).Value = Cells(RowNum, 14).Value
        Worksheets("Product Search").Cells(SearchRow, 15).Value = Cells(RowNum, 15).Value
        Worksheets("Product Search").Cells(SearchRow, 16).Value = Cells(RowNum, 16).Value
        SearchRow = SearchRow + 1
    End If
    RowNum = RowNum + 1
Loop

If SearchRow = 2 Then
    MsgBox "xxx"
    Exit Sub
End If

lstSearchResults.RowSource = "SearchResults"

End Sub

 

[Fluff]

How about

Private Sub cmdSearch_Click()

Dim RowNum As Long
Dim SearchRow As Long

RowNum = 2
SearchRow = 2

Worksheets("Data").Activate

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

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

If SearchRow = 2 Then
    MsgBox "xxx"
    Exit Sub
End If

lstSearchResults.RowSource = "SearchResults"

End Sub

 

[JarmoVee]

Thanks again! This is an incredibly great place for a beginner to get help quickly. I work in a small company and have taken it as my own project to get easier work with Excel. So I will continue to ask for some help, but the project will be ready soon.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[JarmoVee]

May I ask one more thing...?

How can I do "Update" for the product what found with searching?
When I click searched product, it shows me all the data in text boxes (see photo). Now if I need to do update, I don't understand how to do it.

 

[Fluff]

As this is a totally different question, it needs a new thread. Thanks