OptionButton düzenleme

[CILEKESH]

Merhaba,

Şu kod dizesine

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("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

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

şu koşulu eklemek istiyorum
Userfom üzerindeki OptionButton1 ve OptionButton2
butonlarından

OptionButton1 seçili ise
ts.Range("G" & Erkan + 1) = OptionButton1.Caption

OptionButton2 seçili ise
ts.Range("G" & Erkan + 1) = TextBox26


olacak,

yardımcı olabilir misiniz.

 

[Orion1]

Buyurun.

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

End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then ts.Range("G" & Erkan + 1) = textbox26
End Sub

 

[CILEKESH]

Teşekkür Ederim Sayın Orion1,