textboxlarda çarpma

[fatih34]

iyi çalışmalar arkadaşlar
TextBox101 = Format(CDbl(TextBox151) * CDbl(TextBox152) * CDbl(TextBox2), "#,##0.00")
TextBox102 = Format(CDbl(TextBox151) * CDbl(TextBox152) * CDbl(TextBox4), "#,##0.00")
makro kodunu kullanarak 50 adetden oluşan textboxlardaki verileri çarpıp ilgili textboxlara yazdırıyorum
benim sorum useformda 50 adet textbox var formülde buna göre 50 adet yukarıdaki koddan oluşan formul var mesela 50 kişinin bilgilerini textboxlara veri girip çarpma yaptığım zaman işlem hata vermiyor ancak 10 kişinin versini girip işlem yapmak istedğim zaman 11.tetxboxa giderek hata uyarsı veriyor illa 50 kişinin verisni girip işlem yapmamaı istiyor bunu nasıl çözebilirim

 

[fatih34]

örnek çalışmayı göndermeyi unuttum ekte gönderiyorum

 

[kelkitli]

Selamlar,
Kodun başına

On Error Resume Next

yazarsanız hata vermemesi gerekir.

 

[Mahir64]

iyi çalışmalar arkadaşlar
TextBox101 = Format(CDbl(TextBox151) * CDbl(TextBox152) * CDbl(TextBox2), "#,##0.00")
TextBox102 = Format(CDbl(TextBox151) * CDbl(TextBox152) * CDbl(TextBox4), "#,##0.00")
makro kodunu kullanarak 50 adetden oluşan textboxlardaki verileri çarpıp ilgili textboxlara yazdırıyorum
benim sorum useformda 50 adet textbox var formülde buna göre 50 adet yukarıdaki koddan oluşan formul var mesela 50 kişinin bilgilerini textboxlara veri girip çarpma yaptığım zaman işlem hata vermiyor ancak 10 kişinin versini girip işlem yapmak istedğim zaman 11.tetxboxa giderek hata uyarsı veriyor illa 50 kişinin verisni girip işlem yapmamaı istiyor bunu nasıl çözebilirim

Merhaba

If TextBox2 <> "" Then TextBox101 = Format(CDbl(TextBox151) * CDbl(TextBox152) * CDbl(TextBox2), "#,##0.00")

 

[fatih34]

teşekkür ederim üstadlarım

 

[fatih34]

arkadaşlar verdiğiniz kodu denedim oldu ancak formun sonuna ara toplam ve genel toplam adlı textboxları ekledim örnek olarak 40 kişinin bilgilerini topladığım zaman ele geçen bölüme çıkan sonuç aktarılıyor ancak ara toplamlar işlem yapmıyor.ara toplamlar işlem yapmayınca genel toplamda da bir şey gözükmüyor bu konuda bir yardım ederseniz sevnirim.
ikincisi :26*0,059445*127=196,28 olarak yazdırmak istiyorum ancak 196.287,390 olarak sonuç çıkıyor
ikincisi sayfa 2deki katsyı ve tazminat puanını otomatik olarak frame1 deki textboxlara nasıl getirebilirim

 

[fatih34]

iyi akşamlar arkadaşlar bu konuda bir yardım yokmu

 

[fatih34]

arkadaşlar bu konuda bir yardım yokmu denedim ama olmadı

 

[sbayyigit]

arkadaşlar bu konuda bir yardım yokmu denedim ama olmadı

hesapla kodunu aşağıdaki ile değiştir


Private Sub CommandButton3_Click()
On Error Resume Next
aratoplam1 = 0
aratoplam1 = 0
say = 101
For f = 2 To 100 Step 2
Controls("Textbox" & say).Value = Format(CDbl(TextBox151) * CDbl(TextBox152) * CDbl(Controls("Textbox" & f)), "#,##0.00")
If say < 126 Then
aratoplam1 = aratoplam1 + CDbl(Controls("Textbox" & say))
Else
aratoplam2 = aratoplam2 + CDbl(Controls("Textbox" & say))
End If
say = say + 1
Next f

TextBox154 = aratoplam1
TextBox155 = aratoplam2
TextBox153 = Format(aratoplam1 + aratoplam2, "#,##0.00")

End Sub

 

[fatih34]

hocam teşekkür ederim bilginize ve emeğinize sağlık
ara toplamlara "#,##0.00" bunu uyguladım ama hata verdi nereye yazmam gerekiyor

 

[sbayyigit]

kodu şu şekilde değiştir

Private Sub CommandButton3_Click()
On Error Resume Next
aratoplam1 = 0
aratoplam1 = 0
say = 101
For f = 2 To 100 Step 2
Controls("Textbox" & say).Value = Format(CDbl(TextBox151) * CDbl(TextBox152) * CDbl(Controls("Textbox" & f)), "#,##0.00")
If say < 126 Then
aratoplam1 = aratoplam1 + CDbl(Controls("Textbox" & say))
Else
aratoplam2 = aratoplam2 + CDbl(Controls("Textbox" & say))
End If
say = say + 1
Next f
TextBox154 = Format(aratoplam1, "#,##0.00")
TextBox155 = Format(aratoplam2, "#,##0.00")
TextBox153 = TextBox154.Value + TextBox155.Value

End Sub