Γιώργο,
Είναι εύκολο να προσαρμοστούν και
οι δύο κώδικες στο ίδιο αρχείο;
Εγω το προσάρμοσα με αντιγραφή και επικόλληση
και δεν δουλεύει (στο νεο οπως το εφτιαξες εσυ λειτουργει κανονικά).
Ευχαριστώ και πάλι

Καλημέρα

Αντώνη, στο αρχείο που ανέβασα έχουμε 2 περιπτώσεις υπολογισμού του ποσοστού.

1) Στο φύλλο «Αρχικό» οι αντίστοιχες τιμές βρίσκονται σε ζεύγη στηλών.

2) Στο φύλλο «Νέο» οι αντίστοιχες τιμές βρίσκονται σε ζεύγη γραμμών.

Δηλαδή και οι δύο περιπτώσεις βρίσκονται στο ίδιο βιβλίο, αλλά σε διαφορετικά φύλλα.

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

Ο κώδικας δε θα είναι μια απλή συνένωση των δύο διαδικασιών.

Χρειάζεται επιπλέον κώδικας που θα αναγνωρίζει αν η πληκτρολόγηση έγινε σε γραμμή ή στήλη, και θα εκτελεί, ανάλογα με την περίπτωση, την κατάλληλη διαδικασία.

Φιλικά/Γιώργος

Ευχαριστώ πολύ Γιώργο!!!
Πάντα άμεσος και σωστος....
Καλή συνέχεια

Καλημέρα,

Θέλω μια βοήθεια στο θέμα με την αυτόματη καταχώρηση
της ποσοστιαίας μεταβολής στο ίδιο κελί.
Όταν το ποσό ξεπερνά το χίλια χάνει το διαχωριστικό της χιλιάδας.
Πως μπορώ να το επαναφέρω; (προφανώς μέσα από τον κώδικα!!!, αλλά δεν γνωρίζω πως θα το κάνω)
Επίσης ήθελα να ρωτήσω το εξής σχετικά με την προσαρμογή του κώδικα:
'Εδώ συμπληρώνονται όλα τα τμήματα των γραμμών με την τιμή και το ποσοστό
strNew = Array("D2:G2")
'Εδώ συπληρώνονται οι αντίστοιχες μετατοπίσεις
Offset = Array(3)

Για τις αντίστοιχες μετατοπίσεις μπορώ να διακόπτω την ενέργεια
σε συγκεκριμένο κελί ή γραμμή (ας πούμε η εντολή να διακόπτεται στο κελί Η5)

Ευχαριστώ πολύ για την όποια βοήθεια

Καλησπέρα

1) Όπως γνωρίζουμε, το ποσοστό μεταβολής από την αρχική τιμή a στην τελική b, δίνεται από τον τύπο: (b-a)/Abs(a).

Στον κώδικα του φύλλου «Νέο» (όπως ήταν) ορίζεται:

strNew = Array("D2:G2") και Offset = Array(3).

Αυτό σημαίνει ότι για τον υπολογισμό του ποσοστού οι αρχικές τιμές λαμβάνονται από την περιοχή D5:G5, που προκύπτει από την D2:G2, αν την μετατοπίσουμε 3 γραμμές και οι τελικές από την D2:G2.

2) Στον κώδικα έγινε αλλαγή για την εμφάνιση του διαχωριστικού των χιλιάδων στα ποσά της περιοχή D2:G2.

Αυτό γίνεται με τον κώδικα: Format(x, "#,##0.00")

Τα μηδενικά μετά την τελεία προσδιορίζουν το πλήθος των δεκαδικών, που θα εμφανίζονται (μπορείς να το αλλάξεις).

3) Το ερώτημα «Για τις αντίστοιχες μετατοπίσεις μπορώ να διακόπτω την ενέργεια σε συγκεκριμένο κελί ή γραμμή (ας πούμε η εντολή να διακόπτεται στο κελί Η5)» χρειάζεται διευκρίνιση.

Αν στον κώδικα θέσω: strNew = Array("D2:G2", «K1:N1”) και Offset = Array(1, 4 ), θα οριστούν 4 περιοχές κελιών:

Η D2:G2 με αντίστοιχη την D3:G3 (προκύπτει από την μετατόπιση της D2:G2 κατά 1 γραμμή) και η K1:N1 με αντίστοιχη την K5:N5 (προκύπτει από την μετατόπιση της K1:N1 κατά 4 γραμμές).

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

Αλλαγές σε άλλα κελιά δεν έχουν καμία επίδραση.

Σε ποια διακοπή συνεπώς αναφέρεται το ζητούμενο;

Φιλικά/Γιώργος

Γιώργο καλησπέρα,
Για άλλη μια φορά είσαι εξαιρετικός
σαφής και άμεσος.

Χίλια ευχαριστώ:thumbup1:

Αντώνη να είσαι καλά.

Γιώργο καλησπέρα,

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

Είναι ένα αρχείο με κώδικα που το ρύθμισες εσύ.
Τι γίνεται λοιπόν.
Το ίδιο αρχείο σε οποιονδήποτε υπολογιστή βγάζει τα σωστά
αποτελέσματα εκτός από τον δικό μου (παρουσιάζεται 1 παραπάνω (,) το οποίο χαλάει τα αποτελέσματα.

Σου επισυνάπτω το δείγμα (το οποίο τονίζω ότι σε άλλον υπολογιστή τρέχει σωστά).
Τι φταίει;;
Σε παρακαλώ θα χρειαστώ την βοήθειά σου.
Ευχαριστώ εκ των προτέρων.

Καλησπέρα

Αντώνη άνοιξα το αρχείο στον υπολογιστή μου (Windows 10 ελληνικά με Office 2016 64b ελληνικό) και λειτουργεί σωστά.

Δεν ξέρω που οφείλεται το λάθος. Αποκλείω όμως να οφείλεται στον κώδικα.

Θα πρέπει να δεις τις τοπικές ρυθμίσεις του λειτουργικού και του office.

Πιθανόν να χρειαστεί επιδιόρθωση ή επανεγκατάσταση του Office.