Çözüldü İki Ayrı sütundaki verileri eşleşiyor ise satırı taşıma

Sub ExcelTurkey()
    Dim i&, etf As Range
    With Sayfa1
        For i = 2 To .Range("C65536").End(3).Row
            Set etf = Sayfa2.Columns(2).Find(.Cells(i, 3).Value, , , 1)
            If Not etf Is Nothing Then
                If etf.Offset(0, -1).Value = .Cells(i, 2).Value Then
                    Sayfa2.Range("C" & etf.Row, "R" & etf.Row).Copy .Cells(i, "J")
                End If
            End If
        Next i
    End With
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    Set etf = Nothing: i = Empty
End Sub