Να μην συνεχίζει αν δει άδειο κελί VBA
 

Καλησπέρα στην ομάδα
θέλω την βοήθεια σας σε αυτό τον κώδικα και θέλω όταν ας πούμε στο κελί Β29 του πρώτου φύλλου δεν είχε τίποτα να μην προχωράει πιο κάτω του κώδικα... Και αν γράψεις και δώσεις ξανά εντολή να γράφει και τα υπόλοιπα.


'ΑΝΤΙΓΡΑΔΗ ΑΠΟ Συγκεντρωτική κατάσταση ΣΕ ΔΟΚΙΜΗ
ActiveWindow.SmallScroll Down:=6
Sheets("ΔΟΚΙΜΙ").Select

Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("B28").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("C28").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Range("I5,G7,G13").Select
Selection.ClearContents
' ΔΕΥΤΕΡΟ ΟΝΟΜΑ

Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("B29").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("C29").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Range("I5,G7,G13").Select
Selection.ClearContents

ΚΑΙ ΘΑ ΓΡΑΤΟΥΝ ΚΙΑΛΑ

Καλημέρα

Το μεγαλύτερο μέρος του κώδικα είναι περιττό.

Καλύτερα να ανεβάσεις δείγμα του βιβλίου εργασίας και να εξηγήσεις τι ακριβώς θέλεις.

Οκ.... Το απόγευμα θα ανεβάσω

το βιβλίο εργασίας θέλω από τι πρώτο φύλο να παίρνει κάποια κελιά , το κάθε όνομα δηλαδή και να τα πάει στο φύλο Δοκιμή στα κελιά που του λέω .μετά να εκτυπώνει να διαγραφή και να παίρνει το δεύτερο όνομα κλπ. θέλω αν ας πούμε να το κάνω για 50 ονόματα άλλα αν δεν έχω τόσα να σταματήσει να γράφει και να εκτυπώνει και αν προστατεύσω να κάνει και σε αυτό

Καλησπέρα

Πατώντας το κουμπί "ΕΚΤΥΠΩΣΗ" στο φύλλο «Συγκεντρωτική κατάσταση» εκτελείται κώδικας, ο οποίος για κάθε μη κενό όνομα του φύλλου:

1) Συμπληρώνει τα κελιά g7 και i5 του φύλλου «ΔΟΚΙΜΙ», με το όνομα και το διαμέρισμα, αντίστοιχα.

2) Εκτυπώνει το φύλλο «ΔΟΚΟΜΙ»

3) Διαγράφει το περιεχόμενο των κελιών g7 και i5.

Καλησπέρα φίλε κάτι τέτοιο θέλω να κάνω.μονο που θέλω να περνάει και άλλα κελιά στο φύλο Δοκίμι πριν την εκτύπωση και την διαγραηγ αυτών. Δεν είναι στην ίδια σήρα ούτε στο πρώτο φύλο και πάνε διάσπαρτα στο δεύτερο.

Και κάτι ακόμα πως να κάνω με άλλο κουμπί να μπορώ να επιλέξω να εκτύπωση μόνο ένα όνομα αν χρειαστεί;
Ευχαριστώ εκ των προτέρων

1)
Στο συνημμένο, όταν πατούμε το κουμπί, μας ζητάει να ορίσουμε την περιοχή των ονομάτων.

Έτσι μπορούμε να εκτυπώσουμε ένα ή περισσότερα ονόματα.

2)
Τις αντιγραφές των άλλων τιμών θα πρέπει να τις κάνεις ο ίδιος, αφού μόνο εσύ τις γνωρίζεις.

Καλήμερα φίλε και ευχαριστώ για την βοήθεια . μαζί με τα κελιά όνομα διαμέρισμα πρέπει να παίρνει από το D28 έως το I28 από το J28 έως και κάνα δυο τρία άλλα .
να τα πιγενει και αυτά στα ταυτόχρονα
I5,G7,G13,G19,G22,G26,G29,I13,I19,I22,I26,I2,I40,G 40
εκτύπωση και μετά διαγραφή δεύτερο όνομα τρίτο κλπ εκτύπωση διαγραφή
I5,G7,G13,G19,G22,G26,G29,I13,I19,I22,I26,I2,I40,G 40

Καλησπέρα

Για να μη υπάρχουν αμφιβολίες:

1) Σε μία γραμμή ενός φύλλου εργασίας καταχώρησε τα κελιά: b28, c28, d28,...,q28 (16 κελιά)

2) Κάτω από κάθε κελί θα καταχωρήσεις το κελί, που τροφοδοτεί, του φύλλου «ΔΟΚΙΜΙ».

Αν δεν υπάρχει τροφοδοσία το κελί θα μένει κενό.

3) Ανέβασε το βιβλίο εργασίας με το φύλλο.

Αν κατάλαβα καλά αυτό θέλεις
εφιαξα ένα φύλλο με τα κελιά που θέλω να περνώ από Συγκεντρωτική κατάσταση, στα κελιά που θέλω να αντίγραφοντε στην ΔΟΚΙΜΙ

KAI κάτι ακόμα κάτι έγραψα για να μου τυπώνει ασπρόμαυρα και τώρα δεν τυπώνει εχρωμα

Καλησπέρα

Βασίλη, κάνε δοκιμές στο συνημμένο.

Καλησπέρα φίλε όλα καλά αυτό ήθελα
σε ευχαριστώ πάρα πολύ

Να είσαι καλά και καλή συνέχεια.

Καλήμερα φίλε άλλη μια βοήθεια θέλω
θέλω να κλειδώσω το φύλλο ΔΟΚΊΜΙ και όταν τρέχει ο κώδικας στην αρχή να ξεκλειδώνει να εκτυπώνει και μετά να το ξανακλειδωνει

KAI αν μπορούμε να επιλέγουμε εκτυπωτή η την γκι εκτύπωση αν δεν θέλει καπιστριού να βγάζει εχρωμη

Καλησπέρα

Δες το συνημμένο.

1) Για το κλείδωμα το Password είναι: 123

2) Για την εκτύπωση, επειδή δε λειτουργεί ο εκτυπωτής μου δεν μπορώ να κάνω δοκιμές και να βοηθήσω.

Θα μπορούσες πριν την εκτύπωση και ενώ είναι ενεργό το φύλλο «ΔΟΚΙΜΙ» να ανοίγεις το πλαίσιο Page Setup (διαμόρφωση σελίδας) και να κάνεις τις επιλογές που θέλεις.

Φίλε αυτό ήθελα με τον εκτυπωτή θα δω τι θα κάνω και αυτό που πρωτινές κάνει δουλειά

ευχαριστώ !!!!!!!!!

ελπίζω να τελείωσα

Καλησπέρα και πάλι φίλε....
Έχω μια ερωτήσεις μπορώ να κλείδοσω το βιβλίο που να παίζει στον υπολογιστή μου και αν πάει σε άλλο υπολογιστή να πρέπει εγώ από τον κώδικα να το ξεκλειδώσω

Δεν έχω ασχοληθεί με το θέμα και δεν το γνωρίζω…

Καλησπέρα Βασίλη,

Θα σου πρότεινα μια απλή λύση που ίσως να σε καλύπτει.

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

Στο πλαίσιο παραθύρου Αποθήκευση ως, υπάρχει ένα κουμπί Εργαλεία (δίπλα στο κουμπί Αποθήκευση) με τέσσερις επιλογές. Επέλεξε Γενικές Επιλογές και βάλε κωδικό όπου χρειάζεται.

[QUOTE=ChrisGT7;34548]Καλησπέρα Βασίλη,

Θα σου πρότεινα μια απλή λύση που ίσως να σε καλύπτει.

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

Στο πλαίσιο παραθύρου Αποθήκευση ως, υπάρχει ένα κουμπί Εργαλεία (δίπλα στο κουμπί Αποθήκευση) με τέσσερις επιλογές. Επέλεξε Γενικές Επιλογές και βάλε κωδικό όπου χρειάζεται.[/QUOT

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

Καλησπέρα ChrisGT7 και ευχαριστώ ..... άλλα θέλω αν δώσω το βιβλίο σε κάποιον και το δουλεύει, αυτός να μην μπορεί να το δώσει κάπου άλλου....

Βασίλη,

Δε θεωρώ πως μπορείς να το κάνεις αυτό. Δεν είναι εφαρμογή, όπως το MS Office που είναι εγκατεστημένή σε συγκεκριμένο υπολογιστή, αλλά ένα απλό αρχείο. Τα αρχεία μπορούν πολύ εύκολα να μοιραστούν οπουδήποτε και με οποιονδήποτε τρόπο (π.χ. e-mail, USB sticks, κ.τλ.).

Αν και δεν είμαι και τόσο γνώστης, αλλά αν ο υπολογιστής που θα το δώσεις είναι κρυπτογραφημένος και έχει τυχόν εταιρικά πρωτόκολλα ασφαλείας (βλ. GDPR), τόσο ίσως να μπορεί να γίνει ως ένα βαθμό.

Δυστυχώς δε γνωρίζω κάτι παραπάνω για να σε βοηθήσω.

Ευχαριστώ φιλε