Merhaba, aslında çalışan kod bir süre sonra N= olarak başlayan satırda "division by zero" hatası vermeye başladı. Bu kod aslında düzgün çalışıyordu, ben başka komut butonları ile çalışırken sonradan bu hata ile karşılaştım. CB6 değerini sıfır görüyor diye düşündüğümden CDbl(CB6.Value) olarak tanımladım fakat çözüm olmadı. Yardım rica ediyorum.
Private Sub CMB1_Click()
Dim Q, P, G, HAG, N, e, S, v As Double
Const Z As Integer = 50
Q = CB1.Value
P = TB1.Value
G = TB2.Value
HAG = TB12.Value
e = CDbl(CB6.Value)
v = CB5.Value
S = (Q * 1) + (P * 1) + (Z * 1) - (G * 1)
TB13.Value = S
S = TB13.Value
N = Replace(Round((Val(TB13) * Val(CB5)) / (102 * Val(CB6)), 2), ".", ",")
TB14.Value = N
End Sub
Private Sub CMB1_Click()
Dim Q, P, G, HAG, N, e, S, v As Double
Const Z As Integer = 50
Q = CB1.Value
P = TB1.Value
G = TB2.Value
HAG = TB12.Value
e = CDbl(CB6.Value)
v = CB5.Value
S = (Q * 1) + (P * 1) + (Z * 1) - (G * 1)
TB13.Value = S
S = TB13.Value
N = Replace(Round((Val(TB13) * Val(CB5)) / (102 * Val(CB6)), 2), ".", ",")
TB14.Value = N
End Sub