Aynı satırdaki Verilerin Toplamı

[domino]

Excelde aynı satıra girilmiş altalta verinin toplamını nasıl alabilirim
Mesela A1 hücresine altalta iki rakam girilmiş ve bu verilerin toplamını B1 de almak istiyorum.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon kullanılmıştır.

Kullanılan kod;

Function KTOPLA(Alan As Range)
    Dim Veri As Range, Data As Variant, X As Integer
    
    Application.Volatile True
    
    For Each Veri In Alan
        If Veri.Value <> "" Then
            Data = Split(Veri.Value, Chr(10))
            For X = 0 To UBound(Data)
                KTOPLA = KTOPLA + CDbl(Data(X))
            Next
        End If
    Next
End Function

 

[Merhum İdris SERDAR]

Excelde aynı satıra girilmiş altalta verinin toplamını nasıl alabilirim
Mesela A1 hücresine altalta iki rakam girilmiş ve bu verilerin toplamını B1 de almak istiyorum.

.

Alternatif:

Function Hictop(ByVal txt As String) As Double
    Hictop = Evaluate(Replace(Application.Trim(txt), Chr(10), "+"))
End Function

.