[Excel07] Αντιγραφή δεδομένων

[Mpampis9050]

Γειά σας αγαπητοί φίλοι, θα ήθελα τη βοήθεια σας για να αντιγράφονται δεδομένα κάποιας στήλης σε στήλη άλλου φύλλου, όπως γίνεται σε μία βάση δεδομένων. Δηλαδή κάθε νέα εγγραφή, (ακόμα και στα ήδη μη κενά κελιά) να αντιγράφεται σε νέα σειρά χωρίς ενημέρωση των προηγούμενων σειρών από πάνω.
πχ. έχουμε στήλη με ονόματα στο φύλλο Α και θέλουμε να μεταφέρονται σε στήλη στο φύλλο Β της οποίας το μήκος φυσικά θα είναι απεριόριστο αφού δεν θα ενημερώνονται οι υπάρχουσες καταχωρήσεις.
Ολα αυτά βέβαια μάλλον θα γίνονται με κώδικα, γι αυτό και απευθύνομαι στις γνώσεις σας.
Σας ευχαριστώ ...
(επισυνάπτω αρχείο)

[Spirosgr]

Μπάμπη, καλώς ήλθες στο ms-office.gr

Αν κατάλαβα το ζητούμενο, τότε:

1. Κάνε το βιβλίο .xlsm
2. Βάλε στο φύλλο 2, κελί a1, ένα τίτλο πχ Edit List
3. Αντέγραψε τον πιο κάτω κώδικα, στο φύλλο1, συμβάν Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lrow As Long
    Lrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1

    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub

    If Target.Column <> 1 Then Exit Sub
    Sheet2.Cells(Lrow, 1).Value = Target.Value
End Sub

Σε κάθε αλλαγή, στη στήλη Α, φύλλο1,
θα καταχωρείται η εγγραφή, στο τελευταίο (κενό) κελί της στήλης Α, του φύλλου2.

Νέα καταχώρηση θα γίνεται, ακόμα κι αν αλλάξει μια τιμή στο φύλλο1

[Spirosgr]

Συμπληρωματικά, επειδή δεν διευκρινίζεις το ρόλο της =Τ()
αν δηλαδή η μεταφορά θα γίνει σε τιμές string και μόνο,
βάλε μετά το

    If Target.Column <> 1 Then Exit Sub

την γραμμή/γραμμές (κατ' επιλογήν) για απαγόρευση αριθμών, ημερομηνιών

  If IsNumeric(Target.Value) Then Exit Sub
    If IsDate(Target.Value) Then Exit Sub

[Mpampis9050]

Φίλε Σπύρο ευχαριστώ για την άμεση ανταπόκριση, έκανα ότι μου είπες αλλά μου βγάζει μήνυμα λάθους. Αν μπορείς ανέβασε ένα μικρό παράδειγμα ...

[Spirosgr]

Προφανώς έχεις Ελληνικό Office.
Άλλαξε όπου Sheet2 = Φύλλο2

[Mpampis9050]

Δουλεύει. Είσαι φοβερός. Ευχαριστώ ...

[Spirosgr]

Να 'σαι καλά.