PHP Kod:
Sub verilmeyenler()
Dim i As Long, son As Long, kelime As String, kelime2 As String
Dim plaka 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
plaka = .Cells(i, "D").Value
If Trim(plaka) <> "" Then
kelime = CStr(.Cells(i, "C").Value)
kelime2 = Mid(plaka, 1, Len(plaka) - 3) & kelime
If WorksheetFunction.CountIf(.Range("D3:D" & i), kelime2) > 0 Then
.Cells(i, "E").Value = ""
Else
.Cells(i, "E").Value = kelime2
End If
End If
Next
End With
1
Application.ScreenUpdating = True
End Sub
