I have the below which works fine@
Dim rng As Range, Wrd As String, wa As Boolean, wb As Boolean
Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
Dim ws3 As Worksheet: Set ws3 = Worksheets("Sheet3")
For Each rng In ws2.Range("B2:B" & ws2.Range("B" & Rows.Count).End(xlUp).Row)
Wrd = rng.Offset(0, 2)
If rng = "Test" Then
If wa = False Then
If Wrd = ws2.Range("C1").Value Then
rng.Offset(0, -1).Copy ws3.Cells(3, "AJ")
wa = True
End If: End If
If wb = False Then
If Wrd = ws2.Range("D1").Value Then
rng.Offset(0, -1).Copy ws3.Cells(3, "AK")
wb = True
End If: End If
End If
Next rng
However, if I want to add another word in such as Excel then how do I add an Or? Is it:
Dim rng As Range, Wrd As String, wa As Boolean, wb As Boolean
Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
Dim ws3 As Worksheet: Set ws3 = Worksheets("Sheet3")
For Each rng In ws2.Range("B2:B" & ws2.Range("B" & Rows.Count).End(xlUp).Row)
Wrd = rng.Offset(0, 2)
If rng = "Test" Or "Excel" Then
If wa = False Then
If Wrd = ws2.Range("C1").Value Then
rng.Offset(0, -1).Copy ws3.Cells(3, "AJ")
wa = True
End If: End If
If wb = False Then
If Wrd = ws2.Range("D1").Value Then
rng.Offset(0, -1).Copy ws3.Cells(3, "AK")
wb = True
End If: End If
End If
Next rng
If I do this it doesn't work though!
Bookmarks