Ανανέωση ιστοσελίδας

[Nick1983]

Καλησπέρα στην παρέα, πιστεύω να μην έχει γίνει ξανά αυτή η ερώτηση στο site και ανοίγω κι άλλο θέμα διότι είμαστε και λίγο άσχετοι με την τεχνολογία.

Γράφω και μέσα στο αρχείο τι ακριβώς θέλω και αν γίνεται.
Να ενημερώνω κάποια στοιχεία με μεκροεντολές (πάμε καλά μεχρι εδώ) και όταν κάποιος δεν προστίθεται στο φύλλο 1 να κρύβεται όλο το πλαίσιο του.
Sorry παιδιά που δε μπορώ να σας δώσω να καταλάβετε επ' ακριβώς τι ζητώ, αν ανοίξετε το αρχείο θα καταλάβετε.

Ευχαριστώ εκ των προταίρων και κάθε βοήθεια, διόρθωση, κράξιμο δεκτά.

[Spirosgr]

Καλησπέρα
Νίκο κατ' αρχήν καλώς ήρθες στην παρέα μας
Κατά δεύτερον επειδή μπορεί να μην ξέρουμε πως να ανοίξουμε τον φάκελο ή να μην θέλουμε να
κάνουμε register στο megafileupload ανέβασε ένα excel στο φόρουμ με το ζητούμενό σου

[Spirosgr]

Καλημέρα
Νίκο κατ' αρχήν βλέπω ότι όλα τα κουμπιά του φύλλου 2 είναι περιττά.
Χρειάζεται μόνο ένα καθώς και οι εντολές θα μπορούσαν να είναι "μαζεμένες" σε μία.
Η πρότασή μου (μία μέθοδος) έχει ως εξής:
Κατάργηση του φύλλου 3 (δεν χρειάζεται και σχεδόν απαιτείται η κατάργηση Copy _ Paste)
Παραμένει η δομή του φύλλων:
Φύλλου 2 συν μία στήλη επιλογής οδηγού ΝΑΙ, ΌΧΙ και
Φύλλου 1 με τα "χαρτάκια" χωρίς συγχωνευμένα κελιά
Τι θα γίνεται:
Με το κουμπί θα "αντιγράφονται" οι επιλεγμένοι οδηγοί με το φορτίο τους κλπ
σε τόσα "χαρτάκια" όσα είναι τα δρομολόγια.
Συμφωνείς ;

[Nick1983]

Συμφωνώ, να προσθέσω πως οι οδηγοί είναι περισσότεροι αλλά αυτό δεν με προβληματίζει, με προβληματίζει το ότι δεν κατάφερα με τις μακροεντολές που έκανα, αφού τις εκτελώ στον 1 και 3 δε μπορω να κρύψω τον 2, με αποτέλεσμα στην περιοχή εκτύπωσης να εκτυπώνεται περιττό χαρτάκι.
Με ένα πάτημα του κουμπιού που είπες πως θα μπορώ όμως να επιλέγω κάθε φορά διαφορετικούς οδηγούς? δεν πρέπει να κάνω ένα για τον καθένα ώστε κάθε φορά να τον προσθέτω?..
Ευχαριστώ πολύ.

[Spirosgr]

Το όλο θέμα βασίζεται στο εξής
Θέλεις να κάνεις μια αποστολή εμπορευμάτων με 15 οδηγούς σε 15 εταιρίες
Επιλέγεις τους οδηγούς (ΝΑΙ) συμπληρώνεις τι θα μεταφέρουν και που
Πατάς το κουμπί
Όλα τα επιλεγμένα με ΝΑΙ (και μόνο αυτά) μεταφέρονται σε χαρτάκια για εκτύπωση
Αύριο έχεις άλλο πακέτο για αποστολή
Αλλάζεις οδηγούς κλπ και ξαναπατάς το κουμπί
Το Αύριο μπορεί να είναι σε 1 ώρα με 1 οδηγό

[Thanosp]

Καλησπέρα σε όλους
Χωρίς vba με πίνακες κοίτα το συνημμένο
Θανάσης

[Spirosgr]

Καλησπέρα
Το βιβλίο που ακολουθεί περιέχει 2 φύλλα
Στο ένα μπαίνουν τα στοιχεία μας και επιλέγονται οι οδηγοί
Στο άλλο μεταφέρονται μόνο τα επιλεγμένα σε μια δυναμική περιοχή εκτύπωσης
Η διάταξη που υπάρχει στα "χαρτάκια"
Με ρύθμιση εκτύπωσης
Χαρτί Α4
Όρθιο
Κανονικά περιθώρια
Χωρίς κλίμακα
και Page Set up
Περιθώρια τσεκ μόνο Οριζόντια
Χωράει 5 χαρτάκια ανά Α4 ακριβώς

Υποστηρίζει μέχρι 10 ταυτόχρονα οδηγούς
Αν χρειάζεται περισσότερο επεκτείνετε τις φόρμες και τους τύπους κάτω
Αν επεκτείνετε τις φόρμες και τους τύπους να διορθωθεί ο τύπος και στο Name Manager που κάνει την περιοχή δυναμική
Με το σκεπτικό ότι για την συγκεκριμένη εφαρμογή η VBA ίσως είναι περιττή
η λύση δεν χρησιμοποιεί κώδικα αλλά τύπους
Λύση με κώδικα για όποιον ενδιαφέρεται για παρόμοια θέματα αύριο...

[Spirosgr]

Καλησπέρα
Με αφορμή τον τρόπο που επέλεξε ο Νίκος να κάνει την εργασία του
δηλ VBA με Copy - Paste στο βιβλίο που ακολουθεί υπάρχει ο κώδικας και γενικά η μέθοδος
που που κατά την γνώμη μου πρέπει να γίνει
αν επιλέξουμε τελικά αυτόν τον δρόμο στην εργασία μας.
Η μέθοδος λειτουργεί πάρα πολύ καλά και δίνει 100% το αποτέλεσμα που θέλουμε
αλλά δεν είναι η ενδεδειγμένη μέθοδος προγραμματισμού αν θα ήθελε κανείς να πει ότι δημιουργεί έναν κώδικα προγραμματισμού με απαιτήσεις.
Με τον τρόπο αυτόν όμως ο μέσος χρήστης μπορεί πολύ αξιόπιστα
να εκτελέσει παρόμοιες εργασίες.
Περισσότερα μέσα στο βιβλίο.
Αύριο μια άλλη πολύ πιο "προγραμματιστική" μέθοδος

[Nick1983]

Καλησπέρα παιδιά, σας ευχαριστώ πολύ για τον χρόνο σας και σας είμαι ευγνώμων! Σας ευχαριστώ όλους!

[Spirosgr]

Καλησπέρα
Όπως είχαμε πει, σήμερα θα δούμε κάποιους κώδικες που κάνουν την μεταφορά των εγγραφών από το ένα φύλλο στο άλλο με πιο "αποτελεσματικό" και σωστό τρόπο από την αντιγραφή επικόλληση.
Η Πρώτη περίπτωση είναι με το σύστημα που μεταφέρεται η αξία του ενός κελιού σε ένα άλλο
παράδειγμα Sheet1.Cells(1, 1).Value = Sheet2.Cells(2, 2).Value
και η δεύτερη είναι με μεταβλητές που εισάγουν τα δεδομένα κάνοντας "κύκλο"
Περισσότερα στα βιβλία που ακολουθούν...
Καλή συνέχεια!