Renklendirmeyi CheckBox nesnesine bağlı olarak kullanmak

[EKREM1661]

Değerli Arkadaşlar..! Aşağıdaki kod ile C2:H2 aralığında yer alan aktif satırı renklendiriyor..

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'aktif satır gölgeli
If Intersect(Target, [A:I]) Is Nothing Then Exit Sub
Cells.Interior.Color = xlNone
If Target.Row = 1 Then Exit Sub
Range("C" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 15
End

Bu uygulama her zaman kullanılmayacak.. Bu kodu/uygulamayı bir CheckBox nesnesine bağlı olarak (istendiğinde işaretleyip) nasıl kullanırız.?

 

[Ömer BARAN]

Merhaba.

Sayfaya ekleyeceğiniz ONAY KUTUSU, GELİŞTİRİCİ=>EKLE=>FORM DENETİMLERİ bölümündeki ONAY KUTUSU ise;
-- Onay KUTUSUna fareyle sağ tıklayıp, DENETİM BİÇİMLENDİR'i seçin ve Denetim kulakçığında Hücre Bağlantısı kısmına =$I$1 yazarak işlemi onaylayın,
-- I1 hücresinin yazı rengini I1 hücresinin zemin rengiyle aynı olacak şekilde ayarlayın,
-- nesneyi I1 hücresinin üzerine konumlandırın.
-- Belirttiğiniz kod'da, kırmızı satırların arasına aşağıdaki mavi satırı ekleyin ekleyin.
** İşlem için I1 yerine başka hücre adesini kullanmak isterseniz, mavi satırdaki hücre adresini yeni duruma göre değiştirmeyi unutmayın.
.

[COLOR="Red"]Cells.Interior.Color = xlNone[/COLOR]
[B][COLOR="Blue"]If [I1] = False Then Exit Sub[/COLOR][/B]
[COLOR="red"]If Target.Row = 1 Then Exit Sub[/COLOR]

 

[askm]

Alternatif olarak;
Sayfaya ekleyeceğiniz ONAY KUTUSU, GELİŞTİRİCİ=>EKLE=>ACTİVES DENETİMLERİ bölümündeki ONAY KUTUSU ekleyip aşağıdaki kodları deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'aktif satır gölgeli
If CheckBox1.Value = True Then
    If Intersect(Target, [A:I]) Is Nothing Then Exit Sub
    Cells.Interior.Color = xlNone
    If Target.Row = 1 Then Exit Sub
    Range("C" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 15
Else
    Cells.Interior.Color = xlNone
End If
End Sub

 

[EKREM1661]

Değerli arkadaşlar.. Çok makbule geçti.. Teşekkürler.. Elinize sağlık..