combobox ın hesaba dahil edilmesi

[reelabuzer]

s.a iyi geceler arkadaşlar

userform üzerinde bir yerde bir hesaplama yaptırmam gerekiyor ve bir yere kadar da yapıyorum ama hesaplamaya combobox daki seçenekler de dahil olmalı
iki tane textboxum var bunlar daki textleri sayıya çeviriyorum ve şartlara bağlı olarak işlemi yaptırıyorum

If TextBox12.Value = True Then
If TextBox11.Value = True Then

txtKOPYA.Text = urn_adt / koli_adt
End If
End If

burası tam istediğim gibi çalışıyor ama bu işleme combodan seçeceğim seçenek te etkili olmalı

copmboboxta sırasıyla

ComboBox1.AddItem ("4 lü etiket")
ComboBox1.AddItem ("8 li etiket")
ComboBox1.AddItem ("12 li etiket")
ComboBox1.AddItem ("Bilgi etiketi.")
ComboBox1.Text = "Etiket seçiniz"
item ler var burada combodan ilk seçeneği seçtiğimde
txtKOPYA.Text = urn_adt / koli_adt / 4

ikinciyi seçtiğimde
txtKOPYA.Text = urn_adt / koli_adt / 8
gibi olmalı nasıl yapabilirim yardımcı olursanız sevinirim
ilgilenen arkadaşlara şimdiden teşekkürler

 

[İhsan Tank]

iyi ama bir tane önek dosya olsa daha iyi olmaz mıydı_?

 

[reelabuzer]

haklısınız kusura kalmayın göndermeliydim ama dikkatsizlikten gözümden kaçmış olmalı yinede ilginize cok teşekkürler bu arada istediğimi halletmeyi başardım

txtKOPYA.Text = urn_adt / koli_adt / Val(ComboBox1.Text)

satırı bu şekilde düzenleyince halloldu

yalnız sonucun gösterildiği textbox formatınla ilgili bir sorun var küsuratlı göstemesini istemiyorum sonucu aşağı yuvarlamalı bu konuda yardımcı olursanız sevinirim şimdiden teşekkürler

 

[halit3]

kodun ilgili bölümünü aşağıdaki ile değiştiriniz.

txtKOPYA.Text = WorksheetFunction.Floor(urn_adt / koli_adt / Val(ComboBox1.Text), 0.01)

yada

txtKOPYA.Text = Round(urn_adt / koli_adt / Val(ComboBox1.Text), 2)