Takvim ekledim kod hata veriyor

[sedat2161]

Daha önce Worksheet_Change olayım vardı ona takvim Worksheet_Change ekledim hata veriyor nasıl düzeltebilirim.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range


Set KeyCells = Range("F3:F103")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

Call gizleme
End If
Else
If Intersect(Target, Range("H9:I208")) Is Nothing Then Exit Sub
Call Takvim

End Sub

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("H9:I208")) Is Nothing Then Exit Sub
Call Takvim
End Sub

 

[Muzaffer Ali]

Merhaba.

Tam olarak ne yapmaya çalıştığınızı söylemediğiniz için aşağıdaki gibi açıklama yaparak kodları düzenledim.
Kodların ne zaman çalışmasını istediğinizi belirtirseniz ona göre değişiklik yapılabilir.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    'Bu kodlar hangi sayfanın kod kısmında olursa o sayfanın herhangi bir hücresinde değişiklilk yaptığınızda çalışır.
    If Not Application.Intersect(Target, Range("F3:F103")) Is Nothing Then
        Call gizleme
    ElseIf Intersect(Target, Range("H9:I208")) Is Nothing Then Exit Sub
        Call Takvim
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Bu kodlar hangi sayfanın kod kısmında olursa o sayfada herhangi bir hücre seçtiğinizde çalışır. Ama her hücre seçiminde çalışır.
    '(Mouse yada ok tuşları ile her hücre seçimini değiştirdiğinizde çalışır.)
    If Intersect(Target, Range("H9:I208")) Is Nothing Then Exit Sub
        Call Takvim
    End If
End Sub