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