Selection Change'de hücre sabitleme

[m.cay]

Merhaba,

Sayfa üzerindeki bir hücrede yaptığım bir değişikliğe göre kod çalıştırabilmek için 'Selection Change'in altına kodları yazıyorum. Ancak bu şekilde sayfadaki hücrelerde herhangi bir seçim yaptığımda kodu çalıştırıyor. Ben ise sadece belirli hücre veya hücrelerde (örneğin E1 hücresi) değişiklik olduğunda kodların çalışmasını istiyorum. Yardımcı olunabilirse çok sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Range("C7:C39").AutoFilter Field:=1, Criteria1:=[E1]

If [E1] = "TÜMÜ" Then Selection.AutoFilter

End Sub

 

[alpi]

aşağıdaki kodu kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = [E1].Address Then
.
.
.
Kodlarınızı buraya yazın
End If
Application.EnableEvents = True
End Sub

 

[m.cay]

Teşekkürler sevgili alpi...