SelectionChange Yerine Ne Uygulanabilir ?

[excelience]

Merhaba arkadaşlar sayfa üzerine uygulanmış 2 kod var elimde 1.si seçime dayalı olarak çalışan Worksheet_Change bu kodun bir altında iste
Worksheet_SelectionChange var
*Seçim ile çalışan kodu uyguladığım zaman (Workseet_Change) formül(makro) otomatik olarak çalışıyor iyi hoş çok güzel fakat
*Bir alt kod olan Worksheet_SelectionChange ise daha sonra ekranda bir yere tıklama koşuluyla işlev görüyor
*Yapmaya çalıştığım seçim ile çalışan kod ile birlikte bu fonkisyonun da aktif hale gelmesi bunun için ne önerebilirsiniz Şimdiden Müteşekkirim
Sonsuz Saygılarımla...
***otomatik aktif hale gelmesini istediğim makro kodu :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim son
Dim i
son = Cells(Rows.Count, 1).End(3).Row
For i = 3 To son
If Cells(i, 2).Font.Bold = True Then
Cells(i, 6) = "PASİF"
Else
Cells(i, 6) = "AKTİF"
End If
Next
End Sub

 

[askm]

Kodu modül haline getirip Change kodunda çağırabilirsiniz. Call Modüle1 şeklinde.

 

[excelience]

Kodu modül haline getirip Change kodunda çağırabilirsiniz. Call Modüle1 şeklinde.

Teşekkürler hocam