Sayfa Arka Plan İşlemleri

[omeryılmaz]

Arkadaşlar Satır ve sütun Renklendirme Sayfada çalışmalı, Ancak Dolgu ve Desen Renklerini bozmasın istiyorum? İlginiz için şimdiden teşekkür ederim..

Örnek Dosya Ektedir.

 

[omeryılmaz]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim ColorIndx As Integer
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub