19-11-15, 12:51
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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η στήλη στον πίνακα)
θα ονομάσεις την στήλη, πχ FullName και
στον υπάρχοντα κώδικα, του διπλού κλικ θα κάνεις:
1
Αλλαγή της περιοχής
If Intersect(Target, Sheet1.Range("c4:c11")) Is Nothing Then
σε
If Intersect(Target, Sheet1.Range("FullName ")) Is Nothing Then
2
Στο χώρο του Else
Οι μεταφορές (όποιων τιμών σου χρειάζονται) θα γίνουν με offset του κελιού
από target δεξιά+ ή αριστερά-
3
Στο τέλος πριν την έξοδο
Cancel = True
End Sub
Σημείωση:
Βέβαια, το συγκεκριμένο αρχείο, το έχεις κάνει άνω-κάτω, γιατί δεν ξέρω τώρα αν τελικά χρησιμοποίησες
τον κώδικα ή τους τύπους για τις προηγούμενες εργασίες... |