
04-03-11, 00:33
|
 | 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
|