Excel makro

[Επισκέπτης]

Λοιπόν, ψάχνω τρόπο να κάνω το εξής:

 

Έστω ότι έχω 6 cells. Θέλω όταν βάζω κάποια τιμή στα 5 cells (όποια και να είναι αυτή) το έκτο cell να έχει ένδειξη, δηλαδή να αλλάζει χρώμα σε μωβ για παράδειγμα. Αν έχουν τα 4 κάποια τιμή να μην αλλάζει χρώμα. Η προυπόθεση δηλαδη να είναι ότι και τα 5 cells να έχουν κάποια τιμή για να υπάρχει ένδειξη στο έκτο.

 

Ελπίζω να ήμουν σαφής.

 

ΥΓ: Αν το post ανήκει στο software, ζητάω συγγνώμη...

[Alexandroz]

An katalava kala, 8es apla otan tre3eis to macro elegxei tis times kai oxi ka8e fora poy tis allazeis, etsi? Ayto ginetai me thn parakatw yporoytina.

 

<pre><font class="small">code:</font><hr> Sub checkCells()

If Range("A2").Value <> "" And Range("B2").Value <> "" _

And Range("C2").Value <> "" And Range("D2").Value <> "" _

And Range("E2").Value <> "" Then

Range("F2").Select

Selection.Interior.ColorIndex = 4 'Green

Else

Range("F2").Select

Selection.Interior.ColorIndex = 6 'Yellow

End If

End Sub </pre><hr>