Seçili hücre formatı

[mmsez]

Merhabalar.

Ekteki dosyada görüleceği üzere, seçili hücrenin rengini değiştirebileceğim bir kod mevcut.fakat hücrenin daha önceki renk formatını siliyor. İstediğim benim seçtiğim hücre sarı renk alsın ve başka hücre seçtiğimde sonradan seçtiğim hücre belirginleşirken bir önceki hücre de eski formatında kalsın.Ekte yer alan mavi kısıma tıkladığımda şu an mavi siliniyor istediğim silinmemesidir.

Şimdiden teşekkürler...

 

[AS3434]

Sayın mmsez

Aşağıdaki kodları deneyebilirsiniz..


.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
If Intersect(ActiveCell, [a1:CL100]) Is Nothing Then Exit Sub
ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:=1
ActiveCell.FormatConditions(1).Interior.ColorIndex = 6
End Sub

.

 

[mmsez]

Sayın AS3434 çok teşekkürler.Fakat şöyle bir durum var.ben bir ayrıntıyı ifade etmeyi ve örnek dosyama eklemeyi düşünememişim.Şimdi o hali ile ekledim.Yazdığınız kod conditional formating şeçeneği ile girilmiş bir format var ise tüm sayfada bunları sıfırlıyor. Çalışma sayfamda da böyle bir durum var.Örneğin hücre boş ise yeşil rengi al diyorum.Sizin kodu yazdığımda bunu siliyor.

Uğraşınız için teşekkürler...

 

[mmsez]

Bu arada herzaman yaptığım bir durum; dosyayı eklemeyi unutmuşum