Aktif Hücre Renklendirme

[hbgny]

Merhaba,

Forumda aktif hücredeyken o satırı renklendirmesi için makro aradım. Onlardan birini kendime uyarladım. Fakat şöyle bir sorun oluyor. Olduğum satırda D ve E kolonlarını boyamasını istiyorum. Buna göre forumda bulduğum makroyu değiştirdim. Yalnız şöyle bir sorun oluyor. Mesela aktif satırda F kolonunda ya da başka kolonlarda o kolunu bir renge boyarsam, başka hücreye geçtiğimde F kolonunda boyadığım renk iptal oluyor. Bunu nasıl engelleyebilirim? Bu konuda yardımcı olabilir misiniz? Uyarladığım formül şöyle.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Cells.Font.Color = vbBlack
If Intersect(Target, [A1:AE500]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 4), Cells(Target.Row, 5)).Interior.Color = vbGreen
Range(Cells(Target.Row, 4), Cells(Target.Row, 5)).Font.Color = vbRed
End Sub

 

[Ömer BARAN]

Merhaba.

-- D1:E500 hücre aralığını seçin (renklendirme işlemine tabi tutulacak alan)
-- Bu alan seçiliyken, KOŞULLU BİÇİMLENDİRME=>FORMÜL KULLAN kısmına =$BA1=1 yazın,
-- Alt taraftan, uygulama yapılacak sayfa adına fareyle sağ tıklayıp KOD GÖRÜNÜTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
.

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
Columns("BA").ClearContents
Cells(Target.Row, "BA") = 1
[B]End Sub[/B]

 

[hbgny]

Merhaba,

Dediğiniz gibi koşullu biçimlendirmeyi yaptım. Sonra da kodu diğer kodun altına yapıştırdım. Ama hiç bir değişiklik olmadı. Sadece BA kolonuna 1 yazıyor. Bir yerde hata yaptım herhalde. Yaptığım kodu yazıyorum aşağıda.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Cells.Font.Color = vbBlack
If Intersect(Target, [A1:AE500]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 4), Cells(Target.Row, 5)).Interior.Color = vbGreen
Range(Cells(Target.Row, 4), Cells(Target.Row, 5)).Font.Color = vbRed


Columns("BA").ClearContents
Cells(Target.Row, "BA") = 1
End Sub

 

[Ömer BARAN]

İşlemin uygulandığı belge ekte.
Belgeye buradan da erişebilirsiniz.
.

 

[hbgny]

Merhaba,

Ben diğer makroyu silmeden altına yazmıştım. Şimdi oldu. İlginize çok teşekkür ederim.