kod birleştirme

[Fuat Şirin]

arkadaşlar alttaki textbox6_change olayına
textbox15 için hazırladım işlemide eklemek istiyorum
yardım ederseniz sevinirim


Private Sub TextBox6_Change()
deg1 = IIf(TextBox6 = "", 0, TextBox6)
deg2 = IIf(TextBox12 = "", 0, TextBox12)
TextBox16 = Format(Replace(CDbl(deg1) - CDbl(deg2), ".", ","), "#,##0.000")
End Sub
TextBox15 = Format((CDbl(deg1) - CDbl(deg2) / CDbl(deg1)), "#,##0.00 %")

 

[xxcell]

Private Sub TextBox6_Change()
deg1 = IIf(TextBox6 = "", 0, TextBox6)
deg2 = IIf(TextBox12 = "", 0, TextBox12)
TextBox16 = Format(Replace(CDbl(deg1) - CDbl(deg2), ".", ","), "#,##0.000")
End Sub
TextBox15 = Format((CDbl(deg1) - CDbl(deg2) / CDbl(deg1)), "#,##0.00 %")

End Sub'un altına değil üstüne eklemeniz lazım :mrgreen:

[COLOR="Red"]Private Sub TextBox6_Change()
deg1 = IIf(TextBox6 = "", 0, TextBox6)
deg2 = IIf(TextBox12 = "", 0, TextBox12)
TextBox16 = Format(Replace(CDbl(deg1) - CDbl(deg2), ".", ","), "#,##0.000")[/COLOR]
[COLOR="Blue"]TextBox15 = Format((CDbl(deg1) - CDbl(deg2) / CDbl(deg1)), "#,##0.00 %")[/COLOR]
[COLOR="Red"]End Sub[/COLOR]

 

[Fuat Şirin]

öle yapıyorum hocam
ama hata veriyor
end sub un üstüne ekleyeceğimi biliyorum
ama araya bir tetikleci mi yazılacak yada neden almıyor
bunu öğrenmek istedim

 

[zafer]

Merhaba

Textbox6 0 ise sıfıra bölüm hatası verir.Kodların başına On error resume next yazın.Ayrıca sizin formülünüzü bilemiyorum fakat Kırmızı parantezler olması gerekir diye düşünüyorum

TextBox15 = Format(((CDbl(deg1) - CDbl(deg2)) / CDbl(deg1)), "#,##0.00 %")

 

[Fuat Şirin]

sn Zafer
tam olarak isteğim bu işimi çözdü tşk ederim