Çoklu "Private Sub Worksheet_Change(ByVal Target As Range" Kullanımı

[baydeniro]

Merhaba Arkadaşlar,

Çoklu "Private Sub Worksheet_Change(ByVal Target As Range)" kullanımı nasıl olur ? Örnek kod aşağıda.
E7 değişince bir makro çalışsın, H7 değişince başka bir makro çalışsın,

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [E7]) Is Nothing Then Exit Sub
Call BIRINCIMAKRO

If Intersect(Target, [H7]) Is Nothing Then Exit Sub
Call IKINCIMAKRO
End Sub

 

[Korhan Ayhan]

Forumda Select-Case olarak arama yapın.

 

[baydeniro]

Forumda Select-Case olarak arama yapın.

Teşekkür ederim üstadım

 

[baydeniro]

Forumda Select-Case olarak arama yapın.

üstad bütün "Select-Case" konularını inceledim ama maalesef bizim koda özgü bir çözüm bulamadım.

 

[baydeniro]

Forumda Select-Case olarak arama yapın.

Üstad çok teşekkürler Select-Case fikri için. Kendim karıştıra karıştıra doğru yolu buldum sanırım. Biraz zor oldu ama kalıcı bir çözüm geliştirdim kendimce. Belki başaka birisine faydası olur. Çalışan kod aşağıdadır. Sağlıcakla kalın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E7,H7]) Is Nothing Then Exit Sub
Select Case Target.Address(0, 0)

Case Is = "E7"
Call BIRINCIMAKRO

Case Is = "H7"
Call IKINCIMAKRO
End Select
End Sub

 

[Korhan Ayhan]

Foruma eklediğiniz kodları lütfen "code" tagını kullanarak ekleyiniz.

 

[baydeniro]

Foruma eklediğiniz kodları lütfen "code" tagını kullanarak ekleyiniz.

bilgilendirme için teşekkürler üstad