OptionButton Seçimi ile kayıt!

[ocamsul]

Arkadaşlar merhabalar. ek de verdiğim denememde her zaman olduğu gibi şart sorunum var, formdada açıkça görüldüğü gibi OptionButton lardan hangisi seçili ise o kritere cevap veren hesaplamalar yapmak istiyorum. Konu ile ilgili faydalanılabilecek hesap kodları kod ekranında mevcut. Yardımlarınızı ve çözüm yollarınızı bekliyorum arkadaşlar. İyi çalışmalar dilerim.

 

[xxcell]

şu kodları eklersen olur

Private Sub OptionButton1_Click()
If OptionButton1.Value Then
TextBox1.Text = "1 nolu butona basıldı"
ElseIf OptionButton2.Value Then
TextBox1.Text = "2 nolu butona basıldı"
ElseIf OptionButton3.Value Then
TextBox1.Text = "3 nolu butona basıldı"
End If
End Sub


Private Sub OptionButton2_Click()
If OptionButton1.Value Then
TextBox1.Text = "1 nolu butona basıldı"
ElseIf OptionButton2.Value Then
TextBox1.Text = "2 nolu butona basıldı"
ElseIf OptionButton3.Value Then
TextBox1.Text = "3 nolu butona basıldı"
End If
End Sub

Private Sub OptionButton3_Click()
If OptionButton1.Value Then
TextBox1.Text = "1 nolu butona basıldı"
ElseIf OptionButton2.Value Then
TextBox1.Text = "2 nolu butona basıldı"
ElseIf OptionButton3.Value Then
TextBox1.Text = "3 nolu butona basıldı"
End If
End Sub

 

[ocamsul]

SN: xxcell ilginize çok teşekkür ederim. Ancak verdiğiniz kodlar OptionButton seçildiğinde iş görüyor. benim demek istediğim bu OptionButton yada CheckBox da olabilir işaretli iken örneğin KDV yada Stopaj ın hesaplama dışında kalmasını sağlamak.

 

[tuarek]

bir amatör olarak
birşeyler yaptım ama işallah istediğin gibidir.

 

[tuarek]

bir öncekinde ufak bir hata oldu düzeltemedim yeniden ekledim

 

[ocamsul]

SN: tuarek yardımlarınız için çok teşekkür ederim.
If değerlerinden sonra


TextBox5.Text = ""

kullanmak sonucu net olarak verdi. 2. mesajınızı görmeden denemiştim. Çok sağolun.


Private Sub CommandButton1_Click()
TextBox5.Text = ""
If OptionButton1.Value = True Then
TextBox3 = TextBox1.Value
TextBox4 = Val(TextBox3) * 20 / 100
TextBox2 = Val(TextBox1) * 18 / 100
TextBox5 = Val(TextBox1) - Val(TextBox2) - Val(TextBox4)
Else
End If
If OptionButton2.Value = True Then
TextBox2 = Val(TextBox1) * 18 / 100
TextBox5 = Val(TextBox1) - Val(TextBox2)
TextBox4.Text = ""
Else
End If
If OptionButton3.Value = True Then
TextBox2.Text = ""
TextBox4 = Val(TextBox3) * 20 / 100
TextBox5 = Val(TextBox1) - Val(TextBox2) - Val(TextBox4)

Else
End If
End Sub

 

[salih_abi]

arkadaşlar ecxelden butonlara nasıl süre saydıra bilirim yardım larınızı bekliyorum

 

[veysell]

ya ben birşey soracam

 

[veysell]

excel de yaptıgım bazı yazılımlar var benim bu yazılımlarımı pragram haline dönüştürebilecek biri varmı gercekten şirketim için cok işime yarayacak
ilgilenen olursa konuyu dahada açacam

 

[veysell]

mesala yaptıgım yazılım şu bi incelermisiniz