Frame'lerin kontrol edilmesi.

[s.savas]

İyi geceler arkadaşlar.
Ekteki belgede bulunan userformda 7 adet frame ve 70 adet optionbutton var. Her framede bulunan optionbuttonlardan en az birtanesi işaretlenmediği zaman kodun uyarı mesajını vermesini sağlayamadım.Bilgi girişi zaruri olmasın ancak kullanıcıyı uyarsın istiyorum.

 

[Ergün Güler]

İyi geceler arkadaşlar.
Ekteki belgede bulunan userformda 7 adet frame ve 70 adet optionbutton var. Her framede bulunan optionbuttonlardan en az birtanesi işaretlenmediği zaman kodun uyarı mesajını vermesini sağlayamadım.Bilgi girişi zaruri olmasın ancak kullanıcıyı uyarsın istiyorum.

Selam,
Sayın s.savaş,
Sizde biliyorsunuz zaten, bir frame içindeki optionbox'lardan zaten en az 1, en fazla 1 adet seçebiliyorsunuz.
sadece Userform açılınca hepsi False gelir bunun için, her bir framenin 1.cisinin seçili gelmesini sağlayabilirsiniz.

Private Sub UserForm_Initialize()

Me.OptionButton1 = True
Me.OptionButton7 = True
Me.OptionButton23 = True
Me.OptionButton36 = True
Me.OptionButton44 = True
Me.OptionButton62 = True
Me.OptionButton64 = True
End Sub

 

[Ergün Güler]

Selam,

Sosyal Güvence bölümü için

Private Sub cmdKAYDET_Click()

Dim op1_say As Byte
Dim i As Long

op1_say = 0
For i = 1 To 6
If Me.Controls("OptionButton" & i) = True Then
op1_say = op1_say + 1
If op1_say > 0 Then Exit For
End If
If op1_say = 0 Then
MsgBox "Sosyal Güvence Bölümünden Herhangi Bir Seçim Yapmadınız!", vbCritical, "Dikkat!": Exit Sub
End If
Next

End Sub

geri kalanını kendiniz uyarlayınız.

İyi çalışmalar.

 

[s.savas]

Selam,

Sosyal Güvence bölümü için

Private Sub cmdKAYDET_Click()

Dim op1_say As Byte
Dim i As Long

op1_say = 0
For i = 1 To 6
If Me.Controls("OptionButton" & i) = True Then
op1_say = op1_say + 1
If op1_say > 0 Then Exit For
End If
If op1_say = 0 Then
MsgBox "Sosyal Güvence Bölümünden Herhangi Bir Seçim Yapmadınız!", vbCritical, "Dikkat!": Exit Sub
End If
Next

End Sub

geri kalanını kendiniz uyarlayınız.

İyi çalışmalar.

Teşekkür ederim Ergün hocam.
Birde şunu sormak isterim, ilk mesajda ekli olan dosyanın boyutu birden bire inanılmaz bir şekilde büyüdü. Nasıl küçülebilir bilmiyorum.

 

[Ergün Güler]

Teşekkür ederim Ergün hocam.
Birde şunu sormak isterim, ilk mesajda ekli olan dosyanın boyutu birden bire inanılmaz bir şekilde büyüdü. Nasıl küçülebilir bilmiyorum.

Selam,
linki inceleyiniz.

Excel Dosya Boyutu