Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 04-03-11, 00:33
Το avatar του χρήστη gr8styl
gr8styl Ο χρήστης gr8styl δεν είναι συνδεδεμένος
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
Προεπιλογή

Φίλε Αναστάση,
για όλα υπάρχει μια αρχή, Καλώς όρισες λοιπόν στο φόρουμ μας.
Για το ερώτημά σου τώρα, αν έχω καταλάβει καλά αυτό που ζητάς είναι:
κάθε φορά που αλλάζουν τα περιεχόμενα του Φύλλο1!a1 να αντιγράφονται τα περιεχόμενα του στο πρώτο κενό κελί της στήλης Φύλλο2!a:a

Χωρίς να ξέρω ποιές είναι οι γνώσεις σου σε σχέση με την VBA και τις μακροεντολές σου λέω ότι:
Για να γίνεται αυτό αυτόματα θα πρέπει να χρησιμοποιήσεις το συμβάν Worksheet_Change. Από την άλλη, η αντιγραφή μπορεί να γίνει μόνο χρησιμοποιώντας κώδικα VBA

Ο παρακάτω κώδικας λοιπόν στο συμβάν Worksheet_change του Φύλλο1 θα σου κάνει το ζητούμενο

Πες μας αν τα κατάφερες.

Θανάσης

Κώδικας:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    With Sheets("Φύλλο2")
        .Cells(.Range("A1").End(xlDown).Row + 1, 1) = Target.Value
    End With
    Target.Select
End If
End Sub
Απάντηση με παράθεση