YTL'ye göre Textboxlarda toplam

[mars2]

İyi Günler;

user form üzerinde bulunan 5 adet textbox bulunmakta, textbox5'de textbox1 +textbox2+textbox3+textbox4'deki Yeni Türk Lirasına göre toplamları makro ile nasıl olur.

Textbox5. Value = Val(Textbox1. Value)+Val(Textbox2. Value) tam sayıya göre topluyor.

Private Sub TextBox1_Change()
Textbox5. Value = Ccur(Textbox1. Value)+CCur(Textbox2. Value)
End Sub

olduğunda da hata vermektedir.

Cevabınız için şimdiden teşekkürler

 

[Haluk]

Nokta - Virgül probleminden dolayı mı olmuyor?

 

[mars2]

Sayın Raider,

Textbox1'e 100,25
Textbox2'e 100,02
Textbox3'e 100,10
Textbox4'e 100,35
Textbox5'de toplam olarak
400,72 olarak gözücek.
Sorun YTL göre olacak
Teşekkürler

 

[Haluk]

Aşağıdakini kendinize göre uyarlamayı deneyin.

3 adet TextBox var, CommandButton1' e basınca TextBox1 ve TextBox2 toplamı TextBox3 içinde görülecek.

[vb:1:64af94b59e]Private Sub CommandButton1_Click()
x = WorksheetFunction.Substitute(TextBox1, ",", ".")
y = WorksheetFunction.Substitute(TextBox2, ",", ".")
z = Val(x) + Val
z = WorksheetFunction.Substitute(z, ".", ",")
TextBox3 = z
End Sub
[/vb:1:64af94b59e]

 

[BeyazGölge]

Sayın Raider WorksheetFunction.Substitute 'nin tam olarak yaptığı nedir.
Yani textboxdaki ,lerimi kaldırıyor yoksa format komutu gibi değişkenlerin bir format içine girmesinemi yarıyor ?

 

[Haluk]

@BeyazGölge;

Ã?rnek olarak, aşağıdaki satırda;

x = WorksheetFunction.Substitute(TextBox1, ",", ".")

VBA'nin hesap yapabilmesi için; TextBox1 nesnesine girilen değer içindeki virgülleri nokta ile değiştiriyor ve sonucu "x" değişkenine atıyor.

 

[mars2]

Sayın Raider;

x = WorksheetFunction.Substitute(TextBox1, ",", ".")

VBA'nin hesap yapabilmesi için; TextBox1 nesnesine girilen değer içindeki virgülleri nokta ile değiştiriyor ve sonucu "x" değişkenine atandığını belirmiştiniz.
Ancak Sayfa1'deki A11 hücresinde S18 ila S23 arasındaki hücreleri aşağıdaki makro ile toplanmakta, şimdi ise kuruşlu toplamda nasıl olacak? yukarda verdiğiniz makroyu uyarlama yaptığımda hata vermekte. Þimdiden teşekkürler.
[A11] = WorksheetFunction.Sum(Range("S18:S23"))