Seçime göre Sayfa1 yada Sayfa2 ye kayıt ?

[Gorarr]

Selamlar yaptığım formda gireceğim verilerin seçimime göre(optionbutton ile) sayfa1 yada sayfa2 ye kaydolmasını sağlayabilirmiyiz. örnek dosyam ektedir. yardımınız için şimdiden çok teşekkürler....

 

[usubaykan]

Merhaba;

Var olan kodunuza

Private Sub CommandButton1_Click()
[COLOR=Red]If OptionButton1 = True Then
Sheets("Yerli").Select
[/COLOR]If TextBox1 <> Empty Then
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
    Range("a2").Value = 1
    Range("a2").Select
[COLOR=Black]Else[/COLOR]
    ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = ComboBox1.Text
ActiveCell.Offset(0, 4).Value = ComboBox2.Text
End If
[COLOR=Red]Else
If OptionButton2 = True Then
Sheets("Yabancı").Select[/COLOR]
If TextBox1 <> Empty Then
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
    Range("a2").Value = 1
    Range("a2").Select
Else
    ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = ComboBox1.Text
ActiveCell.Offset(0, 4).Value = ComboBox2.Text
End If
End If
End If
End Sub

Kırmızı renkli yerleri ekleyin sanırım istediğiniz olacak.

 

[Gorarr]

Ellerinize sağlık gayet güzel çalışıyor.. Birde öğrenme açısından soruyorum buna alternatif bir kod mümkünmüdür. tekrar teşekkürler...