Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Γενικά] Αντιγραφή αποτελέσματος ΕΥΡΕΣΗΣ (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2042-antigrafi-apotelesmatos-eyreshs.html)

manolis 11-09-12 08:00

Αντιγραφή αποτελέσματος ΕΥΡΕΣΗΣ
 
1 Συνημμένο(α)
Καλημέρα σε όλη την παρέα

Εχω ένα αρχειο το οποίο έχει περίπου 5000 εγγραφές
Κάνω ευρεση στην στήλη περιγραφή γράφοντας μια λέξη πχ φίλτρο .
Με την εύρεση μου βγάζει ότι η λέξη αυτή υπάρχει σε 2 γραμμές .
Πώς μπορώ αυτές τις 2 γραμμές να τις αντιγράψω σε νέο φύλλο
Σας επισυνάπτω ένα δείγμα του αρχείου

Ευχαριστώ

Lefteris 11-09-12 08:58

1 Συνημμένο(α)
Καλημέρα σε όλους.

Μανώλη, ένας τρόπος(ένας άλλος θα μπορούσε να είναι χωρίς Array Formula, με 2 βοηθητικές στήλες_και σίγουρα τα παιδιά που γνωρίζουν VBA, θα έχουν έναν τρόπο) θα μπορούσε να είναι ο ακόλουθος χρησιμοποιώντας έναν τύπο Πίνακα(Array Formula)--Control+Shift+Enter_όχι απλά Enter.

Σε ένα κελί στο Φύλλο 1(ή αν θέλεις σε άλλο φύλλο-δεν έχει σημασία), ας πούμε στο F2,πληκτρολογείς τα 3 πρώτα γράμματα της περιγραφής του είδους(ειδών) που αναζητάς και θέλεις να σου μεταφερθούν στο άλλο φύλλο.

Στο φύλλο 2, ξεκινώντας από την γραμμή 2(Ή γραμμή 1 είναι οι επικεφαλίδες), βάλε αυτόν τον τύπο.

Κώδικας:

=IFERROR(INDEX(Φύλλο1!A$2:A$1000;SMALL(IF(LEFT(Φύλλο1!$B$2:$B$1000;3)=Φύλλο1!$F$2;ROW(Φύλλο1!$A$2:$A$1000)-1);ROW(Φύλλο1!A1)));"")
"Σύρε" προς τα κάτω και δεξιά, όσο χρειάζεσαι.

Σε καλύπτει;

manolis 11-09-12 09:58

Λευτέρη σε ευχαριστώ για την απαντηση σου αλλα δεν με καλύπτει.

Ξέχασα :hammer-smilies-0004: να πω οτι η λέξη που μπορεί να ψάχνω θα βρίσκεται σε οποιοδήποτε θέση στην περιγραφή και όχι μόνο στην αρχή

gr8styl 11-09-12 11:26

1 Συνημμένο(α)
Για δες το συνημμένο Μανώλη
Χρησιμοποιούμε Φίλτρο για προχωρημένους (Advanced Filter)

Ελπίζω να σου κάνει.

Μπορείς να το καταγράψεις σε μακροεντολή και να βάλεις κουμπάκι αν θέλεις.

Φιλικά
Θανάσης

Lefteris 11-09-12 11:28

1 Συνημμένο(α)
Δεν πειράζει Μανώλη.

Όπως είχε πει και ο ένας από τους 2 δασκάλους μου(gr8styl__Καλώς ήρθες Φίλε), μου αρέσουν τα δύσκολα. Με κάνουν να βελτιώνομαι.

Συνεχίζοντας την λογική μου, μη θέλοντας να επιβαρύνουμε την Array Formula, ενσωματώνοντας μια Search σε αυτή, δημιούργησα μία βοηθητική και κρυφή στήλη με μία απλή Search συνάρτηση.

Κώδικας:

IF(ISNUMBER(SEARCH($F$2;B2;1));$F$2;"")
Μετά χρησιμοποιούμε την ίδια φόρμουλα.

Tasos 11-09-12 11:29

1 Συνημμένο(α)
Καλημέρα σε όλους!

Μανώλη καιρούς και ζαμάνια...:biggrin:

Δοκίμασε το παρακάτω συνημμένο (χωρίς VBA). Ελπίζω να σε καλύπτει.

Στο Φύλλο1 μπορείς να συμπληρώσεις τα κελιά μέχρι τη γραμμή 50000.

Αν κάποιος χρειαστεί παραπάνω από 50.000 γραμμές μπορεί να αλλάξει την αναφορά στον τύπο της στήλης Α του φύλλου "Αποτέλεσμα".

Στο φύλλο "Αποτέλεσμα" μπορείς να επεκτείνεις τον πίνακα Αποτελεσμάτων όσο χρειαστεί.

Καλή συνέχεια.





Φιλικά

Τάσος

Θανάση, Λευτέρη με προλάβατε!

manolis 11-09-12 20:10

Ευχαριστώ σας φίλοι μου , για την βοήθεια σας
εύχομαι υγεία και χαρά σε σας και την οικογένεια σας


Οι λύσεις ειναι η μια καλύτερη απο την άλλη
πότε θα χρησιμοποιω την μια και πότε την άλλ
η


Η ώρα είναι 10:11.

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


Search Engine Optimization by vBSEO 3.3.2