Να μην συνεχίζει αν δει άδειο κελί 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 κάτι ακόμα κάτι έγραψα για να μου τυπώνει ασπρόμαυρα και τώρα δεν τυπώνει εχρωμα