Her satıra checkbox için makro

[ITouch87]

İyi günler;

Excel sayfamda check box oluşturuken her satırda tekrar etmesini istiyorum.Her satır için tek tek yazmak yerine(Aşağıdaki gibi)tek bir formülle yönetebilir miyim?Yardımlarınız için şimdiden teşekkürler.



Private Sub CheckBox1_Click()
If CheckBox1 = True Then
[F2].Value = [D2]
Else
[F2].Value = 0
End If
End Sub

---------
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
[F3].Value = [D3]
Else
[F3].Value = 0
End If
End Sub

 

[ITouch87]

Yardım edebilir misiniz?