DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.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.
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
Aşağıdaki gibi olacak.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?
Private Sub TextBox60_Change()
TextBox61.Value = TextBox60.Value
End Sub