option buttonla seçilen sayfaya kayıt

[serdarbarak]

Arkadaşlar aşağıdaki kodlara option button seceneği koyarak seçilen sayfaya kayıt yapmak istiyorum
1. options button Teslim KAyıt Defteri
1. options button Teslim KAyıt Defteri1
1. options button Teslim KAyıt Defteri2

yardımcı olursanız sevinirim


Private Sub CommandButton1_Click()
If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox "Lütfen Harita Ölçeğini Seçiniz.", vbExclamation, "DİKKAT !"
Exit Sub
End If
Sheets("HARİTA TESLİM FİŞİ").Select
Range("f1").Value = TextBox1.Text
Range("a12").Value = TextBox2.Text
Range("c12").Value = TextBox3.Text
Range("e12").Value = TextBox4.Text
Range("g12").Value = TextBox5.Text
Range("a13").Value = TextBox9.Text
Range("c13").Value = TextBox8.Text
Range("e13").Value = TextBox7.Text
Range("g13").Value = TextBox6.Text
Range("a48").Value = TextBox82.Text
Range("h5").Value = TextBox83.Text
Range("a53").Value = TextBox84.Text
Range("h6").Value = TextBox85.Text
Sheets("HARİTA TESLİM FİŞİ").Select
sat = Sheets("teslim kayıt defteri").Cells(65536, "B").End(xlUp).Row + 1
With Sheets("teslim kayıt defteri")
.Cells(sat, "A").Value = Range("f1").Value
.Cells(sat, "B").Value = Range("A12").Value
.Cells(sat, "C").Value = Range("c12").Value
.Cells(sat, "D").Value = Range("e12").Value
.Cells(sat, "E").Value = Range("g12").Value
.Cells(sat, "cd").Value = Range("a48").Value
.Cells(sat, "ce").Value = Range("h5").Value
.Cells(sat, "cf").Value = Range("a53").Value
.Cells(sat, "cg").Value = Range("h6").Value
End With
MsgBox "Teslim Edilen Harita Deftere Kaydedildi..!!", vbOKOnly + vbinf
Sheets("teslim kayıt defteri").Select
Exit Sub
End Sub

 

[ECYavuz]

Gününüz Aydın olsun.

Bir Örnek Benden....

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then
Set S1 = Sheets("teslim kayıt defteri")
ElseIf OptionButton2.Value = True Then
Set S1 = Sheets("teslim kayıt defteri1")
ElseIf OptionButton2.Value = True Then
Set S1 = Sheets("teslim kayıt defteri2")
Else
MsgBox "Lütfen Harita Ölçeğini Seçiniz.", vbExclamation, "DİKKAT !"
Exit Sub
End If

Sheets("HARİTA TESLİM FİŞİ").Select
Range("f1").Value = TextBox1.Text
Range("a12").Value = TextBox2.Text
Range("c12").Value = TextBox3.Text
Range("e12").Value = TextBox4.Text
Range("g12").Value = TextBox5.Text
Range("a13").Value = TextBox9.Text
Range("c13").Value = TextBox8.Text
Range("e13").Value = TextBox7.Text
Range("g13").Value = TextBox6.Text
Range("a48").Value = TextBox82.Text
Range("h5").Value = TextBox83.Text
Range("a53").Value = TextBox84.Text
Range("h6").Value = TextBox85.Text
Sheets("HARİTA TESLİM FİŞİ").Select
sat = S1.Cells(65536, "B").End(xlUp).Row + 1
With S1
.Cells(sat, "A").Value = Range("f1").Value
.Cells(sat, "B").Value = Range("A12").Value
.Cells(sat, "C").Value = Range("c12").Value
.Cells(sat, "D").Value = Range("e12").Value
.Cells(sat, "E").Value = Range("g12").Value
.Cells(sat, "cd").Value = Range("a48").Value
.Cells(sat, "ce").Value = Range("h5").Value
.Cells(sat, "cf").Value = Range("a53").Value
.Cells(sat, "cg").Value = Range("h6").Value
End With
MsgBox "Teslim Edilen Harita Deftere Kaydedildi..!!", vbOKOnly + vbinf
S1.Select
Set S1=Nothing
End Sub