Çözüldü Checkbox mı ? Combobox mı?

[LİNDA]

Merhaba dosyamda userform3 üzerine combobox6 ekledim (evet/Hayır) seçenekleri ile evet seçilmesi durumunda textboxlara kontenjan yazmasını sağlayabiliyorum. Hayır seçeneğine gerek duymuyorum .Bu nedenle Checkbox ile yapmak daha fonsiyonel olacak gibi geliyor. Ama kodlayamadım. Check işareti olması durumunda Textbox5 ten itibaren Textbox14 e kadar "KONTENJAN" yazmasını kaydet ve yenileme tuşlarında nasıl sağlayabiliriz.
combobox6 da şu kodları kullandım

Private Sub ComboBox6_Change()
With Sheets("SONUÇ")
For Each bul In .Range("S2:S" & Sheets("SONUÇ").Range("S65536").End(3).Row)
If CStr(bul.Value) = CStr(ComboBox6.Value) Then
TextBox5.Value = bul.Offset(0, 1).Value
TextBox6.Value = bul.Offset(0, 1).Value
TextBox7.Value = bul.Offset(0, 1).Value
TextBox8.Value = bul.Offset(0, 1).Value
TextBox9.Value = bul.Offset(0, 1).Value
End If
Next bul
End With
End Sub
Ama kaydet ve yenileme yaptığımda textboxlar boş olarak sayfa yenilenmiyor.

 

[Yusuf43]

Düzenledim anladığım kadarı ile inceleyip dönüş yapınız.

 

[LİNDA]

Düzenledim anladığım kadarı ile inceleyip dönüş yapınız.

Emeğinize sağlık çok teşekkürler Sayın Yusuf43 anlattığım şekilde isteğimi karşıladı. Checkbox1 ismi" EVET" tıklama yapınca görünse lüks mü olur acaba?

 

[Yusuf43]

Düzenledim kolay gelsin.

 

[LİNDA]

Düzenledim kolay gelsin.

Çok çok teşekkür ederim sayın Yusuf43 çok güzel oldu emeğinize sağlık. Bende uğraşırken şöyle bir kod oluşturdum.
İki ayrı kod olmuş oldu.
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
CheckBox1.Caption = "EVET"
CheckBox1.BackColor = vbGreen

Else
CheckBox1.Caption = ""
CheckBox1.BackColor = UserForm3.BackColor
End If
End Sub