Toplama işlemi

[ASLAN7410]

Herkese hayırlı cumalar.

Ekte gönderdiğim hücreler içerisinde sayılar var, bunları toplamak istiyorum, ama sonuç alamıyorum.
Bazı hücrelerde birden çok sayı mevcut.

Yardımcı olur musunuz?

 

[Haluk]

Dosyanız ektedir;

.

 

[Muzaffer Ali]

Excel'in yerleşik fonksiyonları ile yapılamaz diye düşünüyorum.
Eğer kod ile yapmak isterseniz dosyanızda yeni bir "Module" ekleyin aşağıdaki kodu kopyalayın.

Public Function Topla_Test(Aralık As Range)
    Dim Bak As Range
    Dim Ayir As Integer
    Dim Toplam As Double
    Dim Deger As Variant
    For Each Bak In Aralık
        Deger = Split(Bak, vbLf)
        For Ayir = 0 To UBound(Deger)
            If IsNumeric(Deger(Ayir)) Then
                Toplam = Toplam + Deger(Ayir)
            End If
        Next
    Next
    Topla_Test = Toplam
End Function

şimdi excel sayfanızı açın şu formülü kullanabilirsiniz

=Topla_Test(A1:A3)

 

[ASLAN7410]

Sayın Haluk Bey ve Sayın dalgalikur ellerinize sağlık, çok teşekkür ediyorum.

Her ikiside tam istediğim gibi çalışıyor.
Hayırlı çalışmalar diliyorum.

 

[Muzaffer Ali]

Sayın @Haluk "=Toplam" işlevi nasıl çalışıyor? Toplamı nasıl alıyorsunuz?

 

[ASLAN7410]

Sayın Haluk Bey, yardımcı sütun kullanmış, siz topla fonksiyon makrosu tanımlamışsınız.

Sizin formül benim işime daha çok yaradı, çok teşekkür ediyorum.

 

[Muzaffer Ali]

Ama yardımcı sütunda sadece =Topla yazıyor. Bunu yazınca çalışan herhangi bir kod da yok. Ben bunu merak ettim.

 

[Haluk]

Sayın @Haluk "=Toplam" işlevi nasıl çalışıyor? Toplamı nasıl alıyorsunuz?

Dosyada ufak bir "Excel4 makrosu" kullanılmıştır..... Ufak olmakla birlikte sizin VBA koduyla eşdeğerdir

İncelemek için A1 hücresini seçin, sonra menülerden Formulas >> Name Maneger'ı tıklayın....


Aşağıdaki resimde detayları görebilirsiniz.




.

 

[Haluk]

Excel'in yerleşik fonksiyonları ile yapılamaz diye düşünüyorum.
.......
....
..

Ekli dosyada ise, konu Excel'in yerleşik fonksiyonlarıyla çözülmüştür.


.

 

[Muzaffer Ali]

Yapılamaz derken haklıymışım. Bu uzunlukta formüller "Toplam" formülü içine yazılsa çok uzun bir formül elde edilir ki bu da yapılamaz olmasa da en azından yapılmamalı anlamına geliyor.

 

[Haluk]

Yapılamaz derken haklıymışım. Bu uzunlukta formüller "Toplam" formülü içine yazılsa çok uzun bir formül elde edilir ki bu da yapılamaz olmasa da en azından yapılmamalı anlamına geliyor.

9 No'lu mesaj ekindeki dosya için mi söylüyorsunuz bunları?

.

 

[Muzaffer Ali]

Evet. Yeni bir kolon ekleniyor ve her satırda çok fazla formül var.
Bir de yeni kolon eklenmeden tek bir hücrede =Toplam() fonksiyonu içinde imkansız gibi bir şey oluyor.

 

[Haluk]

Evet. Yeni bir kolon ekleniyor ve her satırda çok fazla formül var.
Bir de yeni kolon eklenmeden tek bir hücrede =Toplam() fonksiyonu içinde imkansız gibi bir şey oluyor.

Yardımcı sütun kullanmadan, 1 adet formülle hazırlanan çözüm ekli dosyadadır...




Not: @ASLAN7410 bunun haricinde, sayfada kullanım şekli aşağıdaki gibi olan;

=ToplamHD(A1:A3)

VBA ile alternatif bir Kullanıcı Tanımlı Fonksiyon da kullanabilirsiniz:

Function ToplamHD(Veriler As Range)
    myArr = Application.Transpose(Veriler)
    ToplamHD = Evaluate(Replace(Application.Transpose(Join(myArr, vbLf)), vbLf, "+"))
End Function

.

 

[ASLAN7410]

Sayın Haluk Bey, ellerinize sağlık çok teşekkür ediyorum.

=ToplamHD(A1:A3) bu formülü
=ToplamHD(A1:A10) bu şekilde yazıyorum hücre aralığının en son hücresi boş ise DEĞER hatası veriyor .

 

[Haluk]

Siz de boş hücreyi seçmeyin....

.

 

[ASLAN7410]

Anladım, ilginize çok teşekkür ediyorum.

Hayırlı çalışmalar diliyorum.

 

[Haluk]

Ya da, aşağıdaki revizyonu kullanın...

Function ToplamHD(Veriler As Range)
    myArr = Application.Transpose(Veriler)
    ToplamHD = Evaluate(Replace(Application.Transpose(Join(myArr, vbLf)), vbLf, "+") & "+ 0")
End Function

.

 

[ASLAN7410]

Sayın Haluk Bey, şimdi oldu çok teşekkür ediyorum.