Bir sutündaki değerlerin tekrar sayısını bulan makro?

[komodor64]

Selamlar.... Şöyle bir sorunum var.
Elimde 25 sutunlu 6000 satırlı dosyalar var. Bundan h-k-n sutunundaki bilgileri süzerek kaçar adet oldugunu bulmam lazım.

Örnegin h sutunundaki 30051 sicilli bi kişinin şifre arması kaç adet yapmış
Bu işlemi süz ile yapıyorum fakat 80 kişi tek tek 4-5 saatimi alıyor.

 

[Orion1]

Küçük bir örnek dosya yollarsanız ve üzerinde tarif ederseniz daha çabuk cevap alabilirsiniz gibime geliyor.

 

[komodor64]

Dosyanın içerisinde action stunuda arama türleri var
örneğin not bırakıldı ve orda action user stunu var
userdeki 11111 nolu kişi kaç tane not bırakıldı kodu girmiş
ve 11111 nolu kişi günde kaç tane kod kapatmış yani müşteri numarasını girdiğimde otomatik olarak bu sayıyı bulmak istiyorum.

Yardımcı olursanız çok sevinirim.

 

[Serdar SELEN]

Egersay formulu kullanarak yaptım ama bır akın ıstersenız.Dosya ekte.

 

[komodor64]

Teşekkür ederim hocam. Makro ile yapabilirsek bu işlemi biraz daha profesyonel olurmu diye düşünüyorum

 

[Serdar SELEN]

Kod yazma konusunda bende acemıyım ama ustadlarım yardımcı olurlar.

 

[komodor64]

Çok teşekkür ederim hocam. Makro ile biraz daha profesyonel bişey yapabiliriyiz acaba?

 

[komodor64]

Hocam burdaki problem şu. Senin yaptığın formülde sadece bırakılan not sayılarını görüyosun. Fakat bana 11111 nolu kişinin bıraktığı not sayısı lazım. Yani bırakılan not sayısı değil. Kişiye ait bırakılan not sayısı.

 

[Orion1]

Teşekkür ederim hocam. Makro ile yapabilirsek bu işlemi biraz daha profesyonel olurmu diye düşünüyorum

Buyurun size işte prof çözüm.
Dosyanız ekte.

Private Sub UserForm_Initialize()
Dim i As Long, x As Long, tekrar As Long
ListBox1.ColumnCount = 2
    For i = 2 To Cells(65536, "J").End(xlUp).Row
        If WorksheetFunction.CountIf(Range("J2:J" & i), Cells(i, "J").Value) = 1 Then
            tekrar = WorksheetFunction.CountIf(Range("J2:J65536"), Cells(i, "J").Value)
            ListBox1.AddItem
            ListBox1.Column(0, x) = Cells(i, "J").Value
            ListBox1.Column(1, x) = tekrar
            x = x + 1
        End If
    Next i
    Label3.Caption = "Listelenen : " & ListBox1.ListCount & " Adet"
End Sub

 

[komodor64]

Cevabınız için çok teşekkür ederim. Fakat burda sütündaki 11111 değerlerin sayısını veriyor.

Zannedersem ne istediğimi tam olarak anlatamadım.
Benim istediğim ise J sütununda bulunan action user kodlarından hangisi girilirse bu koda ait olan H sütunundaki ACtion adı sayısını veren bir makro oluşturmak.
Örneğin dosyada herhangi bir hücrede Action user kodunu giriniz yazacak. Ve yine başka bir hücrede Action adını giriniz yazacak. Bu hücrelerin içeriğine bakılarak X nolu kullanıcıya ait olan Mesela Outbound Aranacak Liste sayısını veren bir makro olacak.


Yani kişi diyelim ki Action user kodunu 11111 girdi. Bu kişiye ait olan Outbound Aranacak Liste sayısını, Güvenlik Teyidi Yapılamadı Kart İptali İstiyor sayısını, Not Bırakıldı sayısını otomatik olarak verecek.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[komodor64]

Çok teşekkür ederim. Ellerinize emeğinize sağlık tam istediğim gibi olmuş. İyi çalışmalar kolay gelsin...

 

[Orion1]

Çok teşekkür ederim. Ellerinize emeğinize sağlık tam istediğim gibi olmuş. İyi çalışmalar kolay gelsin...

Rica ederim.
İyi çalışmalar dilerim.