Aktif Hücre Renklenmesi

[furens]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static EskiHucre As Range
  If Target.Interior.ColorIndex <> xlColorIndexNone Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
    Exit Sub
  ElseIf Not EskiHucre Is Nothing Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
  End If
  Target.Interior.ColorIndex = 6
  Set EskiHucre = Target
End Sub

Başka Yerden aldığım bu uygulamada exel sayfasının kod bölümüne yapıştırdıktan sonra işlev çalışıyor ancak excel çalışma sayfasını kapatıp açtığımda hangi hücrede kaldı ise o hücre renkli kalıyor.bunu nasıl önleyebiliriz?
Yardımlarınız için tşk

 

[uzmanamele]

merhaba

bu şekilde dener misiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
        Target.Interior.ColorIndex = 6
End Sub

Private Sub Worksheet_Deactivate()
Cells.Interior.ColorIndex = xlNone
End Sub

 

[furens]

Evet olay bu bir sürü karmaşaya son.tşk birkaç deneme yaptım çalışıyor.Eline sağlık

 

[muhasebeciyiz]

sayın uzmanım adı geçen kod çok güzel olmuş eline sağlaık ;

excel dosyamda çok sayfa var ve bu kodları her bir sayfaya ayrı ayrı yazmak gerekiyor yokmudur tek seferde çaresi saygılar

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.


Küçük bir hatırlatma;
Bu tür renk kodlarında ilk önce tüm renkler sıfırlandığı için dosyalarınızda daha önceden renklendirmiş olduğunuz hücrelerin renkleride sıfırlanacaktır. Bu açıdan riskli bir koddur.

Örnek dosyadaki kodlar ThisWorkbook bölümündedir.

 

[S.Yiğit]

Merhaba,

Benimde buna benzer bir sorum vardı.

Kodlar Sn Korhan Ayhan ve Sn leumruk tarafından yazılmıştır.

Excelde çalışırken İmleç hangi hücredeyse, Hücrenin bulunduğu satır Renklensin