Çalışma kitabı için kod

[mehmetkose]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "7" And Target.Value = "GELDİ" Or Target.Value = "GELDİ" Then
Range("A" & Target.Row & "I" & Target.Row).Interior.ColorIndex = 4
Else
Range("A" & Target.Row & "I" & Target.Row).Interior.Color = xlNone
End If
End Sub

bu kodu çalışma sayfası için kullanıyorum fakat ben tüm çalışma kitabında geçerli olmasını istersem negibi değişiklik yapmam gerekli?

 

[Ömer]

Merhaba,

Buçalışmakitabı kısmına aşağıdaki kodları kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Target.Column = "7" And Target.Value = "GELDİ" Or Target.Value = "GELDİ" Then
        Range("A" & Target.Row & ":DI" & Target.Row).Interior.ColorIndex = 4
    Else
        Range("A" & Target.Row & ":DI" & Target.Row).Interior.Color = xlNone
    End If
End Sub

.