[VBA] msgBox Μήνυμα

[gfevran]

Χαιρετίζω συντονιστές και όλα τα μέλη του forum,
Θα ήθελα το εξεις, αν σε μια περιοχή π.χ C2:G20 πληκτρολογίσω κάποια αριθμητική τιμή,
και στο κελί π.χ. Α1 δεν υπάρχει κάποια αριθμητική τιμή είναι κενό να παίρνω αυτόματο μήνυμα
msgBox
Το έχω κάνει με συνάρτηση IF, αν είναι δυνατόν θα ήθελα με VBA.

Ευχαριστώ για όποια βοήθεια.

[kapetang]

Καλημέρα

Γιώργο, δοκίμασε τον κώδικα:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngIn As Range, rngCheck As Range
    
    'Θα πρέπεινα οριστούν οι πραγματικές περιοχές
    Set rngIn = Range("C2:G20")
    Set rngCheck = Range("A1")
    
    If Not Application.Intersect(Target, rngIn) Is Nothing Then
        If IsNumeric(Target) And _
           (Not IsNumeric(rngCheck) Or Len(rngCheck) = 0) Then
            MsgBox "Πληκτρολογήσατε αριθμητική τιμή, ενώ το 'Α1' δεν περιέχει αριθμό."
        End If
    End If
End Sub

Φιλικά/Γιώργος

[gfevran]

Γιώργο τέλειο! ΕΥΧΑΡΙΣΤΩ ΠΟΛΛΗ

[Tasos]

Καλησπέρα!

Γιώργο (gfevran), αφού συμπληρώνεις τα κελιά της περιοχής C2:G20, θα μπορούσες επίσης να περιορίσεις την καταχώρηση δεδομένων σύμφωνα με τα κριτήρια που ανέφερες χρησιμοποιώντας την ενσωματωμένη επικύρωση δεδομένων της εφαρμογής (βλ. εικόνα).

DataValidation.png


Καλή συνέχεια!

Με εκτίμηση

Τάσος

[gfevran]

Τάσο Ευχαριστώ πολλή για την πρόταση
στο τέλος της συνάρτησης ήθελε μια παρένθεση ακόμη,
δεν είναι παρατήρηση! αλλά (δαίμονας πληκτρολόγησης) ξέρω πόσο καλός γνώστης της excel είσαι,
εγώ παιδεύτηκα μέχρι να το καταλάβω

[Tasos]

Γιώργο σ' ευχαριστώ αλλά δεν λείπει καμία παρένθεση από τον τύπο που φαίνεται στην εικόνα.

Κάνε κλικ πάνω στην εικόνα για να φανούν καλύτερα οι λεπτομέρειες.

Με εκτίμηση

Τάσος

[gfevran]

Τάσο χίλια συγνώμη έχεις δίκιο σωστές είναι οι παρενθέσεις,
μάλλον χρειάζομαι οφθαλμίατρο επειγόντως...

[Tasos]

Κανένα πρόβλημα φίλε μου.

Όλοι μας κάνουμε λάθη. Αλίμονο σε αυτόν που είναι αλάνθαστος!

Καλή συνέχεια!

Τάσος

[gfevran]

Γεια σας παιδιά,
παρατήρησα μια "δυσλειτουργία" στον κώδικα VBA!
όταν το Α1 δεν περιέχει αριθμό και πληκτρολογήσω στην περιοχή C2:G20 κάποιο αριθμό βγαίνει το μήνυμα σωστά μέχρι εδώ, όταν όμως σβήσω τον αριθμό από την περιοχή C2:G20 για να καταχωρίσω στο Α1 αριθμό το μήνυμα εμφανίζεται πάλι.
Υπάρχει κάποια λύση γ' αυτό?
Ευχαριστώ εκ των προτέρων.

[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