Checkbox renk değiştirme

[silka]

Private Sub CheckBox1_Change()
Select Case CheckBox1.Value
Case True
Range("x69") = "X"
Case False
Range("x69") = ""
End Select
End Sub

ARKADAŞLAR YUKARIDAKİ KODU TIKLADIĞIMIZ ZAMAN ARKA PLAN RENGİNİ DEĞİŞTİRECEK ŞEKİLDE AYARLAYABİLİRMİYİZ İLGİNİZE TEŞEKKÜRLER ŞİMDİDEN

 

[silka]

arkadaşlar yardım edecek kimse yokmu

 

[BG]

arkadaşlar yardım edecek kimse yokmu

Checkbox'ın zemin rengini mi değiştirmek istiyorsunuz ? yoksa X69 hücresinin mi zemin rengini değiştirmek istiyorsunuz?

 

[BG]

Sayın silka

Aşağıdaki kod X69 hücresinin rengini değiştirir

Select Case CheckBox1.Value
Case True
Range("x69") = "X"
[x69].Interior.ColorIndex = 3
Case False
Range("x69") = ""
[x69].Interior.ColorIndex = 0
End Select

bu kod ise Checkbox'ın rengini değiştirir,

Select Case CheckBox1.Value
Case True
Range("x69") = "X"
CheckBox1.BackColor = &HFF&
Case False
Range("x69") = ""
CheckBox1.BackColor = &H80000014
End Select

 

[silka]

teşekkürler ama ben sorunumu çözdüm