Range Select Hatası

[Muhammet Okumuş]

Merhaba arkadaşlar.
Örnek dosyada 2 çalışma sayfası var. İki sayfada Private Sub Worksheet_SelectionChange(ByVal Target As Range) komutu ile kodlar tetikleniyor. Ama kodlar çalışırken select yöntemine izin vermiyor. Bunun bir yöntemi var mı? Kodun başka sayfayı seçip o sayfadaki kodu tetiklemesi lazım.

 

[Muzaffer Ali]

Merhaba.
Kodlar aşağıdaki gibi olmalı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Intersect(Target, Range("B2:B4")) Is Nothing Then GoTo 10
Sheets("Sayfa1").Select
ActiveSheet.Range("B2").Select
ActiveSheet.Range("E2") = "EXCEL"
10
End Sub

 

[Muhammet Okumuş]

Çok teşekkür ederim Sn. dalgalikur,
Yıllardır çözemediğim bir problemdi.