Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Άμεση αντικατάσταση (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/6382-amesi-antikatastasi.html)

christ 18-10-23 10:51

Άμεση αντικατάσταση
 
1 Συνημμένο(α)
Καλημέρα Θα ήθελα την βοήθειά σας για ένα κώδικα (μιας και οι γνώσεις μου σε κώδικες είναι μηδενικές) για άμεση αντικατάσταση ανάλογα με τη γράμμα είναι στην στήλη Α και να εξηγήσω: όταν στην στήλη Α είναι το Σ στην αντίστοιχη γραμμή το Α - Β και μόνο αυτό να γίνεται Α τα υπόλοιπα να μένουν όπως είναι Όταν στην στήλη Α είναι το Κ στην αντίστοιχη γραμμή το Α - Β και μόνο αυτό να γίνεται Β
Σας ευχαριστώ προκαταβολικά

ChrisGT7 18-10-23 15:05

1 Συνημμένο(α)
Καλησπέρα Χρήστο,

Δοκίμασε το συνημμένο αρχείο αν σε καλύπτει.

christ 19-10-23 08:33

Σε ευχαριστώ πολύ για την βοήθεια. Πάρα πολύ καλή η ιδέα σου. Θα με βόλευε όμως, γιατί έχω περισσότερους συνδυασμούς ,αν ο κώδικας ήταν του τύπου
"Αν στο Α2 υπάρχει το Σ τότε στην γραμμή C2 -AO2 το Α - Β να δίνει Α το Γ - Δ να δίνει Γ και στην γραμμή C3 -AO3 το Ε - Β να δίνει Β
"Αν στο Α2 υπάρχει το Κ τότε στην γραμμή C2 -AO2 το Α - Β να δίνει Β το Γ - Δ να δίνει Δ και στην γραμμή C3 -AO3 το Ε - Β να δίνει Ε
Το ίδιο θα εφαρμόσω παρακάτω και στα κελιά Α4 , Α6 κλπ με άλλα γράμματα
Συγνώμη που σε κουράζω και σε ευχαριστώ προκαταβολικά

ChrisGT7 19-10-23 09:37

Καλημέρα Χρήστο,

Αν χρειάζεσαι τρόπο χωρίς κώδικα, πιστεύω πως το φίλτρο και η αντικατάσταση θα σε καλύψουν αρκετά. Αναλυτικότερα:

1. Βάζεις φίλτρο στη στήλη με τα Σ και Κ.
2. Επιλέγεις από το φίλτρο το επιθυμητό γράμμα (π.χ. Σ) για να εμφανιστούν οι γραμμές του.
3. Επιλέγεις την περιοχή μέχρι τη στήλη ΑΟ και πατάς Ctrl+H.
4. Στο πρώτο πλαίσιο βάζεις την παλιά ακολουθία (π.χ. Α - Β) και στο δεύτερο τη νέα ακολουθία (π.χ. Α) και πατάς Αντικατάσταση όλων.
5. Επαναλαμβάνεις την παραπάνω διαδικασία και για το άλλο γράμμα.

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

ChrisGT7 19-10-23 16:09

1 Συνημμένο(α)
Χρήστο,

Δες αν το νέο αρχείο καλύπτει τις ανάγκες σου.

Στο φύλλο ΛΙΣΤΕΣ υπάρχουν δύο πίνακες, όπου εκεί θα βάζεις όλους τους συνδυασμούς που χρειάζεσαι ανάλογα το γράμμα. Οι πίνακες δεν είναι υποχρεωτικό να έχουν το ίδιο πλήθος γραμμών, π.χ. ο Σ μπορεί να έχει 10 συνδυασμούς ενώ ο Κ μόνο 3.

christ 19-10-23 18:17

Σε ευχαριστώ πάρα πολύ φίλε Χρήστο για την βοήθειά σου. Η λύση με το φίλτρο δεν μου πέρασε καθόλου από το μυαλό. Για άλλη μια φορά σε ευχαριστώ πολύ.


Η ώρα είναι 21:12.

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


Content Relevant URLs by vBSEO 3.3.2