Private Sub Worksheet_SelectionChange(ByVal Target As Range)



If Not Intersect(Target, Range("B:B")) Is Nothing Then 'sadece B,C sütununa bakar

Application.EnableEvents = False

    On Error GoTo hata

    Dim cll As Range

    AdrX = Target.Address & ":" & Target.Address

    xDz = Split(AdrX, "$")

    ilk = xDz(2)

    Son = Val(xDz(4))

    If ilk = "1:" Then ilk = "2:"

    If Son < 2 Then Son = 2

    Set Trgt = Range("B" & ilk & "B" & Son)



    For Each cll In Trgt

        Set Rng = cll

        If Rng.Offset(, -1) = "Var" Then Else Rng.Value = ""

    Next cll



End If

hata:

Application.EnableEvents = True

End Sub