Hücre Değerine Göre Mesaj Ver

Ekli tabolda, "F40" hücre değeri 7(yedi) den küçük ise "Personel disiplin cezası almamış ise 7 ve üzeri puan vermelisiniz" mesajını verdirmek istiyorum.

Veri Sekmesinden Veri Doğrulama ya girdiğiniz takdirde aşağıdaki ayarları yapmayı deneyebilirsiniz.
Veri/Veri Doğrulama/

Ayarlar
İzin verilen : Tüm Sayı
Veri : Büyük
En az :7

Hata Uyarısı 
Stil: Durma
Başlık : Dikkat
Hata İletisi: Personel disiplin cezası almamış ise 7 ve üzeri puan vermelisiniz.

Sayın iscinar;
F40 hücresi formüllü olduğundan hata iletisini göstermiyor.

Alttaki kod kulklanılabilir.H25:i27 aralığında işlem yapılınca kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim veri As String, veri2 As Byte

    Const alan As String = "F40"



    If Not Intersect(Target, [H25:i27]) Is Nothing Then

        With Range(alan).Validation

            Select Case Range(alan).Value

            Case Is < 7

                veri = "Personel disiplin cezasý almamýþ"

                veri2 = xlLess '7 den kücük ise

            Case Is > 7

                veri = "7 ve üzeri puan vermelisiniz"

                veri2 = xlGreater '7 den büyük ise

            Case Is = 7

                veri = ""

                veri2 = xlEqual 'esittir 7 ise

            End Select

            .Delete

            .Add Type:=xlValidateWholeNumber, _

             AlertStyle:=xlValidAlertStop, Operator:=veri2, Formula1:="7"

            .IgnoreBlank = True

            .InCellDropdown = True

            .InputTitle = "Bilgi"

            .ErrorTitle = "Bilgi"

            .InputMessage = veri

            .ErrorMessage = veri

            .ShowInput = True

            .ShowError = True

        End With

    End If

End Sub

Buda mesaj verdirir.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim veri As String, veri2 As Byte

    Dim deger As Long

    Const alan As String = "F40"



    If Not Intersect(Target, [H25:i27]) Is Nothing Then

        With Range(alan).Validation

            Select Case Range(alan).Value

            Case Is < 7

                deger = Range(alan).Value

                veri = "Personel disiplin cezasý almamýþ"

                veri2 = xlLess '7 den kücük ise

            Case Is > 7

                deger = Range(alan).Value

            Case Is = 7

                veri = ""

                veri2 = xlEqual 'esittir 7 ise

                deger = Range(alan).Value

            End Select

            .Delete

            If deger > 7 Then

                MsgBox "7 den büyük olamaz...", vbCritical, "Hata"

                Target.Value = ""

                Exit Sub

            End If

            .Add Type:=xlValidateWholeNumber, _

            AlertStyle:=xlValidAlertStop, Operator:=veri2, Formula1:="7"

            .IgnoreBlank = True

            .InCellDropdown = True

            .InputTitle = "Bilgi"

            .ErrorTitle = "Bilgi"

            .InputMessage = veri

            .ErrorMessage = veri

            .ShowInput = True

            .ShowError = True

        End With

    End If

End Sub