|
Αυτόματη μεταφορά ολοκλήρου πινάκα σε άλλο φύλλο Καλησπέρα και κάλο φθινόπωρο, θα ήθελα αν γίνεται να κάνω αυτόματη μεταφορά ολοκλήρου πινάκα σε άλλο φύλλο έτσι ώστε να μπορώ εκεί στο δεύτερο φύλλο να έχω κάποια φίλτρα μόνιμα ενεργοποιημένα για να βλέπω και να εκτυπώνω κάποια περιεχόμενα του πινάκα που με ενδιαφέρουν πιο πολύ. Ευχαριστώ για τον χρόνο σας |
Καλημέρα Θα ήταν προτιμότερο, να μην κάνεις καμία μεταφορά, αλλά στο ίδιο φύλλο με τον πίνακα, να έχεις ένα κουμπί (ή και περισσότερα αν χρειάζεται) το οποίο θα τρέχει μια εντολή όπου θα φιλτράρει και θα εκτυπώνει και τέλος θα επαναφέρει τον πίνακα... Οι εντολές για φίλτρα ή εκτυπώσεις γίνονται και με καταγραφή αρκετά καλά... |
καλησπέρα κύριε Σπύρο και ευχαριστώ για την άμεση απάντηση, θα ήθελα να ρωτήσω σχετικά με αυτά που μου γράψατε. Μπορώ δηλαδή με ένα κουμπί να μου κάνει αρχικά, απόκρυψη κάποιων στηλών και φιλτράρισμα κάποιων χαρακτηριστικών μιας στήλης ταυτόχρονα, χωρίς άμεση εντύπωση και στην συνεχεία να του ζητάω εκτύπωση αυτού που βλέπω; αν ναι πως θα μπορούσε να γίνει αυτό; |
Δημιούργησε τον πίνακά σου, σε ένα φύλλο. Πάτα το κουμπί καταγραφής μακροεντολών. Βήμα βήμα, κάνε τις ενέργειες που θέλεις...πχ Κρύψε Α, Ε στήλη. Βάλε φίλτρο στην Β, ως προς...ό,τι θέλεις. Βάλε κι άλλο φίλτρο, αν χρειάζεται. Πάτα και πάλι το κουμπί καταγραφής μακροεντολών, για να σταματίσει η καταγραφή. «Καθάρισε», διόρθωσε τον κώδικα. Σύνδεσε τον κώδικα σε ένα κουμπί. Επανέλαβε για την εκτύπωση και σύνδεσε ένα δεύτερο κουμπί. |
Καλήμερα κύριε Σπύρο, έκανα όσα μου είπατε και δούλεψε κανονικά, μόνο όμως πατώντας την συντόμευση πλήκτρων που ζητάει στην αρχή η καταγραφής μακροεντολής. Έχω δυο θέματα : 1. Δεν ξέρω πως να επαναφέρω τον πινάκα στην αρχική κατάστασή, δηλαδή όπως ήταν πριν την εκτέλεση της μακροεντολής 2. Δεν γνωρίζω πως θα κάνω το δεύτερο βήμα που μου γράφετε :"«Καθάρισε», διόρθωσε τον κώδικα. Σύνδεσε τον κώδικα σε ένα κουμπί". |
Καλημέρα Ανέβασε το αρχείο σου, να στο φτιάξω. |
1 Συνημμένο(α) Ευχαριστώ πολύ για τη άμεση απάντηση. Το αρχείο είναι το παρακάτω και θα ήθελα αν γίνεται τα εξής: 1. πατώντας το μπουτόν να κάνει απόκρυψη όλων των στηλών εκτός των : C,D,G,H,I,J,K,L,N,O,P,Q,R,U,W,X,Y,BI και ταυτόχρονα να κάνει φίλτρο στην στήλη Υ έτσι ώστε να μου δείχνει μόνο τα "ΑΛΛΑΓΗ" και τα "ΠΡΟΣ ΑΛΛΑΓΗ" κελιά . Αυτο όλο το αποτέλεσμα θα ήθελα να μπορώ αν χρειαστεί να το εκτυπώνω, Επίσης θα ήθελα αυτή η ενεργεία του μπουτον να μην αποθηκεύετε δηλαδή αν κατά λάθος κλείσω το excel ή πατήσω αποθήκευση να έχω πάντα στην διάθεση μου τον πινάκα ολόκληρο 2. Αν μπορείτε και αν γίνεται φυσικά όταν επιλέγω στην στήλη F κάποιο είδος συστήματος, ανάλογα με την επιλογή, να μου κάνει ταυτόχρονα νεκρώνει στα κελιά κάποιων στύλων για την συγκεκριμένη σειρά επιδίδει δεν χρειάζεται να γράψω κάτι για αυτό το σύστημα, δηλαδή : Για τα συστήματα "ΣΥΝΑΓΕΡΜΟΣ ΚΑΙ ΠΥΡΑΝΙΧΝΕΣΗ" να νεκρώνει τα κελιά όλων των στηλών από το AY έως και το BG καθώς και το κελί της στήλης BI Για τα συστήματα "CCTV" να νεκρώνει τα κελιά όλων των στηλών από το W έως και το ΑX καθώς και το κελί της στήλης BI Για ολα τα υπόλοιπα συστήματα "ΘΥΡΟΤΗΛΕΟΡΑΣΗ" "ΘΥΡΟΤΗΛΕΦΩΝO" "ΚΕΡΑΙΑ TV" "ΤΗΛΕΦΩΝΙΚΟ ΚΕΝΤΡΟ" να νεκρώνει τα κελιά όλων των στηλών από το W έως και το BG καθώς και κελί της στήλης BI Ειλικρινά σας ευχαριστώ πάρα πολύ για την βοήθεια. |
1 Συνημμένο(α) Καλημέρα Αυτό που ο χρόνος μου, επιτρέπει να σου κάνω, είναι: 1 Απόκρυψη στηλών 2 Φίλτρο 3 Σύνδεση Κουμπί Do = ενέργεια Κουμπί Re = επαναφορά Σημειώσεις Το κωδικό όνομα φύλλου, έγινε Sh1. Αν υπάρχει και άλλο κώδικα θα πρέπει να αλλάξει και εκεί... Δεν είδα άλλους κώδικες που έχεις. Συμπλήρωσε τον κώδικα με βάση την υπόδειξη Στην mdl_FILTER_Y. Τον κώδικα στο RE_Do, μπορείς να τον βάλεις και στο βιβλίο συμβάν BeforeClose ή BeforeSave, ώστε να εκτελείται αυτόματα, στο κλείσιμο 'η save του βιβλίου... *Δεν καταλαβαίνω τι εννοείς...«νεκρώνει τα κελιά...» |
Ευχαριστώ πολύ κύριε Σπύρο για τον χρόνο σας...δεν λειτουργεί σωστά γιατί δεν αποκρύπτει όλες τις στήλες που πρέπει, δύστυχος δεν μπορώ να θα το χρησιμοποιήσω γιατί ίσως χαλάσουν κάποιες λειτουργείς που υπάρχουν τώρα με κάποιους άλλους κώδικες με την αλλαγή ονόματος φίλου και εγώ δεν ξέρω να το διορθώσω. Ως αναφορά τα κελιά εννοώ να μην είναι ενεργά δηλαδή να τα προσπερνάει ο κήνσορας σαν να είναι κλειδωμένα . Ευχαριστώ πάρα πολύ για τον χρόνο σας |
Το «δεν κρύβει όλες τις στήλες που πρέπει...» κάτι δεν κάνεις καλά... Σου έχω οδηγία και με βάση αυτό: Sh1.Columns("b:b").ColumnWidth = 0 θα κάνεις (προσθέσεις γραμμές κώδικα όμοια) όλα τα υπόλοιπα από κάτω πχ Sh1.Columns("c:c").ColumnWidth = 0 Sh1.Columns("q:q").ColumnWidth = 0 κλπ Αν σε προβληματίζει το Sh1... άλλαξέ το στον κώδικα σε Φύλλο1 ή ότι άλλο έχει το βιβλίο σου... αυτά. |
Καλήμερα σας, ειμαι διστακτικός να επέμβω εγώ γιατί δεν γνωρίζω από κώδικα και φοβάμαι μην κάνω καμιά ζημία στους υπαρχών κώδικες, που παρεμπιπτόντως στα περισσότερα με έχουν βοηθήσει άνθρωποι από το φόρουμ για να γίνουν και είναι κρίμα να χαθούν.Αν κάποιος άλλος φίλος γνωρίζει και έχει χρόνο να με βοηθήσει σε όλα τα παραπάνω θα ήταν πολύ κάλο. Ειλικρινά ευχαριστώ πολύ για την βοήθεια. |
Φίλε, με ενοχλεί που ενώ ζητάς βοήθεια, δεν έχεις εμπιστοσύνη... Σου είπα... Οκ μην αλλάξεις το Φύλλο1 σε Sh1 στο βιβλίο σου. Άλλαξε στους κώδικες που σου έδωσα το Sh1 σε Φύλλο1 Αντέγραψε αυτό: Φύλλο1.Columns("b:b").ColumnWidth = 0 όσες φορές θέλεις, αλλάζοντας το b:b, με τις στήλες που χρειάζεσαι... Δεν θα χαλάσει τίποτα... |
1 Συνημμένο(α) Καλημέρα Μια πρόταση στην οποία γίνεται προσπάθεια να αντιμετωπιστεί και το «Πάγωμα» των κελιών. Περισσότερα στο συνημμένο. |
Δεν καταλαβαίνω ακριβώς τι σας ενοχλεί; μαλών δεν διαβάσατε σωστά το μήνυμα μου ("είμαι διστακτικός να επέμβω εγώ γιατί δεν γνωρίζω από κώδικα και φοβάμαι μην κάνω καμιά ζημία στους υπαρχών κώδικες") ειλικρινά δεν βλέπω που είναι το περίεργο. Ευχαριστω για την βοήθεια σας. |
Ακου λοιπόν φίλε μου τι μας (με) ενοχλεί... 1 Αν κάνεις ένα αντίγραφο του αρχείου σου και κάνεις δοκιμές ή αλλαγές, τίποτε δεν θα χαλάσει το αρχικό έργο σου, ακόμα κι αν αυτό (το αντίγραφο) «καταστραφεί»... Και φυσικά αυτό που ανέβασες είναι τμήμα και αντίγραφο του όλου έργου... Άρα γνωρίζεις την διαδικασία... 2 Όταν μου ζητάς βοήθεια και σου λέω κάνε το... έτσι, θα πει ότι γνωρίζω καλά, πως τίποτα δεν θα πάει στραβά... Με κάνεις να μετανιώνω που σου είπα από μόνος μου, να ανεβάσεις αρχείο για να στο φτιάξω... Ξέρω πολύ καλά τι διάβασα, στο post σου. Δεν θέλω να ασχοληθώ άλλο...ούτε να σκεφτώ τίποτε άλλο. |
Με αυτήν την επιθετικότητα, καλύτερα να μην ασχοληθείς άλλο και για άλλη μια και τελευταία φορά σου λέω ευχαριστώ για τον χρόνο σου και την βοήθεια σου. |
kapetang καλησπέρα ευχαριστώ πολύ για την βοήθεια σας πολύ κάλο το συνημμένο με την απόκρυψη και την επαναφορά, απλα για το κλειδωμα τον κελιων διευκρινιζω: Οταν επιλέγω στην στήλη F κάποιο είδος συστήματος, ανάλογα με την επιλογή, θέλω να μου κάνει ταυτόχρονα κλειδωμα στα κελιά κάποιων στύλων για την συγκεκριμένη σειρά, επειδή δεν χρειάζεται να γράψω κάτι σε αυτα τα κελιά για αυτό το σύστημα, να μην τρώω χρόνο να περνάω από μέσα τους, δηλαδή : Για τα συστήματα "ΣΥΝΑΓΕΡΜΟΣ ΚΑΙ ΠΥΡΑΝΙΧΝΕΣΗ" να κλειδώνει τα κελιά όλων των στηλών από το AY έως και το BG καθώς και το κελί της στήλης BI Για τα συστήματα "CCTV" να κλειδώνει τα κελιά όλων των στηλών από το W έως και το ΑX καθώς και το κελί της στήλης BI Για ολα τα υπόλοιπα συστήματα "ΘΥΡΟΤΗΛΕΟΡΑΣΗ" "ΘΥΡΟΤΗΛΕΦΩΝO" "ΚΕΡΑΙΑ TV" "ΤΗΛΕΦΩΝΙΚΟ ΚΕΝΤΡΟ" να κλειδώνει τα κελιά όλων των στηλών από το W έως και το BG καθώς και κελί της στήλης BI |
Γιώργο, διάλεξε κάτι στη στήλη F και πάτησε το Tab για να μετακινηθείς στη γραμμή. Κανονικά τα κλειδωμένα κελιά στη γραμμή, αυτά που θέλεις, δε θα επιλέγονται ( θα τα πηδάει). |
1 Συνημμένο(α) Γιώργο, στο συνημμένο όταν επιλέγουμε κάτι στη στήλη F κρύβονται (ανάλογα με την επιλογή) οι στήλες στις οποίες δεν πρόκειται να γράψεις. Αν κάποια στιγμή θέλουμε να έχουμε όλες τις στήλες κάνουμε κλικ στο unDo. Νομίζω ότι η προσέγγιση αυτή είναι πιο βολική, από τα κλειδωμένα κελιά. Ίσως να μη μπόρεσες να δοκιμάσεις την προηγούμενη πρότασή μου. Νομίζω είναι απενεργοποιημένα τα συμβάντα. Ενεργοποιούνται αν στο παράθυρο του κώδικα immediate αντιγράψεις την εντολή: application.EnableEvents=True και πατήσεις Enter. |
Συγχαρητήρια kapetang, άπλα ΤΕΛΕΙΟ, είναι αυτό ακριβώς που είχα στο μυαλό μου, χίλια ευχαριστώ. Θα ήθελα να σου ζητήσω 2 διορθώσεις άσχετες αν γίνεται: 1. Στην αριστερή πλευρά του φίλου πάνω από την στήλη Α έχει 2 τετραγωνάκια που το ένα έχει τον αριθμό 1, το άλλο έχει τον αριθμό 2, νομίζω πως το χρησιμοποιούσα παλιά για απόκρυψη κάποιων στύλων. Γίνεται να τα αφαιρέσουμε αυτά τα κουτακια; 2. Τέλος πατώντας διπλό αριστερό κλικ στο κελί E ή BH ανοίγει μια φόρμα που γράφω τις συντηρήσεις των συστημάτων, θα μπορούσαμε να της προσθέσουμε ορθογραφικό έλεγχο σε αυτή γιατί δεν έχει; |
1 Συνημμένο(α) Δες το συνημμένο: 1) Διόρθωσα το πρώτο πρόβλημα. 2) Λύση για το δεύτερο πρόβλημα δεν έχω. |
Ok kapetang σε ευχαριστώ πολύ για όλα, κάλο φθινόπωρο. |
Να είσαι καλά! |
| Η ώρα είναι 14:22. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.