Copy information based on criteria using VBA

[alex_a]

Greetings,

I have the follwoing code developed:
For i = 35 To rcnt
If LCase(Range("D" & i).Value) = "no" Or LCase(Range("D" & i).Value) = "no-rq" Then
Range("A" & i).Copy (Sheets("1").Range("B" & j))
Range("C" & i).Copy (Sheets("1").Range("C" & j))
Range("F" & i).Copy (Sheets("1").Range("D" & j))
j = j + 1
End If
Next
End Sub
This code transfer infromation from one sheet to a sheet called "sheet 1" based on "no" answers. I am trying to transfer infromation to another sheet, called "sheet 2" if there is a "yes" answer. Your help is greatly appreciated.

 

[JLGWhiz]

You will need to edit the sheet and ranges, but this is the general idea.

For i = 35 To rcnt
If LCase(Range("D" & i).Value) = "no" Or LCase(Range("D" & i).Value) = "no-rq" Then
Range("A" & i).Copy (Sheets("1").Range("B" & j))
Range("C" & i).Copy (Sheets("1").Range("C" & j))
Range("F" & i).Copy (Sheets("1").Range("D" & j))
j = j + 1
ElseIf LCase(Range("D" & i).Value) = "yes"
Range("A" & i).Copy (Sheets("2").Range("B" & j))
Range("C" & i).Copy (Sheets("2").Range("C" & j))
Range("F" & i).Copy (Sheets("2").Range("D" & j))
End If
Next
End Sub