[VBA] Listbox οι αριθμητικές τιμές να έχουν 2 δεκαδικά

[gfevran]

Καλημέρα,
Ότι περιγράφεται στον τίτλο
Ανεβάζω συνημμένο
Ευχαριστώ για όποια βοήθεια.

[ChrisGT7]

Καλημέρα Γιώργο,

Παρατηρώ πως έχεις τις παρακάτω γραμμές στον κώδικά σου:

ListBox1.List = Sheets("Data").Range("A2:D" & [A10000].End(3).Row).Value 'For refresh listbox
ListBox1.List = Sheets("Data").Range("iTable").Value

Πιστεύω πως η πρώτη γραμμή δε χρειάζεται, ενώ στη δεύτερη αν αντικαταστήσεις το List με RowSource έχεις αυτό που ζητάς.

[gfevran]

Καλημέρα Χρίστο.
αντικατέστησα το List με RowSource
δηλαδή αυτό αν κατάλαβα καλά ListBox1.RowSource = Sheets("Data").Range("iTable").Value
και μου βγάζει σφάλμα Error 13 mismatch

[ChrisGT7]

Δικό μου λάθος! Αντικατέστησε τη δεύτερη γραμμή μ' αυτή:

ListBox1.RowSource = Sheets("Data").Range("iTable").Address

[gfevran]

Βγάζει νέο σφάλμα εδώ

Private Sub ListBox1_Click()
Dim say As Long, a As Byte

For a = 0 To 3
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next

Sheets("Data").Range("A:A").Find(ListBox1.Text).Ac tivate
say = ActiveCell.Row
Sheets("Data").Range("A" & say & ":D" & say).Select
End Sub
Γραμμή 6 αυτό -> Sheets("Data").Range("A:A").Find(ListBox1.Text).Ac tivate

[gfevran]

έσβησα τη γραμμή 6
αυτό 'Sheets("Data").Range("A:A").Find(ListBox1.Text).A ctivate
και δεν βγάζει σφάλμα.
στο κουμπί μεταβολών όταν κάνω μια διόρθωση, π.χ. αλλάζω το ποσό 10 σε 20 αντί για διόρθωση κάνει διπλό εγγραφή, αυτό παρουσιάστηκε με την αλλαγή από List σε RowSource
Ανεβάζω το καινούργιο συνημμένο.

[ChrisGT7]

Έλεγξε το συνημμένο αρχείο αν είναι εντάξει.

Σου πρόσθετε την εγγραφή λόγω του ότι το τρέχον κελί που χρησιμοποιείς στην ενημέρωση εγγραφής ήταν το κελί μετά τον πίνακα, και ότι γράφεις κάτω από τους πίνακες, αυτόματα προστίθεται στο εύρος του.

Τροποποίησα λίγο τον κώδικα της ενημέρωσης βάζοντας μεταβλητές αντί των πλαισίων κειμένων, γιατί εκτελείται το συμβάν του κλικ και χάνονταν οι αλλαγές.

[gfevran]

Χρίστο 1000 ευχαριστώ.
Δούλεψε μια χαρά!.
Κάτι ακόμη όποτε μπορείς, τα αριθμητικά ποσά μπορεί να αθροίζονται με δεκαδικό 10,5+10,5=21
γιατί όταν βάζω δεκαδικό π.χ. 10,5 αποδίδει 11
Σε Υπερ. ευχαριστώ!

[ChrisGT7]

Έκανα κάποιες μικρές τροποποιήσεις στην προσθήκη και ενημέρωσης εγγραφής, οπότε δοκίμασε μία φορά ακόμα το συνημμένο αρχείο.

[gfevran]

Καλημέρα Χρίστο.
Τέλειο, πολλές φορές 1000 ΕΥΧΑΡΙΣΤΩ!
Καλή Ανάσταση καλό Πάσχα με Υγεία!