14-02-11, 20:06
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Φίλε μου,
για να έχεις τα αποτελέσματα σε μια στήλη, αρκεί να αντικαταστήσεις στον κώδικα
το " i - 3" με το " 1" χωρίς τα εισαγωγικά.
και για να μην έχεις το όνομα του τελευταίου φύλλου στο κελί Search!A7,
πάλι στον κώδικα αντικαθιστάς το Sheets(i).Name με το "Αποτελέσματα που βρέθηκαν" με τα εισαγωγικά όμως αυτή τη φορά.
Κοίταξε την συνάρτηση call_Find_str() που έχω στον κώδικα και έχω βάλει και επεξηγήσεις.
Αν δεν σου είναι κατανοητά θα σου έλεγα να ξεχάσεις προς το παρόν την VBA αφού δηλώνεις και αρχάριος.
Φιλικά
Θανάσης
ΥΓ. Σε ευχαριστώ και εγώ με την σειρά μου για την ανταπόκριση και τα καλά σου λόγια και στα δύο θέματα.
|