Checkbox ile hücreye rakam yazdırmada " Tür belirsizliği hatası"

[cocoa35]

Merhaba üstatlar bir türlü çözemediğim vede anlam veremediğim sorunum var! Şöyleki Bir Userform1 var bunda toplamda 4 adet Chackbox kutusu var, Chackbox1'e tıkladığımda örneğin Sayfa2 "C7"=0 ve Sayfa2 "D7" =1 , Chackbox2 Sayfa2 "C7"=1 ve Sayfa2 "D7" =1, Chackbox3 Sayfa2 "C7"=1 ve Sayfa2 "D7" =2, Chackbox4 Sayfa2 "C7"=2 ve Sayfa2 "D7" =2, yazması gerekiyor. Sorunum şu Chackbox1 dışında tüm kutular tam olarak çalışıyor, ancak Chackbox1 tıkladığımda Sayfa2 "D7" = 2 yazıyor halbuki kod'da 1 yazmasını istiyorum bu neden ile hata veriyor kodları kontrol ediyorum bir sorun yok bu neden olur Hata olarak " Tür uyuşmazlığı" hatası veriyor ancak şu şekilde çalışıyor Chackbox1 den önce Chackbox2 yi çalıştırırsam o zaman chackbox1 düzgün çalışıyor!
Bilmiyorum biraz karmaşık oldu ama bu konuda ne yapabilirim bilmiyorum

 

[AdemCan]

Merhaba, kodları ya da dosyayı paylaşır mısınız?

 

[cocoa35]

Merhaba, kodları ya da dosyayı paylaşır mısınız?

Merhaba userformdaki kodlar bu şekilde

Private Sub CheckBox1_Change()
If UserForm8.CheckBox1.Value = True Then
UserForm8.CheckBox2.Value = False
UserForm8.CheckBox3.Value = False
UserForm8.CheckBox4.Value = False
Sayfa18.Range("C7") = 0
Sayfa18.Range("D7") = 1
Unload Me
UserForm9.Show
End If
End Sub

Private Sub CheckBox2_Change()
If UserForm8.CheckBox2.Value = True Then
UserForm8.CheckBox1.Value = False
UserForm8.CheckBox3.Value = False
UserForm8.CheckBox4.Value = False
Sayfa18.Range("C7") = 1
Sayfa18.Range("D7") = 1
Unload Me
UserForm10.Show
End If
End Sub
Private Sub CheckBox3_Change()
If UserForm8.CheckBox3.Value = True Then
UserForm8.CheckBox1.Value = False
UserForm8.CheckBox2.Value = False
UserForm8.CheckBox4.Value = False
Sayfa18.Range("C7") = 1
Sayfa18.Range("D7") = 2
Unload Me
UserForm86.Show
End If
End Sub
Private Sub CheckBox4_Change()
If UserForm8.CheckBox4.Value = True Then
UserForm8.CheckBox1.Value = False
UserForm8.CheckBox2.Value = False
UserForm8.CheckBox3.Value = False
Sayfa18.Range("C7") = 1
Sayfa18.Range("D7") = 3
Unload Me
UserForm85.Show
End If
End Sub

 

[cocoa35]

Sorun nerde acaba? Yukarıdaki kodlar başka türlü nasıl yazılabilir?

 

[Trilenium]

userform9 üzerinde checkbox2 diye bir checkbox olup userform9 açıldığında active kodunda bir şey yazıyor olabilir..

ayrıca change yerine click eventine taşıyıp dener misiniz.

aşağıdaki gibi..

Private Sub CheckBox1_Click()
If UserForm8.CheckBox1.Value = True Then
UserForm8.CheckBox2.Value = False
UserForm8.CheckBox3.Value = False
UserForm8.CheckBox4.Value = False
Sayfa18.Range("C7") = 0
Sayfa18.Range("D7") = 1
Unload Me
UserForm9.Show
End If

End Sub

 

[cocoa35]

userform9 üzerinde checkbox2 diye bir checkbox olup userform9 açıldığında active kodunda bir şey yazıyor olabilir..

ayrıca change yerine click eventine taşıyıp dener misiniz.

aşağıdaki gibi..

Private Sub CheckBox1_Click()
If UserForm8.CheckBox1.Value = True Then
UserForm8.CheckBox2.Value = False
UserForm8.CheckBox3.Value = False
UserForm8.CheckBox4.Value = False
Sayfa18.Range("C7") = 0
Sayfa18.Range("D7") = 1
Unload Me
UserForm9.Show
End If

End Sub

Click() eventini yapınca sanırım düzeldi teşekkürler