[Spirosgr]

Καλησπέρα

Αντιγράψτε τον παρακάτω κώδικα, στο φύλλο, στο συμβάν Change.

Dim c As Range, i As Long
    For i = 1 To 10
        Set c = Cells(i, 1)
        If Not IsNumeric(c) Then
            MsgBox ""
            Exit Sub
        Else
            'do nothing
        End If
    Next i

Ο κώδικας, δουλεύει για την στήλη A, κελιά 1 έως 10.

Αν θέλετε να αλλάξετε περιοχή:
Αλλάξτε τους έγχρωμους χαρακτήρες, στο For (1 to 10 με ότι άλλο - για κελιά)
Αλλάξτε τους έγχρωμους χαρακτήρες, στο Set (1 με ότι άλλο - για στήλη)

Παράδειγμα:
Για να ελέγξουμε την περιοχή C10:C35
For i = 10 to 35 και
Set c = Cells(i, 3)

Στο Else, υπάρχει ένα σχόλιο.
Αν πρέπει να κάνει κάτι άλλο ο κώδικας, βάλτε το αντί του 'do nothing