textbox değerinin sayfaya aktarılması

[kemal turan]

merhaba,
Userform üzerindeki textboxlar arası hesaplamayı bu kod ile yapıyorum. Sıkıntı yok.

Sub hesap()

For i = 42 To 61
If Controls("textbox" & i) <> "" And Controls("textbox" & i + 20) <> "" Then
Controls("textbox" & i + 40) = Controls("textbox" & i) * Controls("textbox" & i + 20)
End If
Next
For k = 82 To 101
A = A + Val(Controls("textbox" & k))
Next
TextBox102 = Format(A, "#,###.00")

End Sub

fakat aşağıdaki kod ile sayfaya veriyi kayıt ettiğimde
2113,38 şeklinde olması gereken sayı hücrede 211.338,00 olarak görünüyor.

For i = 82 To 101
        sonsatir = S2.Range("N65536").End(xlUp).Row + 1
        If Controls("TextBox" & i) <> "" Then
        S2.Cells(sonsatir, 14) = CDbl(Controls("TextBox" & i).Value) * 1
        End If
    Next i

 

[vardar07]

Merhaba . TextBox'lara virgüllü değer girerken virgül yerine nokta ile deneyin sonuç ne çıkacak.

 

[kemal turan]

Merhaba sn.Vardar hocam
Elle Yazılan textboxların aktarımında sorun görünmüyor.
Textboxlar sıralıdır.
Textbox42 ile textbox62 çarpım sonucu textbox82 de görünüyor.
Sonuç doğru hatta 82 ile 101 arası toplamıda 102 de doğru görebiliyorum.
Ama sayfaya aktardıģımda 82 101 arası textbox değerleri hatalı formatta görülüyor.
Tlf.dan yazıyorum hata varsa kusura bakmayın

 

[kemal turan]

Merhaba

S2.Cells(sonsatir, 14) = format (val(Controls("TextBox" & i).value, "#,##0.00") *1

Sorunu çözdü.
Teşekkürler