Çalışma Kitabındaki Tüm sayfalarda aynı işlem

[mrs303]

Selam arkadaşlar,

Bir çalışma kitabında değişik isimlerde bir çok sayfa var.
Benim sitediğim Tüm çalışma sayfalarnda "G" sütununda herhendi bir yere yazacağım rakamlar ile hemen yanına "H" sütununa o rakamın karşılığı olan metni yazmasını istiyorum.

1-5 arası : Önemsiz
6-9 arası :Kabul Edilebilir
10-15 arası : Orta
15-25 arası :Yüksek

G de yazılı bu aralıktaki sayılar var ise tam yanına H de bu açıklamaların yazılması.

Bu işlemi bütün çalışma sayfalarında yapması için nasıl bir kod gerekiyor.
Şimdiden cevap yazan arkadaşlara teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

ThisWorkbook bölümüne uygulayınız.

Option Explicit
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
    Select Case Target
        Case 1 To 5
            Target.Offset(0, 1) = "Önemsiz"
        Case 6 To 9
            Target.Offset(0, 1) = "Kabul Edilebilir"
        Case 10 To 15
            Target.Offset(0, 1) = "Orta"
        Case 16 To 25
            Target.Offset(0, 1) = "Yüksek"
    End Select
Son:
End Sub

 

[mrs303]

Çok teşekkür ederim Korhan bey, tam istediğim gibi mükemmel olmuş. Hızlı cevap için de ayrıca teşekkür ederim. Sayenizde bugün işten 3 saat erken çıkabileceğim.