Soru Alta Alta 3 defa tekrar eden veriyi nasıl bulabilirim

[imranran]

Bir sutun da 500 satır girili mesela adana istanbul tokat ankara ankara ankara tabi bunlar alt alta ben sıralama biçimini bozmadan yani tarihe göre olsun alfabetik sıraya göre olsun sıralamadan sitenin bana getirdigi veriyi bozmadan sadece alt alta 3 defa tekrar eden rakam yada yazıyı sag tarafta ok yazsın yada isaretlensin istiyorum nasıl yapabilirim

 

[imranran]

sadece c sutunumdaki veriler 3 defa alt alta tekrarlarsa k stununa tamam yazsın yada ok yazsın istiyorum bu kadar

 

[Orion1]

sadece c sutunumdaki veriler 3 defa alt alta tekrarlarsa k stununa tamam yazsın yada ok yazsın istiyorum bu kadar

Buyurun.

Sub benzerler_59()
Dim i As Integer, sonsat As Integer
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("C" & i & ":C" & i + 2), Cells(i, "C").Value) = 3 Then
        Cells(i, "K").Value = "Ok"
    End If
Next i
MsgBox "Bitti"
End Sub

 

[imranran]

Mükemmel bir değersiniz teşekkür ediyorum

 

[Orion1]

Mükemmel bir değersiniz teşekkür ediyorum

Rica ederim.
İyi çalışmalar.

 

[metin_0606]

Rica ederim.
İyi çalışmalar.

Evren hocam saygılar yardımınıza ihtiyacim var ilgilenirseniz sevinirim
link:https://www.excel.web.tr/threads/sayfa-goester-gizle.182297/