[VBA] Επικύρωση δεδομένων με απαρίθμηση σφαλμάτων

[gfevran]

Γεια σας παιδιά
Θέλω να ελέγχω στην περιοχή B2:G12 να καταχωρούνται μόνο αριθμοί
αν από λάθος καταχωρούνται χαρακτήρες να παίρνω μήνυμα και να απαριθμούνται
τα σφάλματα(χαρακτήρες)

Κάπου κάνω λάθος στον κώδικα,
Σ’ αυτό σημείο θέλω τη βοήθεια σας

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

[Spirosgr]

Ο κώδικας «διορθωμένος»

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim _
            rng As Range, _
              c As Range, _
                WFcnt As Integer

    Set rng = Range("B2:G12")

    If Not Intersect(Target, rng) Is Nothing Then
        For Each c In rng
            If Not IsNumeric(c) Then

                WFcnt = WorksheetFunction.CountA(Sh1.Range("B2:G12"), c) - _
                        WorksheetFunction.Count(Sh1.Range("B2:G12"), c) - 1

                MsgBox ("Μη έγκυρη καταχώριση, δεν αντιστοιχεί σε αριθμό!" _
                      & vbLf & "Παρακαλώ πληκτρολογήστε ακέραιο ή δεκαδικό αριθμό.") _
                      & vbLf & ("") _
                      & vbLf & ("Σφάλματα: ") & WFcnt, vbExclamation, "Επικύρωση δεδομένων"
                Exit Sub

            End If
        Next c
    End If
End Sub 

Σημείωση:
Θεωρώ, ότι το σκεπτικό, είναι λάθος.
Θα έπρεπε, να απαγορεύεις την εγγραφή μη αριθμητικών τιμών και όχι να τις μετράς...

Παράδειγμα 1.
Με το σκεπτικό σου, γράφω:
4 με αφήνει
15 με αφήνει
32,5 με αφήνει
α μετράει 1 σφάλμα
5 μετράει 1 σφάλμα...κλπ

Παράδειγμα 2.
Με πιο ορθό σκεπτικό, γράφω:
4 με αφήνει
15 με αφήνει
32,5 με αφήνει
α «απαγορεύει» να συνεχίσω, αν δεν διορθώσω...
Υποδεικνύει το σφάλμα, το διαγράφει και «περιμένει» να εισάγω σωστή τιμή...

[gfevran]

Γεια σου Σπύρο,
Έχεις δίκιο, αυτό που ζητάω είναι ανορθόδοξο αλλά αυτό ακριβώς θέλω.
Δοκίμασα τον κώδικα σου και δούλεψε όπως το ήθελα.
Σ' Ευχαριστώ πολύ.

[gfevran]

Καλησπέρα,
Με τη βοήθεια του Σπύρου κατάφερα μέσα σε ένα Message Box,
να παίρνω απαρίθμηση σφαλμάτων.
θα ήθελα κάτι ακόμη αν γίνεται, π.χ. η λέξη σφάλματα 3 στο μήνυμα να εμφανίζεται με κόκκινα γράμματα.

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

[Spirosgr]

Καμία περίπτωση...

Αντί Msgbox, φτιάξε ένα φορμάκι, με την πληροφορία...