İki Makronun Aynı Sayfada Çılışması

[nurluali]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
Cells.Interior.ColorIndex = xlNone
If Intersect(Target, [A2:Q50]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 38
Target.Interior.ColorIndex = 6
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [S3:S200,F22,E218:s218]) Is Nothing Then Exit Sub
Range("D1").Select
End Sub

Her İki Makro da Private Sub Worksheet_SelectionChange(ByVal Target As Range) Başlayınca İkisi Aynı Anda Çalışmıyor. İki Makronun da Aynı Sayfada Çalışması Mümkün mü? Teşekkürler.

 

[askm]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
Cells.Interior.ColorIndex = xlNone
If not  Intersect(Target, [A2:Q50]) Is Nothing Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 38
Target.Interior.ColorIndex = 6
end if
If Intersect(Target, [S3:S200,F22,E218:s218]) Is Nothing Then Exit Sub
Range("D1").Select
End Sub

 

[nurluali]

Teşekkür

Askm bey çok teşekkür ediyorum. İstediğim olmuş.

 

[askm]

Rica ederim. Hayırlı akşamlar.