Soru CheckBox Caption adını dinamik değiştirmek

[bulentkars]

Arkadaşlar Merhaba;

Excelde CheckBox eğer işaretli ise caption adı işaretli yazmasını istiyorum. işsretli değilse caption adı işaretli değil yazmasını istiyorum. yardımcı olabilirseniz sevinirim. şimdiden teşekkürler

=EKLE("Forms.CheckBox.1";"")

 

[muygun]

Merhaba;
Userformun kod kısmına;

Private Sub CheckBox1_Click()
If Controls("CheckBox1").Value = False Then
Me.Caption = "İŞARETLİ"
End If
If Controls("CheckBox1").Value = True Then
Me.Caption = "İŞARETLİ DEĞİL"
End If
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

 

[bulentkars]

Sayın Muygun;
Çok teşekkür ederim. Elinize sağlık