Birden fazla TextBox'ta toplama

[teksen]

Arkadaşlar merhaba,

TextBox40,41,42,43,44,45,46,47,48 ve 49 içindeki rakamsal değerler girildikçe veya değiştiği anda TextBox50'ye yazmasını istiyorum.Bunu Class Module kullanmadan nasıl yapabilirim?

Şimdiden teşekkürler.

 

[Orion1]

Arkadaşlar merhaba,

TextBox40,41,42,43,44,45,46,47,48 ve 49 içindeki rakamsal değerler girildikçe veya değiştiği anda TextBox50'ye yazmasını istiyorum.Bunu Class Module kullanmadan nasıl yapabilirim?

Şimdiden teşekkürler.

Ben sadece textbox40'ın change olayına yazdım .Siz textbox49'a kadar diğer textbox'larında change olayına aşağıdaki kodları yazınız.

Private Sub TextBox40_Change()
Dim i As Byte, toplam As Double
For i = 40 To 49
    If IsNumeric(Controls("TextBox" & i).Value) Then
        toplam = toplam + CDbl(Controls("Textbox" & i))
    End If
Next
TextBox50 = Format(toplam, "#,##0.00")
End Sub

 

[teksen]

Teşekkür ederim Sn.Orion2

Bir sorunum daha var,

Bu işlemlerin yanında TextBox60'da yazan değerin aynı şekilde TextBox61'e geçmesini istiyorum.

Hangi kodu kullanmalıyım acaba?

 

[Orion1]

Teşekkür ederim Sn.Orion2

Bir sorunum daha var,

Bu işlemlerin yanında TextBox60'da yazan değerin aynı şekilde TextBox61'e geçmesini istiyorum.

Hangi kodu kullanmalıyım acaba?

Aşağıdaki gibi olacak.

Private Sub TextBox60_Change()
TextBox61.Value = TextBox60.Value
End Sub

 

[teksen]

Yardımlarınız için teşekkür ederim.

Elinize sağlık,sağolun