Textbox ta eğerli işlem yapma

[Yesilyurtlu]

If ComboBox2 = "Gerçek Gelir" Then
TextBox18 = Format(CDbl(TextBox15) * CDbl(TextBox16), "#,##0.00") * 0.08
If ComboBox2 = "Basit Gelir"
Then TextBox18 = Format(CDbl(TextBox15) * CDbl(TextBox16), "#,##0.00")

Yukarıda ki işlem hatam için yardımcı olabilir misiniz?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

select case ComboBox2
case "Gerçek Gelir"
TextBox18 = Format(CDbl(TextBox15) * CDbl(TextBox16), "#,##0.00") * 0.08
case "Basit Gelir"
TextBox18 = Format(CDbl(TextBox15) * CDbl(TextBox16), "#,##0.00")
end select

 

[sonsuzkalp]

selamlar sayın uzman arkadaşlar bu işlemi örnek bi dosya ile belirtirseniz faydalanan olur diye düşünüyorum

 

[Yesilyurtlu]

Levent Abi Ellerine Sağlık Teşekkür Ederim

 

[Levent Menteşoğlu]

Rica ederim Sn Yesilyurtlu.

selamlar sayın uzman arkadaşlar bu işlemi örnek bi dosya ile belirtirseniz faydalanan olur diye düşünüyorum

Sn sonsuzkalp

Select-case deyiminin kullanımına yönelik olarak aşağıdaki makaleleri inceleyebilirsiniz.

http://www.excel.web.tr/f60/select-case-end-select-kavramlar-305-t50591.html

http://www.excel.web.tr/f60/if-then-else-elseif-select-case-t3621.html

 

[sonsuzkalp]

Teşekkürler Levent Hocam

İyi Çalışmalar