Onay Kutusu işaretlediğimde karşılık çıkartma

[excitercem]

Arkadaşlar şimdi basit bir şey ama benim istediğim şu yardımcı olursanız çok makbule geçecek,

1- veri1 onay kutusunu onayladığımda d10 hücresine bunu yazdırmasını istiyorum.

2- veri1 ve veri2 yada seçili olan diğer onay kutusunu seçtiğimde bunu d10'a yazmasını isityorum

3-hepsini seç'e tıkladığımda satırdaki bütün onay kutucuklarını seçmesini ve verilerin toplamını d10 hücresine yazdırmasını istiyorum.

Ilgilenen arkadaşlara çok teşekkürler !

 

[İhsan Tank]

Arkadaşlar şimdi basit bir şey ama benim istediğim şu yardımcı olursanız çok makbule geçecek,

1- veri1 onay kutusunu onayladığımda d10 hücresine bunu yazdırmasını istiyorum.

2- veri1 ve veri2 yada seçili olan diğer onay kutusunu seçtiğimde bunu d10'a yazmasını isityorum

3-hepsini seç'e tıkladığımda satırdaki bütün onay kutucuklarını seçmesini ve verilerin toplamını d10 hücresine yazdırmasını istiyorum.

Ilgilenen arkadaşlara çok teşekkürler !

merhaba
lütfen acil konu başlığını kullanmayınız sorunuz taşınabilir. bu seferlik ben değiştiriyorum
onay kutularını checkboxlarla değiştirirseniz bu kod işinize yarar

Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("D10") = Range("D3").Value
Else
Range("D10") = ""
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
Range("D10") = Range("E3").Value
Else
Range("D10") = ""
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 = True Then
Range("D10") = Range("F3").Value
Else
Range("D10") = ""
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4 = True Then
Range("D10") = Range("G3").Value
Else
Range("D10") = ""
End If
End Sub
Private Sub CheckBox5_Click()
If CheckBox5 = True Then
Range("D10") = Range("H3").Value
Else
Range("D10") = ""
End If
End Sub
Private Sub CheckBox6_Click()
If CheckBox6 = True Then
CheckBox1 = True
CheckBox2 = True
CheckBox3 = True
CheckBox4 = True
CheckBox5 = True
Range("D10") = Range("D3") + Range("E3") + _
Range("F3") + Range("G3") + Range("H3")
Else
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
Range("D10") = ""
End If
End Sub

 

[excitercem]

Özür

Teşekkürler. Hatam için özür dilerim bir daha olmuyacak. Allah sizden razı olsun çok makbule geçti çünkü, cidden acildi, tekrar sağolun.

 

[İhsan Tank]

Teşekkürler. Hatam için özür dilerim bir daha olmuyacak. Allah sizden razı olsun çok makbule geçti çünkü, cidden acildi, tekrar sağolun.

rica ederim
Allah Hepimizden Razı Olsun
:yazici: