[VBA] Αντιγραφη σε αλλο φύλλο προβλημα

[Spirosgr]

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

Συμπληρώνουμε στις παραμέτρους του κώδικα:
'Φύλλο εκκίνησης (όνομα)
'Φύλλο προορισμού (όνομα)
'Φύλλο εκκίνησης αριθμός πρώτου κελιού στήλης που θα μεταφερθεί
'Φύλλο εκκίνησης αριθμός στήλης που θα μεταφερθεί (1 = a)
'Φύλλο προορισμού αριθμός πρώτης στήλης που θα πάνε τα δεδομένα (1 = a)
'Φύλλο προορισμού «ντάνες» πχ των 30 γραμμών
'Φύλλο προορισμού στήλες που θα καταλάβουν οι ντάνες πχ 9
'Φύλλο προορισμού γραμμή που ξεκινάνε τα δεδομένα

Τρέχουμε τον κώδικα:
Ελέγχει αν τα δεδομένα στην στήλη που θα μεταφερθεί, «χωράνε» στην περιοχή
που έχουμε ορίσει.
Αν δεν χωράνε μας βγάζει ένα μνμ και σταματάει.

Αν όλα καλά, καθαρίζει τα παλιά δεδομένα και τοποθετεί στην προκαθορισμένη
στήλη τα δεδομένα, «σπάζοντάς» τα σε ντάνες όπως έχουμε ορίσει.

[kolekas]

ευχαριστώ πολύ Σπυρο για την πολύτιμη βοήθεια για άλλη μια φορά

[Spirosgr]

Καλημέρα Βασίλη, καλή συνέχεια.