Match Values from 2 Columns copy to another Sheet

[healey21]

I have the following code which works for finding and data from one column and copies to another sheet, but I would like to use 2 options, how would I adapt this say for Column E and Column J

E = "Yes" and J = "Feb"

Private Sub cmdTryME_Click()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("E" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If .Range("E" & i).Value = "Yes" Then .Rows(i).Copy Destination:=Sheets("Rooms").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End With
End Sub

 

[VoG]

Try

Private Sub cmdTryME_Click()
Dim LR As Long, i As Long
With Sheets("Sheet1")
    LR = .Range("E" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If .Range("E" & i).Value = "Yes" And .Range("J" & i).Value = "Feb" Then .Rows(i).Copy Destination:=Sheets("Rooms").Range("A" & Rows.Count).End(xlUp).Offset(1)
    Next i
End With
End Sub

 

[healey21]

Peter,

Thank you this works lovely.