Listedeki tekrarlayan sayıları silme ve tekrarlama sayılarınu bulma

[cenkozkurt]

Merhabalar,

Makroyla oluşan bir listedeki tekrar eden verileri tek değere düşürüp daha sonrada kaç kere tekrar ettiklerini ve son olarakta küçükten büyüğe sıralayan bir kod yazmam gerekiyor. Forumda benzer konular var ancak kendi dosyama uyguladığımda birkaç hata çıkıyor.

Userformdaki değerler;

Başlangıç saat: 00:00
Aralık: 15
Yazılacak Hücre: g1 olsun.

Yardımcı olursanız sevinirim. Şimdiden teşekkürler.

 

[askm]

Userformda ne yaptığınızı anlamadım.
Teke indirme ve adetlerini sayna işlemi için aşağıdaki kodalrı kullanabilirsiniz.

Sub ASKM_TekIndir_Say()
Dim SonSat As Long
SonSat = Range("K" & Rows.Count).End(xlUp).Row
For i = 1 To SonSat
    If WorksheetFunction.CountIf(Range("K1:K" & i), Cells(i, "K")) = 1 Then
        a = a + 1
        Cells(a, "P") = Cells(i, "K")
    End If
Next
For x = 1 To a
    Cells(x, "Q") = WorksheetFunction.CountIf(Range("K1:K" & SonSat), Cells(x, "P"))
Next
MsgBox "Değerler teke indirildi ve Adet sayıldı...", vbInformation, "ASKM"
End Sub

 

[cenkozkurt]

Userformda ne yaptığınızı anlamadım.
Teke indirme ve adetlerini sayna işlemi için aşağıdaki kodalrı kullanabilirsiniz.

Sub ASKM_TekIndir_Say()
Dim SonSat As Long
SonSat = Range("K" & Rows.Count).End(xlUp).Row
For i = 1 To SonSat
    If WorksheetFunction.CountIf(Range("K1:K" & i), Cells(i, "K")) = 1 Then
        a = a + 1
        Cells(a, "P") = Cells(i, "K")
    End If
Next
For x = 1 To a
    Cells(x, "Q") = WorksheetFunction.CountIf(Range("K1:K" & SonSat), Cells(x, "P"))
Next
MsgBox "Değerler teke indirildi ve Adet sayıldı...", vbInformation, "ASKM"
End Sub

Teşekkürler.

 

[askm]

Rica ederim.