kelimeyi 1 sayıp aynı hücredeki rakamla toplama

[hedjaz]

Arkadaşlar mesela A2 hücresinde {3+beyaz yaka } yazıyor. beyaz yaka kelimesini 1 sayıp hücreyi 3 + 1 şeklinde yani 4 olarak belirtebilir miyiz?

 

[Mahir64]

Merhaba,

Beyaz Yaka yazısı sabit mi?
Kaç tane geçiyor?
Hepsi 1 olacak?

 

[hedjaz]

beyaz yaka sabit
sadece 1 kez geçiyor.
hepsi 1 olacak

örnek olması açısından bir dosya ekliyorum.

 

[Mahir64]

Merhaba,

Oldumu derseniz? Oldu... Bir deneyin...

=EĞERHATA(EĞER(EĞERSAY(A2;"beyaz yaka")>0;1+B2;YERİNEKOY(A2;"+beyaz yaka";"")+EĞERSAY(A2;"*+beyaz yaka*")+B2);ARA(9,99999999999999E+307;--SOLDAN(DEĞİŞTİR(A2;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};A2&"0123456789"))-1;"");SATIR($A$1:$A$100)))+B2)

 

[hedjaz]

Mahir Bey çok teşekkür ederim. dediğiniz gibi oldu.

"*+beyaz yaka*" ve 9,99999999999999E+307 bu ikisi ne anlama geliyor

 

[tahsinanarat]

Mavi yaka da var, o sayılmayacakmı.

 

[Mahir64]

"*+beyaz yaka*" İçinde beyaz yaka geçiyorsa...

9,99999999999999E+307 Excel'in kabul ettiği en büyük değer...

Aslında kısaltılabilir gibi geliyor, ben sadece soruyu çözmek için cevap yazdım. Üzerinde çalışacağım.

 

[hedjaz]

tekrar teşekkürler, zahmet verdim. ben de formulünüzü çözmek için kolları sıvayayım

 

[YUSUF44]

Sorun çözülmüş ancak ben olsam böyle bir tablo yerine beyaz yaka ve mavi yakaları ayrı sütunda gösterirdim.

 

[Korhan Ayhan]

Merhaba,

Ben bu tarz işlemlerde genellikle kullanıcı tanımlı fonksiyon kullanmayı tercih ediyorum. Yerleşik işlevlerle hücredeki dinamik veriyi parçalamak zor oluyor. Çok uzun formüller yazmak zorunda kalıyorsunuz.

Ekteki örnek dosyayı inceleyiniz.

Kullanılan fonksiyon;

Function KTOPLA(Alan As Range, Kriter As String)
    Dim Veri, Eleman, X
    For Each Veri In Alan
        Eleman = Split(Veri.Value, Kriter)
        For X = 0 To UBound(Eleman)
            If IsNumeric(Eleman(X)) Then
                KTOPLA = KTOPLA + CDbl(Eleman(X))
            Else
                KTOPLA = KTOPLA + 1
            End If
        Next
    Next
End Function

 

[hedjaz]

Mahir Bey size de çok teşekkürler. makro bilmediğim için fonksiyonlar üzerinden gitmeye çalışmaktaydım.

Herkese saygılar