[VBA] Αυτόματο μήνυμα

[anestaki]

Καλημέρα
Για μια ακόμη φορά την βοήθεια σας, πως μπορώ να εμφανίσω αυτόματα MSGbox όταν σε ένα κελί δεν είναι σωστή η τιμή (N44<>1000)

[Spirosgr]

Καλημέρα
Αυτό μπορεί να γίνει με Επικύρωση δεδομένων
Αν υποθέσω ότι στο κελί Ν44 δεν πρέπει να μπει η τιμή 1000
Ακολούθησε τα βήματα στο συνημμένο
Αν πρέπει να μπει μόνο η τιμή 1000 απλά άλλαξε το "όχι ίσο" με το "ίσο"

ΥΓ επειδή είδα ότι υπάρχει ένα πρόβλημα συμβατότητας σε κάποιες εικόνες (δεν εμφανίζονται) το ανεβάζω μόνο σε xlsx

[anestaki]

Καλημέρα Σπύρο Χριστός Ανέστη

Καταρχήν παρά πολύ ωραία και αναλυτική η παρουσίαση σου.
Ξέχασα να αναφέρω ότι Ν44 περιέχει συνάρτηση SUM() και είναι κελί επαλήθευσης και δεν θα μπορώ να το επιλέξω όταν θα κλειδώσω το φύλλο.
Το επαλήθευση δεδομένων θα το χρησιμοποιήσω σε κελία όπου θα πρέπει να μπουν τιμές ως προειδοποίηση.
Σε ευχάριστο Γιώργος

[Spirosgr]

Πέρασε στο Φύλλο που είναι το Ζητούμενο κελί Ν44 τον Κώδικα

Private Sub worksheet_calculate()
If Range("N44") <> 1000 Then
MsgBox "ΠΡΟΣΟΧΗ! Αυτή η Τιμή ΔΕΝ είναι επιτρεπτή", vbExclamation + vbSystemModal + vbInformation, "ms-office.gr"
End If

End Sub

Στο παράδειγμα που ακολουθεί το κελί το έχω κάνει Κ4 για να φαίνεται καλύτερα στο φύλλο

Το κελί Κ4 "είναι τύπος και "παίρνει" από τα Α1…….F1
Αυτά μπορεί να περιέχουν Τύπους , Σταθερές ή ότι άλλο
Τα κίτρινα κελιά καθώς και το Ζητούμενο (Κ4) περιέχουν τύπους και είναι κλειδωμένα
Αν δεν πάρει τιμή 1000 εμφανίζει Msgbox με ειδοποίηση λάθους
Το Msgbox θα εμφανιστεί ακόμη κι αν είμαστε σε άλλο Φύλλο και οι Υπολογισμοί μας επηρεάζουν το κελί Κ4

[anestaki]

Καλησπέρα σε όλους
Σπύρο σε ευχαριστώ είναι αυτό που ζητούσα.
Για μια ακόμη φορά με βοήθησες παρά πολύ, και πάλι ευχαριστώ.

[Spirosgr]

Καλημέρα Γιώργο και ΧΡΟΝΙΑ ΠΟΛΛΑ
Αφαίρεσε από τον Κώδικα το κόκκινο κομμάτι
Private Sub worksheet_calculate()
If Range("N44") <> 1000 Then
MsgBox "ΠΡΟΣΟΧΗ! Αυτή η Τιμή ΔΕΝ είναι επιτρεπτή", vbExclamation + vbSystemModal + vbInformation, "ms-office.gr"
End If

End Sub