Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone ActiveCell.EntireRow.Interior.ColorIndex = 3
End Sub
Vermişken bir de sütun için verelim;
Koddaki kırmızı satırı;
ActiveCell.EntireColumn.Interior.ColorIndex = 3
şeklinde yapın
Burada 3 rakamını değiştirerek denemeler yapabilirsiniz.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.