Hücredeki değere göre işaretlenen checkbox

[torqanum]

Sorum çok basit ama bir türlü bulamadım aradığımı. A16 hücresinin değeri 1,2,3 veya 4 olacak.
1 ise checkbox1 işaretli olacak.
2 ise checkbox2 işaretli olacak.
3 ise checkbox3 işaretli olacak.
4 ise checkbox4 işaretli olacak.
Şimdiden çok teşekkür ederim.

 

[İhsan Tank]

Sorum çok basit ama bir türlü bulamadım aradığımı. A16 hücresinin değeri 1,2,3 veya 4 olacak.
1 ise checkbox1 işaretli olacak.
2 ise checkbox2 işaretli olacak.
3 ise checkbox3 işaretli olacak.
4 ise checkbox4 işaretli olacak.
Şimdiden çok teşekkür ederim.

merhaba
bu işinizi görür mü_?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A16")) Is Nothing Then Exit Sub
If Range("A16") = 1 Then
CheckBox1.Value = True
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
ElseIf Range("A16") = 2 Then
CheckBox1.Value = False
CheckBox2.Value = True
CheckBox3.Value = False
CheckBox4.Value = False
ElseIf Range("A16") = 3 Then
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = True
CheckBox4.Value = False
ElseIf Range("A16") = 4 Then
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = True
End If
End Sub

 

[torqanum]

Çok teşekkür ederim. Kodu modüle de sayfaya da yazdım; çalışmadı.
Yalnız bir ayrıntı var. A16 hücresi değerini atama yoluyla alıyor. Yani aslında A16 hücresinde formül var. Çalışmama nedeni bu olabilir mi?