noktalı virgül ile ayrılmış sayıları toplama

[peldor]

merhaba

excell de aynı hücre içinde noktalı virgül ile ayrılmış sayıların diğer bir hücrede toplamını alabilirmiyiz.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu boş bir modüle uygulayın.

Daha sonra excel sayfanıza dönüp B2 hücresine aşağıdaki formülü uygulayın.

=KTOPLA(A2;";")

Function KTOPLA(Veri As Range, Optional Kriter As String = ";")
    Dim Data, X
    
    Application.Volatile True
    
    Data = Split(Veri, Kriter)
    
    For X = 0 To UBound(Data)
        KTOPLA = KTOPLA + CDbl(Data(X))
    Next
End Function