Kod:
Sub verilmeyenler()
Dim i As Long, son As Long, kelime As String, kelime2 As String
With ThisWorkbook.Worksheets("Sayfa1")
.Range("E3:E" & Rows.Count).ClearContents
son = .Range("C" & Rows.Count).End(3).Row
If son < 3 Then GoTo 1
Application.ScreenUpdating = False
For i = 3 To son
kelime = CStr(.Cells(i, "C").Value)
kelime2 = "99AL" & kelime
If WorksheetFunction.CountIf(.Range("D3:D" & i), kelime2) > 0 Then
.Cells(i, "E").Value = ""
Else
.Cells(i, "E").Value = kelime2
End If
Next
End With
1
Application.ScreenUpdating = True
End Sub