Sum only positive decimals

[Villalobos]

Hello,

I have some problem when I would like to sum only positive decimals on userform, I would like to separate the numbers with comma (",") and sum them, the format should be "0,0" and only numbers and "," can be given in textboxes. How should I do this?

Thanks in advance the reply!

[duncandhu]

Hi Villalobos,

I assume when you say decimals you mean integers (whole numers) - please correct me if you mean the part of the number after the decimal point.

This code will sum only the positive integers.

Private Sub CommandButton1_Click()
    
    Dim t1, t2
    Dim total As Integer
    
    
    t1 = Split(TextBox1.Value, ",")
    t2 = Split(TextBox2.Value, ",")
    
    For x = LBound(t1) To UBound(t1)
        If t1(x) > 0 Then total = total + t1(x)
    Next x
    
    For x = LBound(t2) To UBound(t2)
        If t2(x) > 0 Then total = total + t2(x)
    Next x
    
    TextBox3.Value = total
End Sub

Thanks,
Duncan

[Villalobos]

hi,

I mean for instance:
if i entry in textbox1 1,2 and 2,6 in textbox2 then I would like to see in textbox3 3,8.

[Marc L]

Hi,

use CDbl function to convert each textbox value to number to sum them …

Regards !