Deneme için J sütununa veri getirttim.Siz başka safa yada sütuna uyarlarsınız.
Kod:
Private Sub CommandButton1_Click()
Dim son As Long, i As Long, k As Long, say As Long
Dim s1 As Worksheet: Set s1 = Sayfa1
Dim s13 As Worksheet: Set s13 = Sayfa13
Dim kacinci As Long
son = Sayfa1.Cells(Rows.Count, "F").End(3).Row
say = 12
s13.Range("J12:J" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 12 To son
On Error Resume Next
kacinci = WorksheetFunction.Match(s1.Cells(i, "F").Value, s13.Range("L:L"), 0)
If kacinci = 0 Then
s13.Cells(say, "J").Value = s1.Cells(i, "F").Value
say = say + 1
End If
Next
Application.ScreenUpdating = True
Set s1 = Nothing: Set s13 = Nothing
End Sub
