23-04-12, 13:21
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλημέρα Γιώργο και ΧΡΟΝΙΑ ΠΟΛΛΑ
Αφαίρεσε από τον Κώδικα το κόκκινο κομμάτι
Private Sub worksheet_calculate()
If Range("N44") <> 1000 Then
MsgBox "ΠΡΟΣΟΧΗ! Αυτή η Τιμή ΔΕΝ είναι επιτρεπτή", vbExclamation + vbSystemModal + vbInformation, "ms-office.gr"
End If
End Sub
|