Metin içeren hücredeki sayıları toplama

S

sinan05

Katılım
16 Kasım 2017
Mesajlar
255
Excel Vers. ve Dili
office professional plus 2021
İyi günler. Metin ve sayılar içeren hücrelerdeki sayıları toplamak istiyorum. Örneğin A2 hücresinde "kalem 500 silgi 300 defter 250" ibaresi var. Ben bu A2 hücresindeki 500,300,250 sayılarının toplanmasını istiyorum. Yardımlarınız için teşekkürler.
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Alternatif olsun.

Eğer VBA ile yapmak isterseniz , dosyanıza yeni bir Module ekleyip aşağıdaki kodu kopyalayın.

Kod: 
Public Function ToplaRakam(txt As String) As Double
    Dim prc As Variant
    Dim Bak As Integer
    prc = Split(txt, " ")
    For Bak = 0 To UBound(prc)
        If IsNumeric(prc(Bak)) Then
            ToplaRakam = ToplaRakam + prc(Bak)
        End If
    Next
End Function
Kullanımı, Excel sayfasında normal bir fonksiyon gibi kullanacaksınız.
Metnin A1 de yazdığını var sayarsak.
Kod: 
=ToplaRakam(A1)
 
Y

yanginci34

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,627
Excel Vers. ve Dili
excel2016
Altın Üyelik Bitiş Tarihi
12-10-2026
Aşağıdaki kodu
Alt+F11 e basıp kod penceresinde bir modül ekleyip fonksiyonu oraya yapıştırın
ardından toplamını almak istediğiniz hücreye =SumNumbers(A1) yazıp deneyin buradaki A1 sayı ve metinlerin birlikte yazıldığı hücredir
Kod: 
Function SumNumbers(rngS As Range, Optional strDelim As String = " ") As Double
    Dim xNums As Variant, lngNum As Long
    xNums = Split(rngS, strDelim)
    For lngNum = LBound(xNums) To UBound(xNums) Step 1
        SumNumbers = SumNumbers + Val(xNums(lngNum))
    Next lngNum
End Function
 
S

sinan05

Katılım
16 Kasım 2017
Mesajlar
255
Excel Vers. ve Dili
office professional plus 2021
Muzaffer Ali' Alıntı:
Merhaba.
Alternatif olsun.

Eğer VBA ile yapmak isterseniz , dosyanıza yeni bir Module ekleyip aşağıdaki kodu kopyalayın.

Kod: 
Public Function ToplaRakam(txt As String) As Double
    Dim prc As Variant
    Dim Bak As Integer
    prc = Split(txt, " ")
    For Bak = 0 To UBound(prc)
        If IsNumeric(prc(Bak)) Then
            ToplaRakam = ToplaRakam + prc(Bak)
        End If
    Next
End Function
Kullanımı, Excel sayfasında normal bir fonksiyon gibi kullanacaksınız.
Metnin A1 de yazdığını var sayarsak.
Kod: 
=ToplaRakam(A1)
Genişletmek için tıkla ...
hocam çok teşekkür ederim. fakat ben çalışma kitabımdaki ANA SAYFA adlı sayfanın V sütunundaki hücreler için bu formülü kullanmak istiyorum. O şekilde uyarlayabilirmiyiz.
 
S

sinan05

Katılım
16 Kasım 2017
Mesajlar
255
Excel Vers. ve Dili
office professional plus 2021
yanginci34' Alıntı:
Aşağıdaki kodu
Alt+F11 e basıp kod penceresinde bir modül ekleyip fonksiyonu oraya yapıştırın
ardından toplamını almak istediğiniz hücreye =SumNumbers(A1) yazıp deneyin buradaki A1 sayı ve metinlerin birlikte yazıldığı hücredir
Kod: 
Function SumNumbers(rngS As Range, Optional strDelim As String = " ") As Double
    Dim xNums As Variant, lngNum As Long
    xNums = Split(rngS, strDelim)
    For lngNum = LBound(xNums) To UBound(xNums) Step 1
        SumNumbers = SumNumbers + Val(xNums(lngNum))
    Next lngNum
End Function
Genişletmek için tıkla ...
hocam eksik olmayın sağolun. Yukardaki cevabda da yazdım ama aslen ben çalışma kitabımdaki ANA SAYFA adlı sayfanın V sütunundaki hücreler için bu formülü kullanmak istiyorum. O şekilde çalışırmı kodlar yani tüm sayfayı mı içeriyor. Birde ben bu kodları başka sayfa da bulup dediğiniz gibi modül ekleyip denedim ama olmamıştı.
 
S

sinan05

Katılım
16 Kasım 2017
Mesajlar
255
Excel Vers. ve Dili
office professional plus 2021
Muzaffer Ali' Alıntı:
Merhaba.
Alternatif olsun.

Eğer VBA ile yapmak isterseniz , dosyanıza yeni bir Module ekleyip aşağıdaki kodu kopyalayın.

Kod: 
Public Function ToplaRakam(txt As String) As Double
    Dim prc As Variant
    Dim Bak As Integer
    prc = Split(txt, " ")
    For Bak = 0 To UBound(prc)
        If IsNumeric(prc(Bak)) Then
            ToplaRakam = ToplaRakam + prc(Bak)
        End If
    Next
End Function
Kullanımı, Excel sayfasında normal bir fonksiyon gibi kullanacaksınız.
Metnin A1 de yazdığını var sayarsak.
Kod: 
=ToplaRakam(A1)
Genişletmek için tıkla ...
Evet hocam şimdi denedim oldu. Çok sağolun eksik olmayın. Çok işime yaradı.
 
akara.88

akara.88

Altın Üye
Katılım
23 Mayıs 2016
Mesajlar
63
Excel Vers. ve Dili
2013 TR
Altın Üyelik Bitiş Tarihi
12.10.2026
kulomer46' Alıntı:
Merhaba

2020 yılında buna benzer bir talep gelince Ek 'teki dosyayı hazırlamıştık.
Dosyanız EK 'tedir.

Selamlar...
Genişletmek için tıkla ...
Merhaba,
Kullanıcı tanımlı bu formülü formüllerim içerisinde göstermek için ne yapmalıyım? Bunun eklenti şekli mevcut mu?
 
Mdemir63

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,868
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar
Sayın: @Muzaffer Ali , Sayın : @yanginci34 verdiğiniz kodlar belli bir satırdan sonrasını yanlış topluyor.
Verdiğiniz kodlarda nereleri düzeltmemiz gerekir?

Saygılar

Ekran Alıntısı.JPG
 
kulomer46

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
akara.88' Alıntı:
Merhaba,
Kullanıcı tanımlı bu formülü formüllerim içerisinde göstermek için ne yapmalıyım? Bunun eklenti şekli mevcut mu?
Genişletmek için tıkla ...
Merhaba

Mesajınızı yeni farkettim. Makro kaydet yöntemiyle kişisel Makro çalışma kitabı seçeneğini seçerek Makro kaydettiğiniz de kendi Personel dosyanız oluşur. Bu dosyaya kaydettiğiniz makrolar ve kullanıcı tanımlı fonksiyonları bilgisayarınızdaki tüm Excel dosyalarında kullanabilirsiniz.

Selamlar...
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
@Mdemir63,

Linkte alternatif çözümler var. İnceleyebilirsiniz.

HÜCRE İÇİNDEKİ VERİLERİ TOPLAMA

Selam arkadaşlar, Elimde bir liste var ve içerisinde yer alan verileri toplam olarak görmek istiyorum yanında adet veya kg olarak görerek örnek 1,1,1 ad olan veriyi 3 ad olarak toplamını almam gerekiyor dosyam ektedir yardımcı olur musunuz (yanındaki birimleri de almasını istiyorum ad, kg, mt)
www.excel.web.tr www.excel.web.tr
 
Mdemir63

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,868
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Korhan Ayhan' Alıntı:
@Mdemir63,

Linkte alternatif çözümler var. İnceleyebilirsiniz.

HÜCRE İÇİNDEKİ VERİLERİ TOPLAMA

Selam arkadaşlar, Elimde bir liste var ve içerisinde yer alan verileri toplam olarak görmek istiyorum yanında adet veya kg olarak görerek örnek 1,1,1 ad olan veriyi 3 ad olarak toplamını almam gerekiyor dosyam ektedir yardımcı olur musunuz (yanındaki birimleri de almasını istiyorum ad, kg, mt)
www.excel.web.tr www.excel.web.tr
Genişletmek için tıkla ...
Selamlar

@Korhan Ayhan Hocam
verdiğiniz linkteki kodlarınızı ekteki dosyaya modül içine kopyalayıp denedim. Ama ADET olanları doğru topluyor, Kilogram olanları ve toplamı yanlış topluyor sanırım. Yoksa ben mi hata yapıyorum. Ekteki dosyaya bakma şansınız var mı?

Saygılar
 

Ekli dosyalar

Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kodu aşağıdaki gibi revize edip deneyiniz.

C++: 
Option Explicit

Sub Birime_Gore_Topla()
    Dim Veri As Variant, Son As Long, X As Long, Kriter As Variant, Y As Integer, Zaman As Double
    Dim Toplam_Adet As Double, Toplam_Kg As Double, Toplam As Double, Miktar As Double
   
    Zaman = Timer
   
    Son = Cells(Rows.Count, 1).End(3).Row
    If Son = 1 Then Son = 2
   
    Veri = Range("A1:A" & Son).Value
   
    For X = LBound(Veri) To UBound(Veri)
        If Veri(X, 1) <> "" Then
            If InStr(1, Veri(X, 1), "ADET") > 0 Then
                Kriter = Split(Veri(X, 1), "ADET")
                For Y = LBound(Kriter) To UBound(Kriter)
                    If Left(Kriter(Y), 1) = "," Then
                        Miktar = Mid(Kriter(Y), 2, Len(Kriter(Y)))
                    Else
                        Miktar = IIf(Kriter(Y) = "", 0, Kriter(Y))
                    End If
                    Toplam_Adet = Toplam_Adet + Miktar
                Next
            ElseIf InStr(1, Veri(X, 1), "KİLOGRAM") > 0 Then
                Kriter = Split(Veri(X, 1), "KİLOGRAM")
                For Y = LBound(Kriter) To UBound(Kriter)
                    If Left(Kriter(Y), 1) = "," Then
                        Miktar = Mid(Kriter(Y), 2, Len(Kriter(Y)))
                    Else
                        Miktar = IIf(Kriter(Y) = "", 0, Kriter(Y))
                    End If
                    Toplam_Kg = Toplam_Kg + Miktar
                Next
            Else
                Kriter = Split(Veri(X, 1), " ,")
                For Y = LBound(Kriter) To UBound(Kriter)
                    If Left(Kriter(Y), 1) = "," Then
                        Miktar = Mid(Kriter(Y), 2, Len(Kriter(Y)))
                    Else
                        Miktar = IIf(Kriter(Y) = "", 0, Kriter(Y))
                    End If
                    Toplam = Toplam + IIf(Kriter(Y) = "", 0, Kriter(Y))
                Next
            End If
        End If
    Next
   
    Range("C1") = "Toplam"
    Range("C2") = "Toplam_Adet"
    Range("C3") = "Toplam_Kg"
   
    Range("D1") = Toplam
    Range("D2") = Toplam_Adet
    Range("D3") = Toplam_Kg
   
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub
 
Mdemir63

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,868
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar

Teşekkürler hocam
Elinize sağlık
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst