[Spirosgr]

Καλησπέρα
Αν το κριτήριο της μορφοποίησης,
μπορεί να χρησιμοποιηθεί ως κριτήριο συνάρτησης =CountIf(),
τότε η απάντηση στα κελιά n1 & n2, για μια λύση με τύπους.

*Στην ουσία, δεν μας ενδιαφέρει το χρώμα, αλλά το κριτήριο που εμφανίζει το χρώμα...

Αν το κριτήριο της μορφοποίησης,
δεν μπορεί να χρησιμοποιηθεί ως κριτήριο συνάρτησης,
τότε μια λύση με κώδικα.

Ο κώδικας αυτός, (στο συμβάν Worksheet_Change)
τρέχει κάθε φορά που αλλάζει μια τιμή στα κελιά της περιοχής a1:k20.

Μπορείτε να «πάρετε» το τμήμα του κώδικα,
που περικλείεται ανάμεσα στα '//////////
και αφού ενεργοποιήσετε τις δύο πρώτες γραμμές,
να τον αντιγράψετε σε μια λειτουργική μονάδα,
ωστε να τον τρέχετε manual, όποτε κι αν θέλετε...

*Ο κώδικας τρέχει στο ενεργό φύλλο, γι αυτό προσοχή, πριν κάνετε οτιδήποτε,
να έχετε ενεργοποιημένο το φύλλο που πρέπει.

Θα μπορούσε ακόμα, να δοθεί λύση με μια UDF συνάρτηση,
αλλά δεν το θεωρώ απαραίτητο, μιας και τα κελιά με το αποτέλεσμα,
θα είναι όλα κι όλα δύο...