Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] πρόβλημα σε userform & textbox (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4217-problima-se-userform-textbox.html)

kolekas 28-06-16 18:09

πρόβλημα σε userform & textbox
 
Καλησπέρα και πάλι από έμενα.
δεν χαίρω που είναι το λάθος
έχω φτιάξει ένα userform και έχω 8 textbox.
το πρόβλημα είναι ότι στα 7 textbox όταν βάζω ένα πόσο πχ.3(,)25 όλα και στο φύλλο μου όλα οκ.
στο 8 για να δουλέψει σωστά πρέπει να βάζω (.)
που έχω κάνει το λάθος στο 8 γιατί θέλω να δουλεύουν όλα με το (,) στις ρυθμίσεις που text όλα είναι ίδια.
ευχαριστώ!!!!!

Spirosgr 28-06-16 21:58

Πρέπει να δούμε τον κώδικα και την φόρμα...

kolekas 01-07-16 08:26

1 Συνημμένο(α)
Καλημέρα!!!!!
Σπύρο ανεβάζω την φόρμα.
Το πρόβλημα είναι στο userform1 και σε αυτό το κώδικα
if nextrow >= 7 Then
Range("l2").Formula = "=SUM(l2:l2000)"

Αυτό το έχω κάνει γιατί στο κελί L2 θέλω να μου κάνει το σύνολο της στήλης G
Επειδή όταν γίνετε λάθος σε μια οριζόντια στήλη και διαγραφώ όλη την σάρα στο
Κελί L2 δεν αφαιρούσε την τιμή.
Βάζοντας στο txtena τιμή με , δεν γραφή στο L2 είδα ότι θέλει τα κελία στην G να είναι αριθμός για να το κάνει.
Χρειάζομαι τοις πολύτιμες γνώσεις σας για άλλη μια φορά

Spirosgr 01-07-16 11:25

Βασίλη...
Λυπάμαι, δεν μπορώ να σου δώσω απάντηση,
για ένα κώδικα που είναι εξ' ολοκλήρου εσφαλμένος...

Υπάρχουν If που δεν κλείνουν με End if.
Καμία Range ή Cell δεν αποδίδεται σε συγκεκριμένο φύλλο.
Τα φύλλα έχουν, ονομασία από tab και όχι από κωδικό όνομα.
Δεν υπάρχει κανένας έλεγχος σφαλμάτων.
Κανένα Format, κατά την εισαγωγή τιμής σε κελί.
Κανένα replace (.) σε (,) αν κι όπου χρειάζεται.
...και πολλά ακόμα...

kolekas 01-07-16 18:49

Ειμαι Σίγουρος ότι θα έχω λαθει.εννοειτε δεν είναι δικά μου αλλά από αλλού έχω πάρει αρκετά.εχω να μάθω πόλλα ακόμα και πάω ψαχνοντας.ευχαριστω και παλι για τοις συμβουλές σου.ειναι πολύτιμες γιατί το κατεχεις.
Ευχαριστώ και πάλι.....


Η ώρα είναι 06:32.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2