16/04/2012, 13:59
Misilak arkadaş koşullu biçimlendirme ile yapmış dediğiniz gibi kod hiç bir değişiklik yapmamış.Koşullu biçimlendirme ile sizde yapabilirsiniz.
DUAYEN...
DUAYEN...
Sayfalar: 1 2
16/04/2012, 13:59
18/04/2012, 20:21
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
19/04/2012, 09:56
ogulcan92 hocam, teşekkürler ;)
Sayfalar: 1 2