Veri eşitse..!

[sensizsoldum]

Merhaba,
Rapor ve Gönderilenler isimli sayfa olmak üzere iki sayfamız var.
Rapor sayfası N3:N, Gönderilenler sayfası B3:B eşitse, Gönderilenler sayfası F3:F, Rapor sayfasının O3:O yazmasını bir buton yardımıyla nasıl yapabiliriz. Yardımcı olabilir misiniz?
Örnek çalışma ekleyemiyorum şirkette olduğumdan.

 

[snx111]

hobaaaa

Sub laN() '
    Dim X As Long, Son_Satır As Long
     On Error Resume Next
 
    Sheets("RAPOR").Select
    Range("o3:o1048576").Clear
    Son_Satır = Sheets("Gönderilenler").Range("n1048576").End(3).Row
     For X = 3 To Son_satır
     
        If Sheets("Gönderilenler").Cells(X, "b") <> "" Then
            If Sheets("Gönderilenler").Cells(X, "b") = Sheets("RAPOR").Cells(X, "n") Then Sheets("Gönderilenler").Range("f" & X).Copy Sheets("Rapor").Cells(X, "o")
       End If
    Next
   
End Sub

gelişmişi

Sub genel()
' GENEL oran
    Dim X As Long, Satır As Long, Son_Satır As Long, Formul As String
 
    'Sayfa4.Hidden = True
 
    Sheets("RAPOR").Select
    Range("o3:o1048576").Clear
    Son_Satır = Sheets("Gönderilenler").Range("b1048576").End(3).Row
     For X = 3 To Son_Satır
        If Sheets("Gönderilenler").Cells(X, "b") <> "" Then
            Formul = "=SUMPRODUCT((gönderilenler!j3:j1048576=j" & X & ")*(rapor!b3:b1048576=b" & X & "),ROW(3:1048576))"
            Satır = Evaluate(Replace(Formul, 1048576, Son_Satır))
            If Satır > 0 Then Sheets("Gönderilenler").Range("f" & X).Copy Sheets("Rapor").Cells(X, "o")
    
        End If
    Next
 'Sayfa6.Hidden = True
    MsgBox "ok"
End Sub