OptionButton1 Seçimine Göre Kayıt!!!

[ocamsul]

Arkadaşlar çalışmamda forum üyesi arkadaşların sayesinde ilerleme kaydettim sayılır. şimdiki sorum; OptionButton1(KASA GİRİ) ve OptionButton2(KASA ÇIKIŞ) isimlerinde iki adet OptionButton mevcut. Aşağıdaki kayıt kodu OptionButton1 seçili ise KASA GİRİŞ sayfasına kayıt yapacak eğer OptionButton2 seçili ise KASA ÇIKIŞ sayfasına kayıt yapacak. Yardımlarınızı bekliyorum.

KAYIT KODU:
Sheets("KASAGİRİŞ").Select
Range("C3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(1, 2).Text = ComboBox2.Text Then
MsgBox "Seçmiş olduğunuz kayıt zaten var!!!"
Exit Sub
End If
Loop
If Range("d4").Value = "" Then
Range("C4").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = ComboBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 3).Value = ComboBox1.Value
ActiveCell.Offset(0, 4).Value = TextBox2.Value
ActiveCell.Offset(0, 5).Value = TextBox3.Value
ThisWorkbook.Save

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub KAYIT()
If OptionButton1.Value = False And OptionButton2.Value = False Then
MsgBox "Kayıt işlemi için sayfa seçimi yapmalısınız.", vbExclamation, "DİKKAT !"
Exit Sub
End If
If OptionButton1.Value = True Then Sheets("KASA GİRİŞ").Select
If OptionButton2.Value = True Then Sheets("KASA ÇIKIŞ").Select
'Sizin kodlarınız
End Sub

 

[ocamsul]

Sn: COST_CONTROL süpersin hocam. çok iyi gidiyoruz, ellerine sağlık. teşekkür ederim.