Aktif satır-sütun renklendirme

[coşkun79]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub



şeklinde bir kod kullanıyorum. imlecin bulunduğu satır ve sütunu renklendiriyor. Yalnız yazdırırken bu renklendirmeler de görünüyor. Sadece yazdırırken olmak üzere bu makronun çalışmamasını sağlayabilir miyiz.
Ayrıca birden fazla hücre ya da satır, sütun seçildiğinde seçilen hücrelere ait satırları ve sütunları renklendirmiyor. Tek satır ve sütunu renklendiriyor. Birden fazla hücre ya da satır-sütun seçildiğinde ilgili olan tüm satır ve sütunları renklendirecek şekilde kod eklenebilir mi.

 

[alicimri]

Kodlarınızdaki "ActiveCell" leri "Selection" ile değiştirirseniz, sorunuzun ikinci kısmı hallolur. Bir kısmını çözmeye çalışacağım.

 

[mustilem23]

merhabalar bu kod tüm excellerde aktif olarak çalışacak ve kısayolu olacak şekilde ayarlanabilir mi ?

 

[Korhan Ayhan]

Sayfaya ait kodu aşağıdaki gibi güncelleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlColorIndexNone
    Selection.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
    Selection.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
    Selection.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub

Yazdırırken renklerin görünmemesi için ise "BuÇalışmaKitabı" bölümüne aşağıdaki kodu uygulayın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Interior.ColorIndex = xlColorIndexNone
End Sub

 

[Korhan Ayhan]

Merhaba,

Kod sayfadaki tüm renkleri silerek her seferinde yeniden renklendirme yaparak çalışmaktadır. Bu şekilde tüm excel sayfalarınızda kullanmak istediğinize emin misiniz?

merhabalar bu kod tüm excellerde aktif olarak çalışacak ve kısayolu olacak şekilde ayarlanabilir mi ?

 

[coşkun79]

Yazdırırken renklerin görünmemesi için ise "BuÇalışmaKitabı" bölümüne aşağıdaki kodu uygulayın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Interior.ColorIndex = xlColorIndexNone
End Sub

[/QUOTE]

İlginize teşekkür ederim. Bu çalışma kitabına ikinci kodu kopyaladım ancak koddan kaynaklanan renklendirmeler hala yazıcıdan çıktı alırken görünüyor.

Bir de Korhan Bey, makro kullanıldığında "geri al" seçeneğini kullanabilmenin bir yolu var mı. Forumda sizin yazdıklarınız da dahil olmak üzere yazılanları okudum ama ne bir çözüm yok anladığım kadarıyla.

 

[mustilem23]

Merhaba,

Kod sayfadaki tüm renkleri silerek her seferinde yeniden renklendirme yaparak çalışmaktadır. Bu şekilde tüm excel sayfalarınızda kullanmak istediğinize emin misiniz?

Haklısınız Korhan Bey ,

aradığım bu değil,renkli olan satırı bulunan excellerim de var.
excel içinde arama yapıp bulunanları renklendirmesi ve ilk bulunana hücre üzerine imlecin gelmesi ve bu uygulamayı tüm excel sayfalarında yapabilmek istiyorum.

 

[gazolay]

BU KOD GÜNCELLENMESİ LAZIM GEREK
KULLANINCA KENDİ KOYDUĞUM RENKLER GİDİYOR SONRA SADECE KENDİ RENGİ ÇALIŞIYOR...YAPTIĞI İŞ TAM BENLİK AMA BENİM RENKLERİMİ ELLEMESİN

 

[anemis]

BU KOD GÜNCELLENMESİ LAZIM GEREK
KULLANINCA KENDİ KOYDUĞUM RENKLER GİDİYOR SONRA SADECE KENDİ RENGİ ÇALIŞIYOR...YAPTIĞI İŞ TAM BENLİK AMA BENİM RENKLERİMİ ELLEMESİN

+1
mevcut boyamaları kaldırmadan sadece seçili hücreleri renklendirebilecek bir kod olabilirse çok faydalı olur benim için de