[VBA] FormatCell #,##0.00 δεν διαβάζει τα κελιά σαν νούμερα.

[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

[Spirosgr]

Καλημέρα και καλή Σαρακοστή σ' όλους.

Δεν θα σχολιάσω, το πως είναι γραμμένοι οι κώδικες και γιατί πρέπει να υπάρχει loop, step κλπ.
Μια παρατήρηση γενική, σε ένα θέμα που πρέπει να προσέχεις.
Ο τίτλος ρουτίνας, είναι numberformat.
Επειδή όμως, υπάρχει έκφραση, NumberFormat καλό είναι να αποφεύγεται.
Τίτλοι εκατομμύρια...

Η παρακάτω ρουτίνα, μορφοποιεί τα κελιά της E στήλης
σε αριθμό με 2 δεκαδικά και κόκκινο τα αρνητικά και
στην τελευταία γραμμή, τελευταίο κελί για την ακρίβεια,
αποδίδει το άθροισμα τους με ίδια μορφή συν bold γραμματοσειρά.

Sub FormatPlusTotal()
    Dim Lastrow As Long, Rtotal As Range, rng As Range
    Lastrow = Cells(Rows.Count, 5).End(xlUp).Row + 1
    Set Rtotal = Range("e" & Lastrow)
    Set rng = Range("e1:e" & Lastrow)
    rng.NumberFormat = "#,##0.00;[Red]-#,##0.00"
    Rtotal = Application.WorksheetFunction.Sum(Range("e1:e" & Lastrow - 1))
    Rtotal.Font.Bold = True
End Sub

Σημείωση:
Έγινε test σε 2007, 2010, 2013
Υπάρχει περίπτωση, να χρειαστεί, να αλλάξετε στην γραμμή μορφοποίησης,
την θέση του , με την .

[gfevran]

Καλησπέρα,
Σπύρο επειδή με ενδιαφέρει η ρουτίνα που προτείνεις,
Την αντέγραψα σαν τεστ, σε φύλλο και σε λειτουργική μονάδα,
Αλλά δεν μου δούλεψε, σίγουρα κάπου κάνω λάθος, αλλά που;;;

Σε ευχαριστώ εκ των προτέρων για όποια απάντηση.

[Spirosgr]

Καλησπέρα
Στα φύλλα καλό είναι να τρέχουν κατά βάση μόνο τα συμβάντα.
Παρ' όλα αυτά δεν υπάρχει κανένα πρόβλημα, (όπως είδες και στο Skype που στο έδειξα).
Τρέχει σωστά.

[Zounds]

Ευχαριστώ πολύ !! καλημέρα σε όλους !!!!