Copy Specific Cells to another Worksheet When Condition Met

[iamwickid]

I am looking for a way to modify this current VBA code I have working. What it is currently doing is once anything in column 7 is "yes" it will copy the entire row to the next available row of another sheet titled "Error Log".
However what I want it to do is only copy "cell A, E and F" from the same row that the "yes" has been met. My current code is below. Help is greatly appreciated!


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Target = "Yes" Then
Application.EnableEvents = False
nxtRow = Sheets("Error Log").Range("A" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy _
Destination:=Sheets("Error Log").Range("A" & nxtRow)
End If
End If
Application.EnableEvents = True
End Sub

 

[Fluff]

Hi & welcome to the board.
Try

Intersect(Target.EntireRow, Range("A:A,E:F")).Copy _
Destination:=Sheets("Error Log").Range("A" & nxtRow)

 

[Fluff]

Cross posted https://www.ozgrid.com/forum/forum/...cells-to-another-worksheet-when-condition-met

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[iamwickid]

Cross posted https://www.ozgrid.com/forum/forum/...cells-to-another-worksheet-when-condition-met

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Thanks for the info.