[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, θα μπορούσες επίσης να περιορίσεις την καταχώρηση δεδομένων σύμφωνα με τα κριτήρια που ανέφερες χρησιμοποιώντας την ενσωματωμένη επικύρωση δεδομένων της εφαρμογής (βλ. εικόνα).




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

Με εκτίμηση

Τάσος

[gfevran]

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

[Tasos]

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

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

Με εκτίμηση

Τάσος

[gfevran]

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

[Tasos]

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

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

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

Τάσος

[gfevran]

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

[Spirosgr]

Μετά τις 2 γραμμές με τα Set
Βάλε:
If Target <> vbNullString Then
και στο τέλος ένα
End If
ακόμη