Makro İle Koşullu Biçimlendirme

[ttnetttnet]

Merhabalar,

Ekte bir dosya iletiyorum. Bu dosyada "Tıklanacak Hücre" seçili iken, "Boyanacak Hücre" yazanların kırmızı ile boyanmasını, seçili olmadığı durumlarda ise hücrelerin normal olmasını yapabilir miyiz?

Yapmak istediğim koşullu biçimlendirme gibi bir şey, ama koşul hücrenin seçili olması.

Yardımınız için şimdiden teşekkürler.

Saygılarımla,

 

[Ömer BARAN]

Merhaba.
Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve
açılan ekranda sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın..

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
    If ActiveCell.Address = "$CA$1" Then
        Range("Y18:BA25").Interior.ColorIndex = 3
        Range("Y27:BA46").Interior.ColorIndex = 3
        Range("Y48:BA61").Interior.ColorIndex = 3
        Range("Y63:BA74").Interior.ColorIndex = 3
    Else
        Range("Y18:BA25").Interior.Color = xlNone
        Range("Y27:BA46").Interior.Color = xlNone
        Range("Y48:BA61").Interior.Color = xlNone
        Range("Y63:BA74").Interior.Color = xlNone
    End If
[B]End Sub[/B]

 

[Murat OSMA]

Ad Tanımlama yapılarak tek satırda da çözülebilir.​

 

[ttnetttnet]

Merhaba.
Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve
açılan ekranda sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın..

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
    If ActiveCell.Address = "$CA$1" Then
        Range("Y18:BA25").Interior.ColorIndex = 3
        Range("Y27:BA46").Interior.ColorIndex = 3
        Range("Y48:BA61").Interior.ColorIndex = 3
        Range("Y63:BA74").Interior.ColorIndex = 3
    Else
        Range("Y18:BA25").Interior.Color = xlNone
        Range("Y27:BA46").Interior.Color = xlNone
        Range("Y48:BA61").Interior.Color = xlNone
        Range("Y63:BA74").Interior.Color = xlNone
    End If
[B]End Sub[/B]

Çok teşekkürler Ömer Bey, istediğim şey tam olarak bu!!

 

[ttnetttnet]

Ad Tanımlama yapılarak tek satırda da çözülebilir.​

Murat Bey teşekkürler, iyi fikir.

 

[Ömer BARAN]

Çok teşekkürler Ömer Bey, istediğim şey tam olarak bu!!

İhtiyaç görüldüyse mesele yok.
İyi günler dilerim.