[Zounds]

Καλησπέρα,

Αντιμετωπίζω το εξής θεματάκι
θέλω στην στήλη Ε να μου φέρνει τα ποσά στην μορφή δεκαδικού με δύο ψηφία και επίσης να μου χωρίζει τις χιλιάδες με τελεία.
στην τελευταια γραμμή θέλω να μου κάνει sum όλα τα παραπάνω νούμερα
Όμως για κάποιο λόγο που δεν μπορώ να καταλαβω ενω η μορφή των αριθμών είναι όπως την θέλω δεν διαβάζει τα κελιά σαν νούμερα και έτσι δεν μου δίνει αποτέλεσμα το sum.

θα ήθελα τα φώτα σας.....

ευχαριστώ,

Sub numberformat()
    teleftaia1 = Cells(Rows.Count, "g").End(xlUp).Row
    For i = teleftaia1 To 1 Step -1
        Cells(i, "e").Select
                Selection.numberformat = "#,##0.00;[Red]-#,##0.00"
                'Selection.numberformat = "General"            
    Next i
End Sub

Sub totals()
Dim Lastrow1 As Integer
Lastrow1 = Cells(Rows.Count, "a").End(xlUp).Row
        Range("e" & Lastrow1 + 1) = "=sum(e2:e" & Lastrow1 & ")"
        Rows(Lastrow1 + 1).Select
            Selection.Font.Bold = True
End Sub