CheckBox olayında)

[mars2]

İyi Günler,

Userform üzerinde üç adet CheckBox bulunmakta, bulunları excel çalışma sayfasına hangisi onaylı ise aktarım yapmakta ancak, userformda ikinci bir seferde değiştirmeme rağmen yeni onayın özelliğini yazmamaktadır.
örnek;
CheckBox1 Kasa
CheckBox2 Çek
CheckBox3 Mahsup

İlk kayıt CheckBox2 onaylı ise A10 hücresine çek yazmakta ancak, ikinci bir kayıt yaptığımda CheckBox3 onaylı ise A10 hücresine mahsup yazmamakta.

Bunun sebebi, kodları CheckBox2_Click() olayına yazılmadan mı kaynaklanmaktadır.
Teşekkürler

 

[nziya]

Bu şekilmi yazdırıyosunuz.
Private Sub CheckBox1_Click()
Range("A10").Value = TextBox1.Value
End Sub

Private Sub CheckBox2_Click()
Range("A10").Value = TextBox2.Value
End Sub

Private Sub CheckBox3_Click()
Range("A10").Value = TextBox3.Value
End Sub

 

[mehmett]

Ben de farklı bir öneride bulunacağım. CheckBox yerine OptionButton kullanın ve butonların her birinin Click olayına şunları yazın;

Range("A10") = "Kasa"

Range("A10") = "Çek"

Range("A10") = "Mahsup"

Ã?rnek dosya ektedir.