[VBA] Άμεση αντικατάσταση

[christ]

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

[ChrisGT7]

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

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

[christ]

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

[ChrisGT7]

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

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

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

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

[ChrisGT7]

Χρήστο,

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

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

[christ]

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