Merhaba,
Sayfa1 in kod bölümüne bu kodları uygulatarak deneyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Sat = "A" & Target.Row & ":c" & Target.Row
Select Case Target
Case "": Range(Sat).Interior.ColorIndex = 0
Case Is = "1": Range(Sat).Interior.ColorIndex = 43
Case Is = "2": Range(Sat).Interior.ColorIndex = 6
Case Is = "3": Range(Sat).Interior.ColorIndex = 2
Case Is = "4": Range(Sat).Interior.ColorIndex = 3
End Select
End Sub
Forumun dosya yükleme özelliği mevcuttur, paylaşımlardan ileride diğer arkadaşlarında yararlanması için forum serverlerında olması daha iyidir.