25-01-17, 17:14
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Πάμε στο φύλλο, που θέλεις να έχεις το αποτέλεσμα (Φύλλο2).
Δεξί κλικ, στην Tab του φύλλου.
Κλικ στον διάλογο, στο View Code (*βλέπε εικόνα)
Αντιγράφεις τον κώδικα: Κώδικας: Option Explicit
Private Sub Worksheet_Activate()
Me.Cells(2, 1).Value = Sheet1.Cells(2, 1).Value
End Sub Αν το Option Explicit, υπάρχει ήδη στο φύλλο, το παραβλέπεις.
Όπου Sheet1, το κωδικό όνομα του φύλλου (εκείνου που αλλάζεις-μεταφέρεις κελιά).
SaveAs . xlsm για να μπορεί να εκτελεστεί κώδικας.
|