checkbox'a değer atamak.

[hikmet]

günaydın, dosyamdaki userfoma bir adet checkbox ekledim ve değeri sayfada bir hicreye aktardım. çalıştırınca sadece doğru veya yanlış diye bir değer veriyor. oysa benim yapmak istediğim checkbox'a onay verince değer yazdığı hücreye istediğim bir rakamı yerleştirmesi. yani doğru veya yanlış diye bir değer atamak değil, onaylı ise 1 değil ise 0 rakamı koymasını istiyorum çünkü bu şekilde değer koyarsa o değeri başka bir değerle toplattırmak istiyorum. bu konuda yardımcı olabilirmisiniz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:7700168fbd]Private Sub CheckBox1_Click()
[a1] = IIf(CheckBox1, 1, 0)
End Sub
[/vb:1:7700168fbd]

 

[Ali]

Kodu kendinize göre uyarlarsınız

Private Sub CheckBox1_Change()
Select Case CheckBox1.Value
Case True
Range("A1") = 1
Case False
Range("A1") = 0
End Select
End Sub

 

[Ali]

Pardon Levent Bey, mesajınız ben yazarken gelmiş.

 

[hikmet]

levetnt hocam ve fructose hocam teşekkür ederim kodlar işime yarada.ilginiz için çok teşekkür ederim.