Aktif Hücre Renklendirme

[skaan]

Merhaba;
Forumdan faydalanarak kullandığım kodlar bulunmakta. Yalnız bu kodları kullanırken aktıf hücre renkleniyor ancak hücredeki renk kayboluyor.
Hücre renklenmeli ama hücreden ayrıldıktan sonra rengini kaybetmemeli.. Hücrenin rengi kalmalı..
Kodlarda nasıl bır değişiklik yapmak gerekir.. Bu konuda yardımcı olabilirmisiniz.

Saygılarımla
SKaan

Kullandıgım Kodlar :


Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If

Target.Interior.ColorIndex = 8

Set OldCell = Target

End Sub

 

[YUSUF44]

Aşağıdaki konuyu ve o konuda bahsettiğim diğer konuyu inceleyin. Umarım işinize yarayacaktır.

http://www.excel.web.tr/f48/sayfadaki-renkler-bozulmadan-satyr-renklendirilmesi-t153636.html

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u dener misiniz?
Kod'u, alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi
seçtiğinizde açılan ekranın sağ tarafındaki boş alana yapıştırın.

Kod, aktif hücrenin adresini ve eski rengini A1 ve A2 hücresine yazıyor,
ardından başka hücreye geçtiğinizde A1 ve A2 hücresindeki değerlere göre
bir önceki aktif hücrenin rengini önceki hale getiriyor.
A1 ve A2 hücresine veri yazmayınız, silinir.
.

[SIZE="2"][FONT="Trebuchet MS"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address(0, 0) = "A1" Or ActiveCell.Address(0, 0) = "A2" Then Exit Sub
[COLOR="Red"]On Error Resume Next[/COLOR]
Range([A1]).Interior.Color = [A2]
[A1] = ActiveCell.Address(0, 0)
If ActiveCell.Interior.Color = 16777215 Then
    [A2] = xlNone
Else
    [A2] = ActiveCell.Interior.Color
End If
ActiveCell.Interior.ColorIndex = 8
End Sub[/FONT][/SIZE]

 

[skaan]

Merhaba;
Ömer Bey ; Kodları kullandığımda aşağıdaki hatayı alıyorum..

Run-time error '10042:
Method 'Reange of object'_Worksheet'failed

Yardımcı olabilirmisiniz.

Saygılar
SKaan

 

[Ömer BARAN]

Önceki cevabımda kırmızı renklendirdiğim kısmı ekleyip dener misiniz?

 

[skaan]

ÖMER Bey;
Yardımlarınız için çok teşekkürler..Şimdi tamamdır..
Ayrıca; Yusuf44 arkadaşıma da teşekkür ediyorum..
Hayırlı akşamlar dilerim..
Saygılarımla
Skaan

 

[Ömer BARAN]

İyi günler, iyi çalışmalar.