Rakam ve Harf Bulunan Hücre Toplamı Hk

[H.SAHIN]

250 kişi çalışan işçilerin puantaj işleminde kullanacağım.

Sutunlar içerinde bulunan 3sa , 4sa, 5sa gibi rakam ve harf içeren verileri toplama işlemlerini nasıl yapa bilirim. toplamın rakamsal gelmesi gerekiyor.
Tşk.

 

[dEdE]

Merhaba,
Fonksiyon olarak yapılabilir mi bilmiyorum.
Makrolu çözüm için aşağıdaki kodları önerebilirim.

Sub SayıyıMetindenAyırTopla()
With CreateObject("VBScript.RegExp")
    .Global = True
    toplam = 0
    For sat = 5 To [F65536].End(3).Row
        For sut = 6 To 37
            txt = Cells(sat, sut)
            .Pattern = "[^\d]"
            toplam = Val(.Replace(txt, "")) + toplam
        Next
        Cells(sat, 42).Value = toplam
        toplam = 0
    Next
End With
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki dizi formülünü AP5 hücresine uygulayıp deneyiniz.

=TOPLA(EĞER(ESAYIYSA(YERİNEKOY(F5:AJ5;"sa";"")+0);(YERİNEKOY(F5:AJ5;"sa";"")+0)))

Dizi formülü hücreye yazdıktan sonra hücreyi CTRL+SHIFT+ENTER tuşlarına basıp terk ediniz. Aksi halde hatalı sonuç döndürür.

 

[H.SAHIN]

İlginiz için teşekkür ederim.

işlem tamamdır.