Hücre içindeki verilere göre değer sayma

[furens]

Arkadaşlar nasıl anlatacağımı bilmiyorum inş.anlatabilirimi.Ekte gönderdiğim örnekte giriş sayfasının J sütununa suç isimleri giriliyor tabi bu haftalık 5000-10000 olabiliryor ve bunların kaç tanesi hangi suçtan olduğunu bulmak için eğersay formülü denedim ancak sorun suç ismi yazarken birebir eşleşme olmazsa saymıyor benim istediğim, j sütunundaki hücreler içerisinde mesela hırsızlık kelimelerini sayıp buna göre veri sayfasındaki hırsızlık suçunun karşısına toplamını yazması,
Veri sayfasındaki suç isimleri ekleme ve çıkartma yapılabilir temel olarak bu usulde nasıl yapılabileceğini örneğe uygulayarak yaparsanız daha sonradan ekleme ce çıkartma yapabileceğimi düşünüyorum.
Üstatlar başta anlatmaya çalıştığım gibi hücre içerisinde hırsızlık geçiyorsa hırsızlık olarak sayması ve veri bölümündeki hırsızlık toplamına aktarması. (mesela Motorlu taşıt hırsızlığı-Ev ve işyerinden hırsızlık-geceleyin hırsızlık gibi birsürü var onun için eğersay formülü olmuyor)
inş.anlatabilmişimdir. şimdiden tşk. formül kod bölümünde yazılırsa silinmemesi için daha iyiolur.

 

[orange4609]

=TOPLA.ÇARPIM((--ESAYIYSA(MBUL(PARÇAAL(A2;2;5);giriş!J2:J5000))<>0)*(giriş!O2:O5000))

O Sutunundaki hücrelerin tamamını 1 olarak yaparsanız sanırım olur.

 

[furens]

tşk.çalışıyor bu formülü kod bölümüne yazamazmıyız. böyle olması formülün başka arkadaşlar tarafından bozulmasına sebep olabiliyor.kod bölümü olursa formülü göremedikleri çin sıkıntı olmuyor.

 

[furens]

hocalarım bu işlem kod bölümünde yapılamazmı?

 

[ZorBey_]

Merhaba İyi Çalışmalar
Kod Yazamadığım Böyle Yardımcı OLmaya Çalıştım

Giriş Sayfasında Mevcut OLanlardan Başka Suç İsimleri Yazarsanız
Suç İsimleri Güncelleyi Tıklayın
VEri Sayfasında Suçun Adı Bölümünde Veri Doğrulama Vardır
Veri Sayfası Sayfa Korumada Formüller Silinemez
UMarım İstediğinize Yakın Bir Şey Olmuştur.

 

[ZorBey_]

Sayfa Koruması Şifresiz

 

[ZorBey_]

Merhaba
furens
İyi Çalışmalar
Bir De Bu Örneğe Bakarmısınız.

 

[furens]

emeğine sağlık çok güzel olmuş ama dediğim gibi örnek olarak verdiğim hırsızlığın birçok çeşidi var bunların hepsini hırsızlık olarak görmesi uyuşturucuyla ilgili kullanmak satın almak satmak gibi yani suç türlerinde birden fazla eklenti var ben uyuşturucu-hırsızlık-hakaret-yaralama- vb suç ismi içinden geçen bir kelimeyle istatistik oluşturmaktı.
Orange4609 verdiği formül tam benim isteğim kriterleri veriyor ama kod bölümüne modül olarak yapılamaz mı?

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dediğiniz Kod İle Yapmak
Mümkündür Tabi Ama
Kod Yazmadan Anlamadığım İçin
Size Kod Konusunda Yardımcı Olamıyorum
Umarım Bir Arkadaşımız Konuya Yardımcı Olur.
Konu İle İlgisi yok Ama
Arşivimde Olan Bir Dosyayı
Gönderiyorum Belki İşinize Yarar.
İyi Çalışmalar.

 

[furens]

inşaallah kod yazan bir arkadaş modüllü olarak yapıarsa sevinirim.

 

[Orion1]

inşaallah kod yazan bir arkadaş modüllü olarak yapıarsa sevinirim.

dosyanız ektedir.

Option Base 1
Sub istatistik59()
Dim z As Object, sat As Long, i As Long, liste(), sh As Worksheet
Sheets("giriş").Select
Set sh = Sheets("veri")
Application.ScreenUpdating = False
sh.Range("A2:B" & Rows.Count).ClearContents
sat = Cells(Rows.Count, "J").End(xlUp).Row
liste = Range("J2:J" & sat).Value
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), 1
        Else
        z.Item(liste(i, 1)) = z.Item(liste(i, 1)) + 1
    End If
Next i
Erase liste
sh.Range("A2").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
sh.Select
Set sh = Nothing
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[furens]

orion1 emeğin ve yardımın için çok tşk.mükemmel olmuş, ama benim istediğim açıkladığım gibi birden fazla hırsızlık-uyuşturucu yaralama vb. türlerini tek çatı altında toplaması idi ama neyse demekki olmuyor böyle idare etcez.tkr.tşk.
yinede sorayım aşağıdaki formül modüle uygulanamazmı?
orange4649
=TOPLA.ÇARPIM((--ESAYIYSA(MBUL(PARÇAAL(A2;2;5);giriş!J2:J5000))<>0) *(giriş!O2:O5000))

O Sutunundaki hücrelerin tamamını 1 olarak yaparsanız sanırım olur.