Option Buttonun sürekli aktif olması

[ferhatgurbuz]

Private Sub OptionButton1_Click()
Sheets("Kisisel").Select
If OptionButton1 Then [c32] = "Adı geçenin maaşında herhangi bir haciz kesintisi yoktur."
If OptionButton1 Then [k34] = "Suat KARASU"
If OptionButton1 Then [k35] = "Vergi Mahkemesi Başkanı"
If OptionButton1 Then [k36] = "'(38007)"
End Sub
Private Sub OptionButton2_Click()
Sheets("Kisisel").Select
If OptionButton2 Then [c32] = ""
If OptionButton2 Then [k34] = ""
If OptionButton2 Then [k35] = ""
End Sub

Benim yapmak istediğim OptionButton2'nin Userformu her açtığımda aktif olması

 

[Seyit Tiken]

Private Sub UserForm_Initialize()
Me.OptionButton2= 1
End Sub

Şeklinde deneyiniz.

 

[ferhatgurbuz]

Teşekkür ederim. Birşey daha sorabilirmiyim. Form üzerinde SpinButton var ileri geri giderken boş satırlarıda gösteriyor. Sadece dolo satırları göstermesi mümkün mü

 

[Seyit Tiken]

SpinButton hücrelar arasında dolaşırken dolu hücre UserForm'un Caption bölümüne yansır. Ekli dosyayı inceleyiniz.

 

[ferhatgurbuz]

Ya üstad kodlarla ilgili fazla bilgim yok. Ben size dosyayi eklesem de bir baksanız Kişisel Bordro adlı Userform da sorgu çalşıtırdığımda veriyi buluyor. Ondan sonra Spin Button ile ileri geri gidiyor. Boş satırlara gitmesin istiyorum.