saydam renk

[polis-53]

Merhaba arkadaşlar aşağıdaki kodla hangi hücrede isem o hücrenin bulunduğu satır ve sütünü renklendiriyor benim istediğim sütünda renkli olan hücrelerin rengini de görebileyim yardımcı olursanız çok sevineceğim




Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
Cells.FormatConditions.Delete
With Sh
With .Columns(ActiveCell.Column)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 28
End With

With .Rows("" & ActiveCell.Row & ":" & ActiveCell.Row)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 28
End With

With .Range(ActiveCell.Address)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 6
End With
End With
End Sub

 

[Murat OSMA]

Örnek bir dosya eklemek istiyorum.

Kodlar, Sn. Erman SEKİTMEZ'e aittir.

 

[polis-53]

teşekkür ederim

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[Murat OSMA]

Güven Merkezi ayarlarından Korumalı Görünüm'deki ayarlamaları yapabilirsiniz.

 

[megapascal]

arkadaşlar;

konu yazarken xls dosyalarını nereden ekliyorsunuz?