[Συναρτήσεις] Αναζήτηση συνάρτησης:"If then do στο κελί τάδε αυτό και στο κελί τάδε το άλλο..."

[Spirosgr]

Καλημέρα
Με βάση τα παραπάνω μια πολύ χρήσιμη εφαρμογή θα ήταν η εξής:
Αν κάποιο κελί πχ Α1 παίρνει μια συγκεκριμένη τιμή πχ = 5
τότε αυτόματα να εμφανίζονται κάποιες λέξεις, επισημάνσεις στα κελιά μιας άλλης περιοχής της επιλογής μας
Βάζουμε τον παρακάτω κώδικα στο Φύλλο (όχι σε Module) και σε κάθε αλλαγή ελέγχει αν η τιμή του Α1 είναι 5 και ανάλογα "γεμίζει" τα κελιά της περιοχής που θέλουμε

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("myRange")    'για κάθε κελί της ονομασμένης περιοχής 
        If Range("A1").Value = 5 Then    ' αν η τιμή του Α1 είναι πχ = 5
            c.Value = "Done"    ' τότε γράψε σε όλα τα κελιά της περιοχής την λέξη πχ "Έγινε"
        Else    'άλλως
            c.Value = "in Progress"    'γράψε σε όλα τα κελιά της περιοχής την λέξη πχ "Σε εξέλιξη"
        End If
    Next
End Sub

Καλή συνέχεια!