seçili hücrenin satırının renkli gözükmesi

[meraklı1]

Merhaba gRUBUM
öRNEÐİN B1 HÜCRESİNDE İKEN B SATIRININ FARKLI BİR RENKTE GÃ?STERECEK BİR MAKRO BİLEN VAR MI? :hihoho:

 

[zafer]

Merhaba

Sayfanızın modül kısmına yapıştırın

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


Kaynak: Sn.Haluk

 

[talip]

Selam :hey:

rengi farklı bir renk yapmak istersek ne yapalım??

 

[danersin]

http://www.excel.web.tr/viewtopic.php?t=1046

muhtemelen istemediğiniz kadar çeşidini bulabilirsiniz bu linkte

 

[Merhum İdris SERDAR]

Çok basit bir kod:

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.

 

[meraklı1]

böyle bir grubun üyesi olduğum için kendimle gurur duyuyorum
teşekkurler