OptionButton un değerini TextBox'a yazdırma

[cagri24]

Selamlar,
Aşağıdaki dosya ile ilgili bir kaç problemim oluştu.

1. Deneme olarak oluşturduğum dosyanın orjinal halinde userform açarken bir sıkıntı yaşamıyorum. Ancak burada oluşturduğum deneme dosyasında "object required" hatası alıyorum. Biraz araştırdım Tools>References>MISSING işaretliyse kaldırın demişler fakat bende MISSING adında bir seçenek de görünmüyor.

2. Ben userform üzerinde oluşturduğum textbox a; hangi optionbutton seçili ise onun, veriler çalışma sayfasındaki karşı gelen değerini yazdırmak istiyorum. Bunun için kullandığım kod şu şekilde :

Private Sub OptionButton1_Click() 'Grup 1
    TextBox1.Value = Worksheets("veriler").Range("C4") & " TL"
End Sub
Private Sub OptionButton2_Click() 'Grup 2
    TextBox1.Value = Worksheets("veriler").Range("C5") & " TL"
End Sub
Private Sub OptionButton3_Click() 'Grup 3
    TextBox1.Value = Worksheets("veriler").Range("C6") & " TL"
End Sub

Fakat ben bunu döngü içinde kullanmak istiyorum. Bunun için de şu komutu yazdım fakat çalıştıramadım. Acaba nerde hata yapıyorum?

For fiyatyaz = 1 To 3
        If Controls("OptionButton" & fiyatyaz).Value = True Then
            TextBox1.Text = Sheets("veriler").Cells(fiyatyaz + 3, 3) & "TL"
            Else: TextBox1.Text = ""
        End If
Next fiyatyaz

3. Numune Checkbox'ı seçili iken True olan Optionbutton grup fiyatının 2 katını textboxa yazdırmam gerekiyor.

Yardımcı olabilirseniz çok sevinirim.
Şimdiden teşekkürler.

 

[vardar07]

Sizdeki kodları silip aşağıdakini ekleyip herhangi bir OptionButton u tıklayınız gerekincede CheckBox ı tıklayınız.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then TextBox1.Value = Replace(TextBox1, ".", ",") * 2
End Sub

Private Sub OptionButton1_Click()
hesap
End Sub

Private Sub OptionButton2_Click()
hesap
End Sub

Private Sub OptionButton3_Click()
hesap
End Sub

Sub hesap()
TextBox1=""
For fiyatyaz = 1 To 3
        If Controls("OptionButton" & fiyatyaz).Value = True Then
            TextBox1.Value = Sheets("veriler").Cells(fiyatyaz + 3, 3)
        End If
     Next fiyatyaz
End Sub

 

[cagri24]

vardar07 dediğin gibi yazdım fakat numune checkbox ı her tıkladığımda iki katına çıkarıyor. Checkbox seçili değilken fiyatın eski haline dönmesini istiyorum.

 

[Levent Menteşoğlu]

Class module kullanabilirsiniz. Ekteki dosyanızı inceleyin.

 

[cagri24]

elinize sağlık Levent bey, teşekkürler.