Kod:
Dim bul As Range
Dim say As Integer
Dim s1 As Worksheet: Set s1 = Sayfa1
Dim s13 As Worksheet: Set s13 = Sayfa13
say = 12
Application.ScreenUpdating = False
With s13
.Range("P12:P" & Rows.Count).ClearContents
For i = 2 To s1.Cells(Rows.Count, "F").End(3).Row
On Error Resume Next
Set bul = .Range("H:H").Find(s1.Cells(i, "F").Value, , xlValues, 1)
If bul Is Nothing Then
.Cells(say, "P").Value = s1.Cells(i, "F").Value
say = say + 1
End If
Next
If say > 0 Then .Range("P12:P" & say).RemoveDuplicates Columns:=1, Header:=xlNo
End With
Application.ScreenUpdating = True
MsgBox "Bitti", vbInformation
Set bul = Nothing
Set s1 = Nothing
Set s13 = Nothing