Kod hatası

[AKREP1]

Arkadaşlar tıklanan hücrenin renklenmesi için sayfanın kod kısmına
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 8
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells.Interior.ColorIndex = xlNone
End Sub
uyguladım.Fakat hücre tıklanınca dolgu rengi siyah olan sayfa beyaz oluyor ve yazılar okunmuyor.Sayfanın dolgu renginin siyah ve yazıların beyaz kalmasını istiyorum.
1.Bunu nasıl düzeltebilirim? 2.Bu olayı yaklaşık 80 sayfaya uygulamam lazım Saygılar.

 

[N.Ziya Hiçdurmaz]

ThisWorkbook 'a uygulayınız.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 1
End Sub

 

[AKREP1]

İlginiz için teşekkürler fakat yine olmadı.Saygılar

 

[Ömer]

Merhaba,

Sn. AKREP1 konu ilgilimi çektiği için kodları bende denedim istediğiniz olmuş.

Sn. V.Basic For Applications ' un verdiği kodları ThisWorkbook un kod sayfasına uyguladığınızı kontrol ediniz..

 

[AKREP1]

İlginize gerçekten teşekkürler fakat benim sayfamda tablomum dolgu alanı siyah ve yazılar beyaz.Bu uygulamayı yapınca tablomun dolgu rendi değişiyor.Gönderdiğim örnek dosya üzerinde denerseniz ne demek istediğimi anlarsınız.Saygılarımı sunarım.