metin içindeki rakamların toplamını almak istiyorum.

[jinken]

Merhabalar,

Aşağıdaki şekilde bir listem var, açıklama kısmında geçen rakamların toplamını nasıl alabilirim.

473​	73 ad hazır üretilmeli ilk boşlukta, 200 adet 16/24, 200 adet 24/08 üretime alınmalı
800​	400 adet 16/24, 400 adet 24/08
600​	200 adet bugün, 200 adet yarın sabah, 200 adet Cumartesi 16/24 üretime alınmalı
600​	200 adet 16/24, 200 adet 24/08, 200 adet yarın sabah üretime alınmalı
300​	bugün üretime alınmalı
200​	200 adet 16/24 yada 24/08 üretime alınmalı

 

[Muzaffer Ali]

Merhaba.
Yeni bir modüle oluşturun aşağıdaki kodu kopyalayın.

Function ToplamRakamlar(Metin As String) As Long
    Dim Ba As Long
    Dim Toplam As Long
    Dim Bolumler() As String
    Bolumler = Split(Metin, " ")
    
    For Ba = LBound(Bolumler) To UBound(Bolumler)
        If InStr(Bolumler(Ba), "/") = 0 Then
            If IsNumeric(Bolumler(Ba)) Then
                Toplam = Toplam + CLng(Bolumler(Ba))
            End If
        End If
    Next
    ToplamRakamlar = Toplam
End Function

Excel'e yeni bir formül eklemiş olduk
Sayfada normal formül olarak kullanabilirsiniz.
Örnek: Veriler B sütunundaysa =ToplamRakamlar(B1) formülünü C1'e kopyalayın.

 

[jinken]

Muzaffer Ali bey elinize sağlık teşekkür ederim.

 

[Korhan Ayhan]

Ofis 365 sürümü için alternatif olsun...

=SUM(IFERROR(--TEXTSPLIT(SUBSTITUTE(B1;"/";"|");" ";;1);0))

 

[muratgunay48]

Merhaba.
Yeni bir modüle oluşturun aşağıdaki kodu kopyalayın.

Function ToplamRakamlar(Metin As String) As Long
    Dim Ba As Long
    Dim Toplam As Long
    Dim Bolumler() As String
    Bolumler = Split(Metin, " ")
   
    For Ba = LBound(Bolumler) To UBound(Bolumler)
        If InStr(Bolumler(Ba), "/") = 0 Then
            If IsNumeric(Bolumler(Ba)) Then
                Toplam = Toplam + CLng(Bolumler(Ba))
            End If
        End If
    Next
    ToplamRakamlar = Toplam
End Function

Excel'e yeni bir formül eklemiş olduk
Sayfada normal formül olarak kullanabilirsiniz.
Örnek: Veriler B sütunundaysa =ToplamRakamlar(B1) formülünü C1'e kopyalayın.

Hocam, emeğinize sağlık.
Peki bu fonksiyonu hücredeki tüm rakamları toplamak için nasıl revize edebiliriz? Yani arada boşluk olmayabilir, işaret yok. Sadece rakamları görecek.
Mesela 50aaa50aaa50aaa50 olabilir. 50aaa 50+50aaa /50 olabilir. Her hâlükârda sadece rakamları görecek.
Fonksiyon olarak çok kullanışlı olacaktır. Çok güzel bir çalışma olmuş.

 

[Muzaffer Ali]

Bütün rakamları toplar.

Function ToplaTumRakamlar(Metin As String) As Double
    Dim Bak As Integer
    Dim Toplam As Double
    Dim Geçici As String

    For Bak = 1 To Len(Metin)
        If IsNumeric(Mid(Metin, Bak, 1)) Then
            Geçici = Geçici & Mid(Metin, Bak, 1)
        Else
            If Geçici <> "" Then
                Toplam = Toplam + Val(Geçici)
                Geçici = ""
            End If
        End If
    Next

    If Geçici <> "" Then
        Toplam = Toplam + Val(Geçici)
    End If

    ToplaTumRakamlar = Toplam
End Function

 

[Korhan Ayhan]

Ofis 365 için alternatif..

=SUM(--TEXTSPLIT(REGEXREPLACE(A1;"[^\d,]+";";");";";;1))

 

[muratgunay48]

Ofis 365 için alternatif..

=SUM(--TEXTSPLIT(REGEXREPLACE(A1;"[^\d,]+";";");";";;1))

Ekli dosyayı görüntüle 256043

Hocam emeğinize sağlık ama siz her zaman lisan alternatifi yazardınız. Mesela bende hata veriyor.
=TOPLA(--METİNBÖL(REGEXREPLACE(B1;"[^\d,]+";";");";";;1))
Şeklinde yazdım
REGEXREPLACE bulamadım. İnternette de araştırdım bulamadım.

Mesela
=SUM(IFERROR(--TEXTSPLIT(SUBSTITUTE(B1;"/";"|");" ";;1);0))
=TOPLA(EĞERHATA(--METİNBÖL(YERİNEKOY(B1;"/";"|");" ";;1);0))
Şeklinde yazmıştım.
Teşekkür ederim.
Saygılarımla.

 

[muratgunay48]

Bütün rakamları toplar.

Function ToplaTumRakamlar(Metin As String) As Double
    Dim Bak As Integer
    Dim Toplam As Double
    Dim Geçici As String

    For Bak = 1 To Len(Metin)
        If IsNumeric(Mid(Metin, Bak, 1)) Then
            Geçici = Geçici & Mid(Metin, Bak, 1)
        Else
            If Geçici <> "" Then
                Toplam = Toplam + Val(Geçici)
                Geçici = ""
            End If
        End If
    Next

    If Geçici <> "" Then
        Toplam = Toplam + Val(Geçici)
    End If

    ToplaTumRakamlar = Toplam
End Function

Hocam emeğinize sağlık. Çok güzel ve faydalı bir çalışma olmuş.

 

[Korhan Ayhan]

Oltayı verdim... Balığı siz tutun dedim ama siz balığıda benden istiyorsunuz.

REGEXREPLACE fonksiyonu ofis 365 sürümünde insider kanal üyeleri için aktif olabilir.. Bu kanala üye değilseniz sizde çalışmayabilir.

 

[muratgunay48]

Oltayı verdim... Balığı siz tutun dedim ama siz balığıda benden istiyorsunuz.

REGEXREPLACE fonksiyonu ofis 365 sürümünde insider kanal üyeleri için aktif olabilir.. Bu kanala üye değilseniz sizde çalışmayabilir.

Hocam, her zaman sizin yol göstermelerinizle gitmeye çalışıyorum. Araştırıyorum. Öğreniyorum. Sağ olun Var olun. Doğru bir öğreti, "Balık verme, balık tutmayı öğret"
Yok hocam, o kanala üyeliğim yok. Sanırım o yüzden olmadı. O yönde araştırma yapmamıştım. Yerine Türkçe fonksiyon diye araştırma yaptım.
Yine de teşekkür ederim.

 

[Korhan Ayhan]

Nette bulamadığınızı ifade etmişsiniz. Nasıl aradınız bilemiyorum. Ben aşağıdaki şekilde yazınca çıkıyor...

REGEXREPLACE İşlevi - Microsoft Desteği

support.microsoft.com

.

 

[muratgunay48]

Nette bulamadığınızı ifade etmişsiniz. Nasıl aradınız bilemiyorum. Ben aşağıdaki şekilde yazınca çıkıyor...

REGEXREPLACE İşlevi - Microsoft Desteği

support.microsoft.com

.

Hocam sürekli şöyle aradım
excel regexreplace Türkçe karşılığı
Öğrenmiş oldum. Teşekkür ederim.
Özellikle öğretme düşüncenize ve sabrınıza

 

[haliliyas]

Hocam, emeğinize sağlık.
Peki bu fonksiyonu hücredeki tüm rakamları toplamak için nasıl revize edebiliriz? Yani arada boşluk olmayabilir, işaret yok. Sadece rakamları görecek.
Mesela 50aaa50aaa50aaa50 olabilir. 50aaa 50+50aaa /50 olabilir. Her hâlükârda sadece rakamları görecek.
Fonksiyon olarak çok kullanışlı olacaktır. Çok güzel bir çalışma olmuş.

ondalık sayılar olabilir mi?

 

[muratgunay48]

ondalık sayılar olabilir mi?

Hayır toplamaz. Muzaffer Ali hocamın yazdığı kod, hücre içindeki RAKAM'lardan oluşmuş SAYI'ları görür ve toplar yani birleşik de olsa, ayrı da olsa /*-+(=+%&/ gibi sembolleri ve harfleri dikkate almaz. Rakam nedir biliyorsunuz 0-9
Kolay gelsin.
Saygılarımla.

 

[haliliyas]

Hayır toplamaz. Muzaffer Ali hocamın yazdığı kod, hücre içindeki RAKAM'lardan oluşmuş SAYI'ları görür ve toplar yani birleşik de olsa, ayrı da olsa /*-+(=+%&/ gibi sembolleri ve harfleri dikkate almaz. Rakam nedir biliyorsunuz 0-9
Kolay gelsin.
Saygılarımla.

açıklama için teşekkürler,
bazen insanlar sayı yerine rakam yada tersini kullandıkları için emin olamadım o nedenle sormuştum.

 

[Erdem Akdemir]

Alternatif dizi formülü,

=TOPLA(EĞERHATA(--(YERİNEKOY(KIRP(PARÇAAL(YERİNEKOY(" "&B1;" ";YİNELE(" ";255));SATIR($1:$99)*255;255));"/";"|"));0))