[VBA] msgBox Μήνυμα

[Spirosgr]

Και μια ολοκληρωμένη πρόταση με στοιχεία του πιο πάνω κώδικα αλλά και επιπλέον ελέγχους

Private Sub Worksheet_Change(ByVal Target As Range)
'Ονομασία περιοχής G2:G20 = rngData
'Ονομασία κελιού A1 = CheckCell
'Ονομασία της κεφαλίδας κελί G1 = Header
'Έλεγχος αν επιλέξουμε την κεφαλίδα από λάθος
    If Target.Row = Range("Header").Row Then Exit Sub
    'Έλεγχος αν επιλέξουμε περισσότερα του ενός κελιά από λάθος
    If Target.Cells.Count > 1 Then Exit Sub
    'Έλεγχος αν επιλέξουμε κελί της περιοχής με τιμή (όχι κενό)
    If Target <> vbNullString Then
        Αν όλα Ok τότε
        'Αν η επιλογή είναι "μέσα" στην περιοχή rngData
        If Not Intersect(Target, Range("rngData")) Is Nothing Then
            'και έχουμε αριθμό ενώ ΤΑΥΤΌΧΡΟΝΑ το A1 δεν έχει αριθμό ή έχει μηδενικό μήκος
            If IsNumeric(Target) And _
               (Not IsNumeric(Range("CheckCell")) Or Len(Range("CheckCell")) = 0) Then
                'Τότε μήνυμα
                MsgBox ("Έχετε πληκτρολογήσει αριθμητική τιμή" & vbLf & _
                        "και το κελί A1 δεν περιέχει αριθμό." & vbLf & _
                        "Παρακαλώ δοκιμάστε ξανά."), vbInformation, "Spirosgr_INFO!"
            End If
        End If
    End If
End Sub

[gfevran]

Σπύρο σ' ευχαριστώ
Με κάλυψε πλήρως η πρώτη πρόταση σου τη δεύτερη,
τη φύλαξα για άλλες περιπτώσεις.

[Spirosgr]

Να 'σαι καλά Γιώργο
Πάντως έχε υπ' όψιν σου ότι αν θελήσεις να επιλέξεις
πχ 3 κελιά από την περιοχή και να τα διαγράψεις όλα μαζί
θα χτυπήσει ο κώδικας....
Συνιστώ να χρησιμοποιήσεις τον δεύτερο

[gfevran]

Τελικά είχες δίκιο Σπύρο,
χρησιμοποίησα το δεύτερο.
Σ' Ευχαριστώ.