optionbutton (hata nerede)

[CILEKESH]

Private Sub CommandButton5_Click() 'KAydet
'If Cells(65536, "A").End(xlUp).Row >= 20 Then  'demo sil
'    If MsgBox("Demo Yazılımın Veri Girişleri Sınırlıdır. Lisans Almak İstiyor musunuz?", vbCritical + vbYesNo, "*© 2013*Irmak Yazılım") = vbYes Then 'demo sil
'    Me.Hide 'demo sil
'    UserForm28.Show 'demo sil
'Else 'demo sil
'    MsgBox "Kayıt Edilmedi.", vbInformation, "*© 2013*Irmak Yazılım" 'demo sil
'     End If 'demo sil
'     Exit Sub 'demo sil
'     End If 'demo sil
Dim ts, Erkan
If TextBox1 = "" Or TextBox20 = "" Or TextBox23 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" Or ComboBox5 = "" Or ComboBox6 = "" Then   'Boş alan engelle
MsgBox "Lütfen Tüm Alanları Doldurunuz!..", vbExclamation, "© 2013*Irmak Yazılım"
Exit Sub

[COLOR="Red"]End If
If OptionButton1.Value = False And OptionButton2.Value = False Then
MsgBox "Lot Numarası için seçim yapınız", vbInformation
Exit Sub[/COLOR]

End If
If TextBox5 = 0 Then
MsgBox "Brüt Kg girişini yapınız - Sıfır Olamaz", vbExclamation, "© 2013*Irmak Yazılım": Exit Sub
End If
If TextBox11 < 0 Then
MsgBox "Net Tutar Sıfırdan Küçük olamaz!", vbExclamation, "© 2013*Irmak Yazılım": Exit Sub
End If
If MsgBox("Kayıt Gerçekleştirilecek Lütfen Kontrol ediniz.!", vbCritical + vbYesNo, "© 2013*Irmak Yazılım") = vbYes Then
Else
    MsgBox "Kayıt Yapılmadı.", vbInformation, "*© 2013*Irmak Yazılım"
Exit Sub
End If
Set ts = Sheets("Veri")
Erkan = ts.Range("A" & Rows.Count).End(xlUp).Row
ts.Range("A" & Erkan + 1) = CDbl(TextBox20)
ts.Range("B" & Erkan + 1) = ComboBox1
ts.Range("C" & Erkan + 1) = CDate(TextBox1)
ts.Range("D" & Erkan + 1) = CDbl(TextBox5)
ts.Range("E" & Erkan + 1) = CDbl(TextBox10)
ts.Range("F" & Erkan + 1) = CDbl(TextBox11)
ts.Range("AB" & Erkan + 1) = OptionButton1
ts.Range("H" & Erkan + 1) = TextBox23
ts.Range("I" & Erkan + 1) = ComboBox2
ts.Range("J" & Erkan + 1) = ComboBox3
ts.Range("K" & Erkan + 1) = CDbl(TextBox15)
ts.Range("L" & Erkan + 1) = CDbl(TextBox6)
ts.Range("M" & Erkan + 1) = CDbl(TextBox19)
ts.Range("N" & Erkan + 1) = CDbl(TextBox14)
ts.Range("O" & Erkan + 1) = CDbl(TextBox7)
ts.Range("P" & Erkan + 1) = CDbl(TextBox18)
ts.Range("Q" & Erkan + 1) = CDbl(TextBox13)
ts.Range("R" & Erkan + 1) = CDbl(TextBox8)
ts.Range("S" & Erkan + 1) = CDbl(TextBox17)
ts.Range("T" & Erkan + 1) = CDbl(TextBox12)
ts.Range("U" & Erkan + 1) = CDbl(TextBox9)
ts.Range("V" & Erkan + 1) = CDbl(TextBox16)
ts.Range("W" & Erkan + 1) = (ComboBox2) & "-" & (TextBox23)
ts.Range("X" & Erkan + 1) = CDbl(ComboBox4)
ts.Range("Y" & Erkan + 1) = WorksheetFunction.Max(Range("Y2:Y" & Rows.Count)) + 1
ts.Range("Z" & Erkan + 1) = ComboBox5
ts.Range("AA" & Erkan + 1) = ComboBox6

If OptionButton1.Value = True Then ts.Range("G" & Erkan + 1) = OptionButton1.Caption

If OptionButton2.Value = True Then ts.Range("G" & Erkan + 1) = TextBox26

TextBox5 = 0

ListBox1.RowSource = Empty
With ListBox1
Sheets("veri").Select
.ColumnCount = 24
.ColumnWidths = "30;80;45;45;45;45;65;45;55;50;55;55;45;45;45;45;45;60;45;45;45;45;45;45"
.RowSource = "a2:V" & Cells(65536, "a").End(xlUp).Row
End With
ListBox1.ListIndex = ListBox1.ListCount - 1

TextBox25 = WorksheetFunction.Max(Range("Y2:Y" & Rows.Count))

ThisWorkbook.Save
End Sub

Kırmızı işaretlediğim bölümde hata nerede acaba?

OptionButtonun her ikiside işaretli olmamasına rağmen hata mesajı vermeden kod yürütülüyor?

Bulamadım.

Not : Optionbutton1 forumda deaktif gibi görünüyor (silik olarak işaretlenmiş sanki) tıklayınca tam işaretlenmiş oluyor.

 

[hamitcan]

OptionButton1.Value = False And OptionButton2.Value = False Then

satırını

OptionButton1.Value = False or OptionButton2.Value = False Then

şeklinde değiştirerek deneyiniz.

 

[CILEKESH]

OptionButton1.Value = False And OptionButton2.Value = False Then

satırını

OptionButton1.Value = False or OptionButton2.Value = False Then

şeklinde değiştirerek deneyiniz.

"OR" ikisinden birisi işaretli ise hata verir öyle değil mi?.

Benim yapmak istediğim ikisinden biri işaretlenmemişse hata versin.

 

[Korhan Ayhan]

"OR" ifadesi "YADA" anlamındadır. İşaretli değilse "FALSE" olarak kullanılan ifadedir.

Yani hamitcan beyin kod satırı iki seçenek butonundan birisi seçili değilse şeklinde yorumlanmaktadır.

 

[CILEKESH]

Hamitcan beyin kodunu kullanıldığında iki seçenekten birisi işaretlendiğinde de hata veriyor.

Ben ikiside işaretlenmemişse hata mesajı çıksın istiyorum.

Not :Optionbutton1 forumda deaktif gibi görünüyor (silik olarak işaretlenmiş sanki) tıklayınca tam işaretlenmiş oluyor.

 

[Korhan Ayhan]

10 dakika içinde fikrinizi değiştirdiniz.

#3 nolu mesajının son cümlesi ile son mesajınızın ikinci cümlesini karşılaştırır mısınız?

 

[CILEKESH]

Korhan bey fikir değiştirmedim ama ifade karmaşasına sebep oldum sanırım.

İkitane optionbutton var, ikisini birden işaretlemem mümkün olmadığından hareketle,
"İkisinden biri işaretlenmemişse" cümlesini kurdum. Pardon.

Doğru cümle "ikisi de işaretlenmemişse"

 

[Korhan Ayhan]

Bu durumda ilk mesajınızdaki kodun çalışması gerekir. Çalışmıyor diyorsunuz. Bu durumda kontrol edebilmemiz için dosyanızı eklemeniz gerekir.

 

[CILEKESH]

Her ikinize de teşekkür ediyorum vakit ayırdığınız için,

Sorun şu şekilde çözüldü,

Not olarak yazdığım Optionbutton1 forumda deaktif gibi görünüyor (silik olarak işaretlenmiş sanki) tıklayınca tam işaretlenmiş oluyor.
Hatanın sebebi buymuş.

Bunun nedeni de Userformun Aktivite olayına yazdığım bir koddaki hatadan kaynaklanmış, Düzeltince Optionbuttonlar boş olarak geldi.