Checkbox ile hücre renklendirme

[sukruyilmaz1]

İyi çalışmalar Üstadlarım,

Userform üzerinde checkbox1 var. ben bu checkbox a tıkladığımda "sayfa1" deki a1 hücresine "kontrol edildi" yazıp, o a1 hücresinin renginin de yeşil olmasını istiyorum. eğer checkbox1 i tıklamaz isem de, "kontrol edilmedi" yazılmasını ve o hücrenin renginin kırmızı olmasını istiyorum.

bunu nasıl yaparız?

şimdiden teşekkür ederim.

iyi çalışmalar

 

[turk-x]

Merhaba;
Aşağıdaki kod Userform Açıldığında CheckBox1 i kontrol eder. seçilmemişse kırmızı yapar ve Kontrol Edilmedi Yazar. Seçilmişse Kontrol Edildi yazıp hücre rengini yeşil yapar
Kodu Kendinize göre uyarlarsınız.

Private Sub CheckBox1_Click()
Kontrol
End Sub

Private Sub UserForm_Activate()
Kontrol
End Sub

Sub Kontrol()
If CheckBox1.Value = True Then Range("A1").Interior.Color = 5287936: Range("A1").Value = "Kontrol Edildi"
If CheckBox1.Value = False Then Range("A1").Interior.Color = 255: Range("A1").Value = "Kontrol Edilmedi"

End Sub

 

[ugurcoskun]

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
Range("A1").Activate
Range("A1") = "Kontrol Edildi."
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Range("A1").Activate
Range("A1") = "Kontrol Edilmedi."
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub

 

[sukruyilmaz1]

çok teşekkürler sayın turk-x ve sayın ugurcoskun.

bir sorum daha olacak. userformu kapatıp açtığımda eğer checkboxlarım daha önce onaylanmışsa onaylı bir şekilde gelmesini istiyorum?

yardımcı olabilir misiniz?

teşekkür ederim.

 

[sukruyilmaz1]

checkboxların onaylandığı gibi kalması mümkün müdür?