ToggleButton1 ile hücre rengini değiştirme

[SanaLSukuL]

ToggleButton1 bastığımda C4 ile C17 aralığının Yazı tipi rengi beyaz
Tekrar basatığımda Yazı tipi rengi siyah olması mümkünmü acaba

Bu buton ismi ToggleButton1 yerine AÇ, basılı olduğunda KAPAT yazılı olması mümkünmü . Örnek dosya ektedir. Şimdiden teşekkür ederim Saygılar....

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "AÇ"
Range("C5:C16").Font.ColorIndex = 2
End If
If ToggleButton1 = False Then
ToggleButton1.Caption = "KAPAT"
Range("C5:C16").Font.ColorIndex = 0
End If
End Sub

 

[SanaLSukuL]

Çok teşekkür ederim. Saygılar...