Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Αντιγραφή δεδομένων από πίνακα με vba φίλτρα

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 17-04-21, 17:45
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 04-08-2020
Μηνύματα: 17
Προεπιλογή Αντιγραφή δεδομένων από πίνακα με vba φίλτρα

Γειά σάς.Τα φώτα σας για άλλη μία φορά, έχω κολλήσει!!!Έχω ήδη κατασκευάσει ένα πίνακα στο excel 2007.Μεσω vba εφαρμόζω κριτήρια σε 2 από της 6 στήλες. Ότι απομένει το αντιγραφω σε άλλο φύλλο μέσω vba πάλι. Μέχρι εδώ όλα καλά αλλά όταν εφαρμόζω κριτήρια σε ένα ή και στις 2 στήλες....τα εναπομένοντα δεδομένα μερικές φορές δεν υπάρχουν με αποτέλεσμα οι εμφανείς γραμμές του πίνακα να είναι μόνο οι επικεφαλίδες.Πώς μπορώ να αποφύγω το λάθος που μου βγάζει στην vba ότι δεν βρήκε δεδομένα•υπάρχει τρόπος να μετρήσω τις εμφανείς γραμμές ενός πίνακα και αν είναι >0 να βάλω μια if και τότε να εκτελεί το κώδικα που εκτελείται όταν υπάρχουν δεδομένα με φιλτρα?
Απάντηση με παράθεση
  #2  
Παλιά 18-04-21, 10:02
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 494
Προεπιλογή

Καλημέρα Γιώργο,

Όπως σωστά αναφέρεις, θα πρέπει να μετρηθούν οι εμφανείς γραμμές του φίλτρου που εφαρμόζεις.

Έστω ότι ο πίνακας των δεδομένων σου είναι ο "ΠΙΝΑΚΑΣ1", τότε μπορείς να κάνεις τον παρακάτω έλεγχο:
Κώδικας:
    If ActiveSheet.ListObjects("ΠΙΝΑΚΑΣ1").Range.Rows.SpecialCells(xlCellTypeVisible).Count=0 Then Exit Sub
Μετά την παραπάνω γραμμή, θα πρέπει να ακολουθεί ο κώδικας που θέλεις να εκτελεστεί. Αν υπάρχει πρόβλημα, τότε ανέβασε ένα δείγμα του κώδικα που χρησιμοποιείς για περαιτέρω έλεγχο.
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #3  
Παλιά 18-04-21, 15:50
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 04-08-2020
Μηνύματα: 17
Talking

Ευχαριστώ πάρα πολύ για την άμεση ανταπόκριση.Θα το δοκιμάσω και ενημέρωσω σύντομα
Απάντηση με παράθεση
  #4  
Παλιά 23-04-21, 16:15
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 04-08-2020
Μηνύματα: 17
Προεπιλογή

Τελικά δεν μου δούλεψε...αλλά πιθανον να μην φταίει και ο κώδικας σου. Και βρηκα και γιατί δεν δουλευε...είχε ήδη έναν έλεγχο...ο οποίος όμως δεν γινόταν
If .range.rows.specialcells(xlcelltypevisible).count/7=1 then
Ο οποίος έγινε και δούλεψε ξανά ορθά
If .range.rows.specialcells(xlcelltypevisible).count/5=1 then
Και όλο αυτό γιατί διέγραψα 2 στήλες...και ρωτάω εγκυκλοπαιδικά...
Γιατί 1...και όχι 0 όπως μου έγραψες στον ανωτέρω κώδικα...αφού οι εμφανείς γραμμές είναι 0 όταν το φίλτρο δεν έχει αποτελέσματα....
Απάντηση με παράθεση
  #5  
Παλιά 23-04-21, 20:22
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 494
Προεπιλογή

Πολύ πιθανόν αυτό το 1 να αναφέρεται στη γραμμή της επικεφαλίδας.

Καλό θα ήταν να ανέβαζες ένα δείγμα του κώδικα ή του αρχείου για καλύτερο έλεγχο.
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Ερωτήματα ] (ΛΥΣΗ) Πολλαπλά φίλτρα από ένα πίνακα σε ερώτημα frarad Access - Ερωτήσεις / Απαντήσεις 0 18-02-16 10:37
Πολλαπλά φίλτρα από ένα πίνακα σε ερώτημα; frarad Access - Ερωτήσεις / Απαντήσεις 5 16-02-16 18:15
Δημιουργία πίνακα με χρήση δεδομένων από έναν άλλο πίνακα και ένα ερώτημα nikosmin Access - Ερωτήσεις / Απαντήσεις 0 28-10-13 12:53
[ Πίνακες ] Αντιγραφή εγγραφών από πίνακα σε πίνακα apostolos Access - Ερωτήσεις / Απαντήσεις 3 30-08-13 15:36
Αποφυγή διπλοεγγραφών κατα την μεταφορά δεδομένων από πίνακα σε πίνακα alex Access - Ερωτήσεις / Απαντήσεις 5 22-02-13 19:48


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