Otomatik değiştir kodu

[mehmetkoca]

Aşağıda belirtmiş olduğum kodun çalışma kitabındaki bütün sayfalarda geçerli olması için kodu nasıl değiştirmem gerekiyor?yardımcı olursanız sevinirim arkadaşlar.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If IsEmpty(Target) Then Exit Sub
    If Target = "1001" Then Target = "NAPOLYON KİRAZ"
    If Target = "1002" Then Target = "AKÇAAĞAÇ"
    If Target = "1003" Then Target = "VENGE"
    If Target = "1004" Then Target = "BARTIN MEŞE"
End Sub

 

[Korhan Ayhan]

Selamlar,

Sayfalarınızdaki kodu silip aşağıdaki kodu çalışmanızın THISWORKBOOK bölümüne aktarmanız yeterli olacaktır.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If IsEmpty(Target) Then Exit Sub
    If Target = "1001" Then Target = "NAPOLYON KİRAZ"
    If Target = "1002" Then Target = "AKÇAAĞAÇ"
    If Target = "1003" Then Target = "VENGE"
    If Target = "1004" Then Target = "BARTIN MEŞE"
End Sub

 

[mehmetkoca]

Sayın Korhan Ayhan ;

Teşekkür ederim.Sorun çözülmüştür.Saygılar..