Koşullu Biçimlendirme

[Mehmet Sait]

Merhaba,

A1 de içeren metin "Aktif" ise B satırı sarı dolgu olması için ne yapmam gerek?

Teşekkürler

 

[TEGCreative]

Merhaba sayın Dunya_ ; aşağıdaki kod ile çözüme ulaşabilirsiniz. Lütfen sayfanın kod bloğuna bu kodu yapıştırın ve deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "1" And Target.Value = "Aktif" Or Target.Value = "aktif" Then
Range("B" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 6
End If
End Sub

 

[Mehmet Sait]

Merhaba sayın Dunya_ ; aşağıdaki kod ile çözüme ulaşabilirsiniz. Lütfen sayfanın kod bloğuna bu kodu yapıştırın ve deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "1" And Target.Value = "Aktif" Or Target.Value = "aktif" Then
Range("B" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 6
End If
End Sub

Merhaba sayın TEGCreative,

Denedim oldu. Yardımlarınız için teşekkür ederim.