[Spirosgr]

Καλημέρα
Στο κάτω μέρος του κώδικα, εκεί που λέει:
'Μεταφορά δεδομένων στους προορισμούς τους
Στο πρώτο τμήμα (If Mtch1 <> 0 Then)
βάλε πριν το End If

            Sh1.Range("o" & Mtch1 + handicap_2_3).Value = _
            Sh0.Range("s" & i).Value + _
            Sh0.Range("y" & i).Value + _
            Sh0.Range("af" & i).Value + _
            Sh0.Range("an" & i).Value

Στο δεύτερο τμήμα (If Mtch2 <> 0 Then)
βάλε πριν το End If

            Sh2.Range("o" & Mtch2 + handicap_2_3).Value = _
            Sh0.Range("s" & i).Value + _
            Sh0.Range("y" & i).Value + _
            Sh0.Range("af" & i).Value + _
            Sh0.Range("an" & i).Value

(*βλέπε εικόνα)

Γιατί έγραψα τον κώδικα με αυτόν τον τρόπο:

Αν αλλάξεις τη στήλη προορισμού (ο) αθροίσματος,
μπορείς εύκολα να το αλλάξεις
ακόμα κι αν η αλλαγή, αφορά το ένα μόνο φύλλο προορισμού.

Αν χρειαστεί να μεταβάλεις μια στήλη που θα αθροιστεί (s, y, af, an),
μπορείς εύκολα να το αλλάξεις
ακόμα κι αν η αλλαγή αφορά το ένα μόνο φύλλο προορισμού.
Παράδειγμα, αλλάζω την y με z στο φύλλο Προορισμός_1 και μόνο.

Sh0.Range("y" & i).Value + _ θα γίνει Sh0.Range("z" & i).Value + _

Αν χρειαστεί να προσθέσεις μια στήλη στο άθροισμα,
προσθέτεις μια γραμμή:

Sh0.Range("Γραμμα Στήλης" & i).Value + _

για το ανάλογο φύλλο προορισμού.

Σημείωση 1:
Το μεταφερόμενο άθροισμα, έχει μορφή «Γενική»
Αν θέλεις άλλη μορφοποίηση, πες μου να το διορθώσουμε.

Σημείωση 2:
Αν το μεταφερόμενο άθροισμα, είναι μηδέν (πχ από κενά κελιά),
θα γράψει μηδέν (0)
Αν θέλεις να γράφει-αφήνει «κενό», πες μου να το διορθώσουμε.