Kod çakışması

[Mdemir63]

Selamlar, Aşağıdaki kodlar aynı sayfanın kod penceresinde çalışmıyor hata veriyor. Neden olduğunu çözemedim.

Saygılar


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.MoveAfterReturn = False
Calendar7.Visible = False
If Target.Address = "$D$14:$I$14" Then
Calendar7.Visible = True
Calendar7.Top = ActiveCell.Top
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("F33:F35")) Is Nothing Then Exit Sub
SendKeys "%{down}"
End Sub

 

[Orion1]

1 modül içinde ayni isismde 2 procedure olamaz.

 

[Mdemir63]

Selamlar,

Peki ne yapmam gerekir hocam

Saygılar

 

[Orion1]

Selamlar,

Peki ne yapmam gerekir hocam

Saygılar

2 sini birleştirmen lazım .Aşağıdaki gibi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturn = False
If Intersect(Target, Range("D$14:$I$14,F33:F35")) Is Nothing Then Exit Sub
If Target.Row >= 33 And Target.Row <= 35 Then SendKeys "%{down}"
If Target.Row = 14 Then
    Calendar7.Visible = False
    Calendar7.Visible = True
    Calendar7.Top = ActiveCell.Top
End If
End Sub

 

[Mdemir63]

Selamlar,

Hocam çok teşekkür ederim.

Saygılar

 

[Orion1]

Selamlar,

Hocam çok teşekkür ederim.

Saygılar

Rica ederim.