userform arka planını option buttonla açmak

[zulfuernek]

http://dosya.co/8nq4tgnbeijo/OPTİONBUTTON_USERFORM_ARKA_PLAN.xlsm.html

yukarıdaki dosyada userfomdaki option buttonları seçtiğimde userform arka plan değişşiyor. fakat userform açılışında optionbutton seçili olarak gelmesini nasıl sağlarım.

 

[PLİNT]

Merhaba
Dosyanız indirilemiyor.
Şöyle yapabilirsiniz

Private Sub UserForm_Initialize()

OptionButton1.Value = True

end sub

 

[zulfuernek]

peki hocam bir sürü userform hangisi seçili şekilde kapattıysam açtığımda gene o optionbutton seçili olmasını nasıl yapıcam mesela 5 tane optionbutton var?

 

[zulfuernek]

PLİNT HOCAM YAPTIM;

Katkıların için teşekkür ederim hocam. saygılar



Private Sub OptionButton1_Click()
Me.Picture = OptionButton1.Picture
If OptionButton1 = True Then Sheets("SYSTEM").[A1] = OptionButton1.Picture
Sheets("SYSTEM").[B1] = 1
End Sub
Private Sub OptionButton2_Click()
Me.Picture = OptionButton2.Picture
If OptionButton2 = True Then Sheets("SYSTEM").[A1] = OptionButton2.Picture
Sheets("SYSTEM").[B1] = 2
End Sub

Private Sub UserForm_Initialize()
If Sheets("SYSTEM").[B1] = 1 Then
OptionButton1 = True
ElseIf Sheets("SYSTEM").[B1] = 2 Then
OptionButton2 = True
End If
End Sub

 

[PLİNT]

Son mesajınızdaki işlemi; sayfaya işaret koymaya gerek kalmadan, kodlar içinde örnekteki gibide yapabilirsiniz
http://s7.dosya.tc/server4/lgnjzt/option.zip.html