Sayfada birden fazla olay

[leonadies]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub

'kodlar1

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F11]) Is Nothing Then Exit Sub

'kodlar2

End Sub

Sayfada iki hücre ile alakalı değişiklik olursa çalışssın istiyorum. C2 değişirse kodlar 1 F11 değişirse kodlar 2 çalışssın.

Uğraştım ama yapamadım. Nasıl yapabiliriz.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2]) Is Nothing Then
    MsgBox "Kod1"
'kodlar
End If

If Intersect(Target, [F11]) Is Nothing Then Exit Sub
    MsgBox "Kod2"
'kodlar2

End Sub

 

[leonadies]

yanlış anlaşıldım. C2 hücresi değişirse kodlar1 grubu çalışacak (kodlar kısmında sorunum yok)

f11 hücresi değişrise kodlar2 grubu çalışacak (kodlar kısmında sorunum yok)

 

[askm]

Tamam mesajı test amacı ile ekledim zaten. Kodlarınızı bilmediğim için.
C2 değişince Kod1 mesajı çıkıyor.
F11 değişince Kod2 mesajı çıkıyor. Siz buradaki msgbox satırlarını silip kullanabilirsiniz.