Seçilen OptionButton un kaydedilmesi

[Erdinç FIRTINA]

Değerli üyeler,
Kaydet kodlarına, optionbutton ile ilgili satır ekledim. Ancak kaydetme işleminde "YANLIŞ" olduğu belirtiliyor. Acaba satırda nasıl bir değişiklik yapmam gerekiyor?

Private Sub CommandButton1_Click()
Sheets("ÖĞRENCİBİLGİLERİ").Select
Range("A1").Select
ActiveSheet.Unprotect "123"
Range("a1") = "SIRA NO"
'b1 hücresine giriş değerini atıyoruz
Range("A1") = "SIRA NO"
Range("B1") = "ADI SOYADI"
Range("C1") = "DOĞUM YERİ"
Range("D1") = "DOĞUM TARİHİ"
Range("E1") = "YAŞI"
If TextBox1.Value = "" Then
MsgBox "VERİ GİRİNİZ"
Range("a1").Select
Unload Me
UserForm4.Show
Exit Sub
End If
For sira = 1 To WorksheetFunction.CountA(Range("b1:b65536"))
Range("a" & sira + 1) = sira
Next
For Each bak In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65536")))
If bak = TextBox1 Then
MsgBox "Bu isimde bir kaydınız mevcut"
Range("a1").Select
ActiveSheet.Protect "123"
Unload Me
UserForm4.Show
Exit Sub
End If
Next

say = WorksheetFunction.CountA(Range("b1:b65536")) + 1
Range("B" & say) = TextBox1.Value
Range("C" & say) = TextBox2.Value
Range("D" & say) = TextBox3.Value
Range("E" & say) = TextBox4.Value
Range("F" & say) = TextBox5.Value
Range("G" & say) = ComboBox1.Value
Range("H" & say) = ComboBox2.Value
Range("I" & say) = TextBox6.Value

If OptionButton1.Value = True Then Range("BL" & say) = OptionButton1.Value = "BAŞLADI"
If OptionButton2.Value = True Then Range("BL" & say) = OptionButton2.Value = "BAŞLAMADI"

Columns("A:BP").EntireColumn.AutoFit
Columns("B:BP").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("ÖĞRENCİBİLGİLERİ").Select
Range("a1").Select
ActiveWorkbook.Save
ActiveSheet.Protect "123"
Unload Me
UserForm4.Show
End Sub

 

[Skorpiyon]

Sayın sefkatim,

"Ancak kaydetme işleminde "YANLIŞ" olduğu belirtiliyor." demenizden kastetdiğiniz nedir anlayamadım.

- Bir hata mesajı mı alıyorsunuz ?
- if komutu ile ilgili satıra veriyi aktırırken hücreye "YANLIŞ" mı yazıyor ?

Birde aşağıdaki şekilde bir deneyin.

If OptionButton1.Value = True Then Range("BL" & say) = "BAŞLADI"

 

[ugurcoskun]

If OptionButton1.Value = True Then Range("BL" & say) = "BAŞLADI"
If OptionButton2.Value = True Then Range("BL" & say) = "BAŞLAMADI"