29-05-13, 19:52
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Καλησπέρα
Ο πιο απλός τρόπος είναι να βάλεις αυτόν τον κώδικα στο φύλλο όχι σε Module
ώστε να μην επιτρέπετε επιλογή αν δεν γεμίσει το συγκεκριμένο κελί
Όπου "ονομασία" το κελί που πρέπει να είναι γεμάτο
και "κείμενο" το κείμενο του Msgbox Κώδικας: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range(" ονομασία ").Value = "" Then
MsgBox (" κείμενο ")
End If
End Sub
|