Arkadaşlar Sn:misilak ofis versiyonu 2007 Sn:comp_cont ofis versiyonu ise 2003 o sebebten dolayı yapılan değişikliği görememektedir.Yalnız kendisi zaten kod ile sorununu çözmüş dosyadaki kodları aşağıdaki ile değiştirdiğinde söylediklerinde hallolmuş olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)

 'On Error Resume Next

 If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub

 Select Case Target.Value

 Case 1

 renk = 3

 Case 2

 renk = 4

 Case 3

 renk = 5

 Case 4

 renk = 6

 Case 5

 renk = 7

 End Select

 Target.Interior.ColorIndex = renk

End Sub