Φίλε Τάσο καλησπέρα
Η εντολή LastLine.ClearContents & η εντολή SendKeys "{F2}" όπως τις έγραψες δεν είναι ενεργοποιημένες
Παράθεση:
'LastLine.ClearContents ' Διαγραφει την τελευταία γραμμή
FirstFreeLine.Resize(1, 1).Offset(, .Columns.Count - 1).Select
'SendKeys "{F2}" ' φέρνει το κελί σε κατάσταση επεξεργασίας
|
Στο επισυναπτόμενο αρχείο, τον κώδικα που έδωσες (όπως ακριβως τον έγραψες) τον αντέγραψα σε ένα νέο module (motule3)
και τον αντιστοίχισα με το Button {Η λύση του (Τάσου) όπως τροποποιήθηκε} κάνοντας την αλλαγή που ανέφερα σε προγενέστερο μύνημα.
Παράθεση:
(To If FirstFreeLine.Row < LastLine.Row Then FirstFreeLine.Value = LastLine.Value
πρέπει να γίνει If FirstFreeLine.Row > LastLine.Row Then FirstFreeLine.Value = LastLine.Value)
|
Αν οι εγραφές στον πίνακα (Table) είναι συνεχείς (δεν υπάρχει κενή γραμμή και μετά γραμμή με δεδομένα) ο τροποποιημένος κώδικας
δουλεύει απόλυτα. εκτός από το γεγονός ότι επικολά και το τελευταίο κελί στην στήλη (Μ).
Άν υπάρχει κενή γραμμή και μετά γραμμή με δεδομένα, έχεις δίκιο ο κώδικας δουλεύει όπως ακριβώς τον έγραψες
(If FirstFreeLine.Row < LastLine.Row Then FirstFreeLine.Value = LastLine.Value).
Ίσως στο ζητούμενο έπρεπε να γράψω ότι οι εγραφές είναι συνεχείς.
Τέλος η πρόθεσή μου δεν ήταν να σε διορθώσω (πως θα μπορούσα άλωστε, έχω δηλώσει και σε προηγούμενα μυνήματα αρχάριος στη
VBA),
απλώς κρίνοντας από το αποτέλεσμα με τον τροποποιημένο κώδικα έγραψα το παραπάνω μύνημα.
Φιλικά Γιώργος