Textboxlardan hücrelere toplattırma

[Ayhan Ercan]

selam arkadaşlar.
TextBoxlarımı hücrelere bağladım. Bunların toplamlarını bir hücrede göstermek ve TOPLAM'ın olduğu hücreyi de ilgili textboxa getirmek istiyorum.

herşeyi istediğim gibi oluyor ancak;

textboxlara yazdığım değerlerin formatlarını (#,##0.00 YTL) yaptığım zaman bunlarda ilgili hücrelere "sayı biçimi"nde girmediği için hücreleri toplamaya çalıştığım ilgili hücre TOPLAM almıyor.

nasıl bişey yapmalıyım ki textboxlara yazdığım (#,##0.00 YTL) formatındaki değerleri hücrelere verirken hücrelerde "sayı biçimini" muhafaza etsin?

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil uygulayınız

Private Sub CommandButton1_Click()
[A1] = Val(TextBox1)
[A2] = Val(TextBox2)
[A1].NumberFormat = "#,##0.00"
[A2].NumberFormat = "#,##0.00"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00 YTL")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "#,##0.00 YTL")
End Sub

 

[Ayhan Ercan]

teşekkür ederim sayın n.ziya hiçdurmaz.

bu konuda bişey daha sorabilirmiyim? bahsettiğim textboxlar 30 - 35 adet kadar. yani bu kodu ortalama 30-35 textbox için yazmaya calışırken bir kısa yolu varmıdır yoksa bu kodları teker teker yazayımmı hocam?

 

[Ayhan Ercan]

For i = 1 to 30
["A" & i] = Val("TextBox" & i)
["A" & i].NumberFormat = "#,##0.00"
next i

şeklinde bi uygulama yaptım. sanırım bu işime yarayacaktır. ama yinede üstadalrımızdan bu işin daha kolay ve daha kısa bi şekli varsa bilgilenmek için görüşlerini ve tavsiyelerini bekliyorum.. teşekkürler