CheckBox işaretlendiğinde yanındaki hücreye değer atanması

[Camand]

CheckBox işaretlendiğinde yanındaki hücreye değer atanması

Merhaba arkadaşlar

Bir Excel sayfasında CheckBox oluşturdum, bu kutu işaretlendiğinde yanındaki bir hücreye değer atayan bir macro ya ihtiyacım var.

Yardımlarınız için teşekkür ederim.

 

[Halit TÜRK]

Selamlar...

a1 hücresine "DOĞRU" ya da "YANLIŞ" yazdırır..

Private Sub CheckBox1_Click()
[a1].Value = CheckBox1.Value
End Sub

 

[Camand]

Tesekkur ederim, htrk.

 

[silka]

peki buna formül atayabilirmiyiz Yani checkbox'u işaretlediğimde mesela "medeni durumu" yazsın

 

[BG]

Sayın silka

peki buna formül atayabilirmiyiz Yani checkbox'u işaretlediğimde mesela "medeni durumu" yazsın

kod:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[b1].Value = "Medeni Durumu"
Else
[b1].Value = ""
End If
End Sub

şeklinde denermisiniz.