Hücre İçindeki Metinden Kişi Sayısı Bulmak

[kneehot]

Arkadaşlar merhaba, yapmak istediğim hücre içinde virgül ile ayrılmış şekilde hangi personeller olduğu yazıyor fakat çoğu satırda aynı görevde birden fazla kişi olduğu zaman örnek olarak "Güvenlik, Muhasebe, Depocu X 2, Bahçıvan," Depocu X 2 olarak görünüyor ve toplam kişi sayısının 5 bulunması lazım. bazı satırlarda "Temizlik Görevlisi X 2, Elektrikçi, Bahçıvan X 3," şeklinde 2 adet X var. Maalesef beceremedim yardım ederseniz çok mutlu olurum. Belki daha anlaşılır olur diye örnek bir dosya da ekledim. Tüm yardımlara şimdiden teşekkürler.

 

[Korhan Ayhan]

Paylaştığınız dosyaya göre aşağıdaki metinde ulaşmak istediğiniz sonuç nedir?

5 Elma, 9 Armut, 7 Muz, 4 Erik, 2 Kara Üzüm

 

[kneehot]

Paylaştığınız dosyaya göre aşağıdaki metinde ulaşmak istediğiniz sonuç nedir?

5 Elma, 9 Armut, 7 Muz, 4 Erik, 2 Kara Üzüm

Çok özür dilerim yanlış dosya eklemişim, düzelttim şimdi tekrar bakabilirseniz çok sevinirim

 

[Mustafa MUTLU]

Sub MUTLU()
Range("C2:C65536").ClearContents
For MM = 3 To Range("b65536").End(xlUp).Row
Say1 = 0
Say2 = 0
YY = Len(Cells(MM, "b"))
If YY > 2 Then
For XX = 1 To YY + 1
If Mid(Cells(MM, "b"), XX, 1) = "X" Then
Say1 = Say1 + Mid(Cells(MM, "b"), XX + 2, 1) - 1
End If
If Mid(Cells(MM, "b"), XX, 1) = "," Then
Say2 = Say2 + 1
End If
Next
Cells(MM, "c") = Say1 + Say2
End If
Next
End Sub

 

[Korhan Ayhan]

Ofis 365 sürümü için alternatif;

"X 5" değerine kadar hesaplar.

Eğer formülü kısaltabilirsem paylaşırım.

=TOPLA(EĞER(ESAYIYSA(MBUL(" X ";KIRP(METİNBÖL(SOLDAN(B3;UZUNLUK(B3)-1);;","))));0;1))+(UZUNLUK(B3)-UZUNLUK(YERİNEKOY(B3;" X 2";"")))/4*2+(UZUNLUK(B3)-UZUNLUK(YERİNEKOY(B3;" X 3";"")))/4*3+(UZUNLUK(B3)-UZUNLUK(YERİNEKOY(B3;" X 4";"")))/4*4+(UZUNLUK(B3)-UZUNLUK(YERİNEKOY(B3;" X 5";"")))/4*5

 

[excelokyanus500]

Belki böyle bir fonksiyon olabilir, deneyin.

Function Say(Hucre As Variant)

Dim i As Integer
Dim say2 As Integer
ayrac = ","
For i = 1 To Len(Hucre)
    If IsNumeric(Mid(Hucre, i, 1)) Then
        Say = Say + Val(Mid(Hucre, i, 1) - 1)
    End If
Next i
say2 = UBound(Split(Hucre, ayrac)) + 1
Say = Say + say2
End Function

 

[Korhan Ayhan]

Ekteki dosyada da alternatif olarak KTF çözümü bulunmaktadır. Forumun arşivinde bulunması açısından paylaşıyorum.

 

[kneehot]

Çok teşekkürler tüm yardımlar için