Değişik toplam alma.

[vardar07]

Merhaba arkadaşlar. Resimdeki gibi toplama işlemi yapmak istiyorum. Ancak bir hücre içinde iki rakam varsa dikkate almıyor. Çözümü varmıdır.

 

[Korhan Ayhan]

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz. Fonksiyon normal yazılmış sayısal değerleri ve ALT+ENTER ile girilmiş sayısal değerleri toplar.

Örnek kullanım;

=KTOPLA(Hücre Aralığı)

Function KTOPLA(Aralik As Range)
    Application.Volatile True
    For Each Veri In Aralik
        Sayi = Split(Veri.Text, Chr(10))
        For X = 0 To UBound(Sayi)
            If IsNumeric(Sayi(X)) Then KTOPLA = KTOPLA + CDbl(Sayi(X))
        Next
    Next
End Function

 

[vardar07]

Korhan bey elinize kolunuza sağlık. Teşekkürler.

 

[vardar07]

Function KTOPLA(Aralik As Range)
    Application.Volatile True
    For Each Veri In Aralik
        Sayi = Split(Veri.Text, Chr(10))
        For X = 0 To UBound(Sayi)
            If IsNumeric(Sayi(X)) Then KTOPLA = KTOPLA + CDbl(Sayi(X))
        Next
    Next
End Function

Merhaba arkadaşlar. Yukardaki Korhan beyin vermiş olduğu fonksiyonu YERİNEKOY formulü ile beraber kullanmak için çözüm üretmeye çalışıyorum. Kullanım şansı olabilirmi.

 

[Korhan Ayhan]

Tam olarak yapmak istediğiniz işlemi açıklar mısınız?

 

[vardar07]

Tam olarak yapmak istediğiniz işlemi açıklar mısınız?

Merhabalar. Resimdeki gibi toplama işlemi yapmaya çalışıyorum.Tek hücre içerisinde KTOPLA fonksiyonunu ve YERİNEKOY formulünü birleştirmek istemiştim.

 

[vardar07]

Arkadaşlar galiba resim fazla açıklayıcı olmadı. Ekteki dosyada D4 Hücresine yardımcı hücre olmadan B4 Hücresini toplamak istiyorum.

 

[Korhan Ayhan]

Aşağıdaki fonksiyonu deneyiniz.

Function KTOPLA(Aralik As Range)
    Application.Volatile True
    For Each Veri In Aralik
        Sayi = Split(Veri.Text, Chr(10))
        For X = 0 To UBound(Sayi)
            If IsNumeric(Sayi(X)) Then
                KTOPLA = KTOPLA + CDbl(Replace(Sayi(X), ".", ","))
            End If
        Next
    Next
End Function

 

[vardar07]

Korhan bey elinize kolunuza sağlık.Çok teşekkürler.