Εμφάνιση ενός μόνο μηνύματος
  #6  
Παλιά 31-05-13, 00:06
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού 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
Προεπιλογή

Βλέποντας το ζητούμενο του Χρήστου και πάλι
<<Μάλλον θα έβρισκα βολικό να μην με αφήνει να κάνω κλικ πουθενά αλλού, βγάζοντας προειδοποιητικό μήνυμα για πληκτρολόγηση.>>
Θα έβαζα αυτό τον κώδικα με ένα μήνυμα σε Data Validation στο κελί

Κώδικας:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("xrange").Value <> "" Then
        Exit Sub
    Else
        Range("xrange").Select
    End If
End Sub
Συνημμένα Αρχεία
Τύπος Αρχείου: xls Book1.xls (30,0 KB, 23 εμφανίσεις)
Απάντηση με παράθεση