CheckBox İle Hücre Biçimlendirme

[ormann]

İyi günler ekli örnek dosyada veri sayfasında bulunan CheckBox ile Renk-1,Renk-2,Renk-3,Renk-4 ve Renk-5 sayfalarında bulunan ilgili hücrelerdeki renkleri ve biçimlendirmeyi CheckBox ile kaldırıp biçimlendirebilir miyiz ?

http://dosya.co/tv6uaoo133fd/örnek.xls.html

 

[ormann]

Arkadaşlar rica etsem yardımcı olabilir misiniz?

 

[ormann]

Private Sub CheckBox1_Click()
  If CheckBox1.Value = True Then
   Sheets("renk-1").Range("e5").Interior.ColorIndex = 4
   Sheets("renk-1").Range("e7").Interior.ColorIndex = 6
   Sheets("renk-1").Range("e9").Interior.ColorIndex = 3
   
   
   Sheets("renk-2").Range("e5").Interior.ColorIndex = 4
   Sheets("renk-2").Range("e7").Interior.ColorIndex = 6
   Sheets("renk-2").Range("e9").Interior.ColorIndex = 3
   
   Sheets("renk-3").Range("e5").Interior.ColorIndex = 4
   Sheets("renk-3").Range("e7").Interior.ColorIndex = 6
   Sheets("renk-3").Range("e9").Interior.ColorIndex = 3
   
  
  
  Else
   Sheets("renk-1").Range("e5").Interior.ColorIndex = 0
   Sheets("renk-1").Range("e7").Interior.ColorIndex = 0
   Sheets("renk-1").Range("e9").Interior.ColorIndex = 0
  
   Sheets("renk-2").Range("e5").Interior.ColorIndex = 0
   Sheets("renk-2").Range("e7").Interior.ColorIndex = 0
   Sheets("renk-2").Range("e9").Interior.ColorIndex = 0
   
  
   Sheets("renk-3").Range("e5").Interior.ColorIndex = 0
   Sheets("renk-3").Range("e7").Interior.ColorIndex = 0
   Sheets("renk-3").Range("e9").Interior.ColorIndex = 0
   
      
  
  End If
End Sub

Örnek dosyada kodu uyguladım.Fakat sayfalarda E11 hücresinde taramayı yapıp-kaldıramadım yardımcı olur musunuz ?

 

[muygun]

Merhaba;
Değişik bir yöntemle eki inceleyin.
İyi çalışmalar.
Not Makrolar Excel' in "Makro oluştur" özelliği ile oluşturuldu.

Link:
http://dosya.co/shjsq19zixbd/ormann-CheckBox_İle_Hücre_Biçimlendirme.zip.html

(renkleri kaldırmak için Interior.ColorIndex =xlnone )

 

[ormann]

Sayın Muygun teşekkür ederim.İstedğim gibi yalnız hücre kenarlıkları kalması gerekiyor.O şekilde yapar mısınız ?

 

[muygun]

Merhaba;
Sanırım VERİ sayfasındaki uyarıyı pas geçtiniz.

VERİ sayfasında A5 : A11 aralığında hangi biçim,renk vs uygularsanız renklendirmede bu hücre özellikleri diğer sayfalara taşınır.
Yine VERİ sayfasında B5 : B11 aralığına ne uygularsanız silme işlemindede bu aralıktaki hücre özellikleri sayfalara taşınır.

Yada şöyle yapın:
VERİ sayfasında A5 : A11 aralığındaki hücrelere istediğiniz değişikliği yapın.
CheckBox a tik işareti koyun.
Sayfaları gözlemleyin.
Sonra VERİ sayfasında B5 hücresine kenralık yapın.
CheckBox tikini kaldırın.
Sayfaları tekrar gözlemleyin.
Umarım daha açıklayıcı olmuştur.
İyi çalışmalar.

 

[ormann]

Sayın Muygun çok teşekkür ederim.İyi akşamlar