Ο ΡΚ ρωτά:
Έχω ένα φύλλο εργασίας όπου εισάγω ορισμένες τιμές. Κάνοντας κλικ σε ένα κουμπί μακροεντολής, θέλω οι τιμές ή τα αποτελέσματα που υπολογίζονται να προσαρτώνται σε ένα διαφορετικό φύλλο ή αρχείο.
Καλή ερώτηση. Ας υποθέσουμε ότι οι τιμές βρίσκονται στα κελιά C10 και E12 του Φύλλου1 και θέλετε να προσαρτηθούν στην επόμενη σειρά στο Φύλλο2.
Το πραγματικό τέχνασμα εδώ είναι ο κωδικός για να βρείτε την επόμενη σειρά στο Sheet2. Ξεκινώντας από την τελευταία σειρά στο Sheet2 (A65536) και μετά χρησιμοποιώντας το .End (xlup) θα βρει την τελευταία σειρά με δεδομένα στη στήλη A. Η προσθήκη 1 σε αυτήν τη σειρά θα σας οδηγήσει στην επόμενη σειρά για δεδομένα στο Sheet2. Χρησιμοποιήστε αυτόν τον κωδικό:
Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub
