Αγαπητοί φίλοι
αν μπορεί να βοηθήσει κάποιος
έχουμε ένα βιβλίο εργασίας με δύο φύλλα εργασίας το ΚΑΤΑΧΩΡΗΣΗ και το ΕΜΦΑΝΙΣΗ
Στο ένα καταχωρώ τιμές και γίνεται κάποια επεξεργασία και κάποια κελιά παίρνουν κάποιες τιμές π.χ το κελί B5 στο φύλλο εργασίας ΚΑΤΑΧΩΡΗΣΗ παίρνει τις τιμές "Ναι" ή "Οχι" ανάλογα.
Στο άλλο φύλλο εργασίας ΕΜΦΑΝΙΣΗ το κελί Β5 θέλω να αλλάζει το χρώμα του ανάλογα με την τιμή του κελιού στο φύλλο εργασίας ΚΑΤΑΧΩΡΗΣΗ δηλαδή όταν το ΚΑΤΑΧΩΡΗΣΗ!B5 = 'Ναι' το ΕΜΦΑΝΙΣΗ!Β5 να γίνεται κόκκινο ενώ αν το ΚΑΤΑΧΩΡΗΣΗ!B5 = 'Οχι' το ΕΜΦΑΝΙΣΗ!Β5 να γίνεται πράσινο
Sub XROMA()
Dim timi As String
Application.Worksheets("ΚΑΤΑΧΩΡΗΣΗ").Cells("B5").Select
If Applications.Worksheets("ΚΑΤΑΧΩΡΗΣΗ").Cells("B5").Value = "Ναι" Then
Application.Worksheets("ΕΜΦΑΝΙΣΗ").Cells("B5").Select
Range("B5:B5").Interior.Color = RGB(300, 0, 35)
else
Range("B5:B5").Interior.Color = RGB(100, 250, 35)
End If
End Sub
Προφανώς κάποιο λάθος κάνω στην απόδοση της σωστής τιμής στα κελιά των δύο φύλλων
Μπορεί να βοηθήσει κάποιος γιατί τώρα ψάχνω τα θέματα της VBA ;
Ευχαριστώ