optionbutton yardım

[grida]

userform üzerindeki 3 adet optionbutton u aşağıdaki gibi tanımladım.

Private Sub OptionButton6_Click()
t = "Nakit"
End Sub

Private Sub OptionButton7_Click()
t = "Kredi Kartı"
End Sub

Private Sub OptionButton8_Click()
t = "Cari Hesap"
End Sub

seçimi 'data' daki AB sütununa getirtebiliyorum.fakat listbox tan userforma çağırdığım zaman diğer bilgiler doğru olarak geliyor.optionbutton ise işaretsiz olarak geliyor.aşağıdaki koda ne eklemem gerekli.yardım ederseniz çok sevinirim.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ListBox1.ListIndex + 2, 1).Select
TextBox1.Text = Sheets("data").Cells(ActiveCell.Row, "B" & Bulunan_Satir_No).Value
TextBox2.Text = Sheets("data").Cells(ActiveCell.Row, "C" & Bulunan_Satir_No).Value

 

[mancubus]

örnek dosya ekleyebilirseniz iyi olur.

 

[peleryn]

OptionButton6.Value=True

ama bu durumda t değeriniz de otomatikman "Nakit" olmuş olmaz mı?

 

[grida]

Zaten amacım hücrede hangi değer varsa userform da o değerin karşılığı olan optionbutton un tıklı gelmesi.

 

[peleryn]

If hücreniz.Value="Nakit" Then OptionButton6.Value=True
...
...
benzer şekilde işinizi görür o zaman