[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