Makroyu Tüm Sayfaya Uygulamak

[likaba]

Merhaba Arkadaşlar,

Yardımınıza ihtiyacım var. Aşağıdaki makro, araba ya da konut yazdığında özelliklerini yanındaki hücreye getirmekte. Bu makroyu çalışma kitabının tüm sayfasına nasıl uygulayabilirim?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "araba" Or Target.Value = "konut" Then
             Call cagir(Target.Value)
    End If
End Sub


Sub cagir(a)
    Select Case a
        Case "araba"
                    ActiveCell.Offset(-1, 1).Value = "Fiyat"
                    ActiveCell.Offset(0, 1).Value = "Yakıt"
                    ActiveCell.Offset(1, 1).Value = "Vites"
                    ActiveCell.Offset(2, 1).Value = "Renk"
                    ActiveCell.Offset(3, 1).Value = "Motor Hacmi"
        Case "konut"
                    ActiveCell.Offset(-1, 1).Value = "Fiyat"
                    ActiveCell.Offset(0, 1).Value = "Bina Yaşı"
                    ActiveCell.Offset(1, 1).Value = "Katı"
                    ActiveCell.Offset(2, 1).Value = "Oda Sayısı"
        End Select
End Sub

 

[dEdE]

Merhaba,
Kodunuzun ilk satırını aşağıdaki satır ile değiştirip, kodunuzun tamamını BuÇalışmaKitabı(Thisworkbook) altına taşıyın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 

[likaba]

İstediğim tam olarak buydu. İlginiz için çok teşekkür ederim.