Την ώρα που έγραφα αυτόν τον κώδικα, έγραφα και ακόμα έναν κάπου αλλού,
με αποτέλεσμα να μου ξεφύγουν κάποιες λεπτομέρειες...
Είπαμε στο post #14, ότι:
«...*Ο κώδικας, έχει γίνει με τρόπο ώστε,
να είναι δυνατή η αλλαγή της φόρμας του φύλλου «Βαθμολογία»,...»
Αν
δεν θέλετε να αλλάξετε κάτι από αυτά που είπαμε όλα καλά, ο κώδικας θα δουλέψει...
Αν
αλλάξετε τη δομή του φύλλου, τότε:
Πάμε στην module:
mdl_Consts
και συμπληρώνουμε στις παραμέτρους και αυτά
Κώδικας:
Public Const D1Col As Byte = 6
Public Const D2Col As Byte = 8
Public Const D3Col As Byte = 10
για να μπορούμε να τα παραμετροποιήσουμε αν χρειαστεί...
Πάμε στον κώδικα του διπλού κλικ και συμπληρώνουμε
αμέσως μετά από το
Κώδικας:
If Target.Row < StartRow Or Target.Row > EndRow Then Exit Sub 'Target, εκτός εμβέλειας γραμμών περιοχής
και αυτό
Κώδικας:
If Target.Column <> D1Col And _
Target.Column <> D2Col And _
Target.Column <> D3Col Then Exit Sub 'Target, εκτός εμβέλειας στηλών περιοχής
και τέλος στο Select Case c, αλλάζουμε
Κώδικας:
Case 6 με Case D1Col
Case 8 με Case D2Col
Case 10 με Case D2Col
*Ελπίζω να μην ανακαλύψω κάτι άλλο...