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