28-11-10, 13:44
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Γιώργο καλημέρα!
Γράφεις: Παράθεση: |
Το ζητούμενο είναι ένας κώδικας VBA που να αντιγράφει την τελευταία γραμμή που έχει δεδομένα και να την επικολλά στην πρώτη κενή του πίνακα προτρέποντάς μας να αλάξουμε μόνο τα δεδομένα στο τελευταίο κελί στην τελευταία στήλη (Μ).
| Έτσι έχουμε: τελευταία γραμμή που έχει δεδομένα = LastLine πρώτη κενή του πίνακα = FirstFreeLine
Στον κώδικα έχουμε: If FirstFreeLine.Row < LastLine.Row Then FirstFreeLine.Value = LastLine.Value
που σημαίνει ότι ΜΟΝΟ αν η πρώτη ελεύθερη γραμμή της περιοχής (FirstFreeLine.Row) είναι πάνω από την τελευταία γραμμή (LastLine) θα αντιγραφούν τα δεδομένα.
Αν πχ. η FirstFreeLine βρίσκεται στην γραμμή 12 και η LastLine επίσης στη γραμμή 12, ο κώδικας δεν θα κάνει την αντιγραφή γιατί θα διαγράψει τα ήδη υπάρχοντα δεδομένα της FirstFreeLine.
Με τον τρόπο που μου το περιγράφεις, δεν θα γίνει ποτέ αντιγραφή αφού η FirstFreeLine
δεν θα μπορεί να είναι μεγαλύτερη της LastLine!
Ελπίζω να έγινα κατανοητός
Φιλικά
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |