koşullu renklendirme

[ozcanya]

arkdaşlar ekli dosyada listeden seçdiğim kişiler renklensin istiyorum. ama renksizde kullanabilmek istiyorum.
buraya kadar forum sayesinde oldu teşekkür ederim.

 

[Ömer]

Merhaba,

Renklendirme hangi aralıkta olacak. Lütfen sorularınızı daha detaylı açıklamaya özen gösteriniz.

.

 

[ozcanya]

D4 G31 aralığı
özür dilerim haklısınız

 

[Ömer]

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hucre As Range
If Intersect(Target, [I2]) Is Nothing Then Exit Sub
 
Range("D4:G31").Interior.ColorIndex = xlNone
 
    For Each hucre In Range("D4:G31")
        If Target = hucre Then
            hucre.Interior.ColorIndex = 37
        End If
    Next hucre
 
End Sub

.

 

[ozcanya]

teşekkür ederim üstat

 

[ozcanya]

üstat bir sorunum var renksiz kullanamıyorum. yani boş hücre olunca hpsi renkleniyor. Acaba makroları istediğim zaman bir düğme yardımı ile kapatabilirmiyim?

 

[Korhan Ayhan]

Selamlar,

Ömer beyin önerdiği koda kırmızı renkli satırı eklerseniz boş hücrede renkler kalkar.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim hucre As Range
    If Intersect(Target, [I2]) Is Nothing Then Exit Sub
    Range("D4:G31").Interior.ColorIndex = xlNone
    [COLOR=red]If Target = "" Then Exit Sub[/COLOR]
 
    For Each hucre In Range("D4:G31")
        If Target = hucre Then
            hucre.Interior.ColorIndex = 37
        End If
    Next
End Sub

 

[abbasonline]

7 mesajdaki kodda nasıl bir değişiklik yaparsak hem hücrenin bulunduğu satır hemde sütun renklenebilir.(renklendirmeler tabloyu geçmesin, yani en son satır ve en son sütuna kadar olmasın)

 

[Korhan Ayhan]

Selamlar,

Sn. abbasonline,

Forumumuzda bu konu ile ilgili birçok örnek var. Aşağıdaki linki incelermisiniz.

Aktif Hücre-Satır-Sütun Renklendirme