How to find multiple keywords in a cell from a worksheet and move it to another worksheet

[systemx]

Hello everyone.

I have an excel file that contains two sheets (Sheet 1 and Sheet 2)
- Sheet 1 contains the following data in A1 below:
specs:HDD=WD, Fan=CM, GFX=Leadtek, Mouse=Logitech
specs:HDD=Seagate, Fan=Shark, GFX=Nvidia, Mouse=Hp
specs:HDD=WD, Fan=Bay, GFX=Leadtek, Mouse=Microsoft
specs:HDD=WD, Fan=CM,GFX=Nvidia, Mouse=Dell
specs:HDD=Seagate, Fan= Bay, GFX=Asus, Mouse=Hp

I would like to use a macro to move the cells from A1 into Sheet2 if any of the following keywords match the below:
HDD=WD
GFX=Leadtek

Is it possible to have the following data below in Sheet2?
specs:HDD=WD, Fan=CM, GFX=Leadtek, Mouse=Logitech
specs:HDD=WD, Fan=Bay, GFX=Leadtek, Mouse=Microsoft
specs:HDD=WD, Fan=CM, GFX=Nvidia, Mouse=Dell

I've tried using Application.Match but it only works if I am passing a single keyword like Application.Match("HDD=WD", Range("Sheet1!$A$1"), 0). How would I be able to either match "HDD=WD" and/or "GFX=Leadtek" and then move the cell to Sheet2? I may be doing this the wrong way and am open to any suggestions, thanks in advance!

 

[hippiehacker]

if this text is in cell A1

specs:HDD=WD, Fan=CM, GFX=Leadtek, Mouse=Logitech
specs:HDD=Seagate, Fan=Shark, GFX=Nvidia, Mouse=Hp
specs:HDD=WD, Fan=Bay, GFX=Leadtek, Mouse=Microsoft
specs:HDD=WD, Fan=CM,GFX=Nvidia, Mouse=Dell
specs:HDD=Seagate, Fan= Bay, GFX=Asus, Mouse=Hp

then you could use the instr function

 

[systemx]

if this text is in cell A1


then you could use the instr function

Thank you for the tip. I did use instr previously but I failed to understand how it actually worked. Below is the code that I've come up with, it does feel like it is working as it should .. are there any errors with it or do you have a better way of doing it? Thanks!

Sub Button1_Click()
    For Each Cell In ActiveSheet.UsedRange.Cells
    
    If InStr(Cell.Value, "HDD=WD") > 0 Or InStr(Cell.Value, "GFX=Leadtek") > 0 Then
            Cell.Copy
            Sheets("Sheet2").Activate
            
            With ActiveSheet
                lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
                
                If (ActiveSheet.Range("A1").Select = True And ActiveSheet.Range("A1").Value <> "") Then
                    Range("A" & lastRow + 1).Select
                End If
            End With
            
            ActiveSheet.Paste
        End If
    Next
End Sub

 

[hippiehacker]

Thank you for the tip. I did use instr previously but I failed to understand how it actually worked. Below is the code that I've come up with, it does feel like it is working as it should .. are there any errors with it or do you have a better way of doing it? Thanks!

Sub Button1_Click()
    For Each Cell In ActiveSheet.UsedRange.Cells
    
    If InStr(Cell.Value, "HDD=WD") > 0 Or InStr(Cell.Value, "GFX=Leadtek") > 0 Then
            Cell.Copy
            Sheets("Sheet2").Activate
            
            With ActiveSheet
                lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
                
                If (ActiveSheet.Range("A1").Select = True And ActiveSheet.Range("A1").Value <> "") Then
                    Range("A" & lastRow + 1).Select
                End If
            End With
            
            ActiveSheet.Paste
        End If
    Next
End Sub

you don't need to activate the sheet for copy paste you can do it like

Sub Button1_Click()
    For Each Cell In ActiveSheet.UsedRange.Cells
    
    If InStr(Cell.Value, "HDD=WD") > 0 Or InStr(Cell.Value, "GFX=Leadtek") > 0 Then
      Cell.Copy Sheets("Sheet2").Cells(Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1, "A")
     End If
    Next
End Sub