Butonsuz (otomatik olarak) textbox'ta toplam ve ortalama

[teknadir]

Ekte gönderdiğim dosyada;
Programa Giriş/Tabela Giriş düğmesi ile açılan formda Tabela Mevcudu kısmında yazdığım sayıları "Mevcut Belirle" butonu ile hesaplıyordum. Bu butona basmadan ilgili kutulara veri girişi yapıldıkça toplama ve ortalama alınmasını nasıl sağlayabilirim.

 

[ynmcan]

Ekte gönderdiğim dosyada;
Programa Giriş/Tabela Giriş düğmesi ile açılan formda Tabela Mevcudu kısmında yazdığım sayıları "Mevcut Belirle" butonu ile hesaplıyordum. Bu butona basmadan ilgili kutulara veri girişi yapıldıkça toplama ve ortalama alınmasını nasıl sağlayabilirim.

Syn. Teknadir;
Bir modüle aşağıdaki makroları kaydedin.

Sub aktar1()
With UserForm1
.STPLM = Val(.SYTL) + Val(.SOM) + Val(.SHZM) + Val(.SPARA)
.ORT = (Val(.STPLM) + Val(.ATPLM)) / 2
End With
End Sub

Sub aktar2()
With UserForm1
.ATPLM = Val(.AYTL) + Val(.AOM) + Val(.AHZM) + Val(.APARA)
.ORT = (Val(.STPLM) + Val(.ATPLM)) / 2
End With
End Sub

Daha sonra ilgili textboxların Change bu makroları ekleyin.

Private Sub SYTL_Change()
aktar1
Sheets("tabela").Range("E5").Offset = SYTL.Text
End Sub

Ekteki dosyayı inceleyin.

 

[teknadir]

Teşekkürler...