Userform üzerinden toplama ve çıkarma yapmak

[İsmail Küçükşengün]

Merhabalar;

Userform üzerindeki TextBoxlarla;

TextBox 1, 2, 3, 4 ün Toplamı TextBox.5'e kendiliğinden yazılması,

TextBox5. ten TextBox.6 nın çıkarılması TextBox.7.ye yazılması için Kodlar nasıl olmalıdır. (Formatı 123,50 gibi) olması gerekli.

Şimdiden teşekkürler.

 

[airborne]

ekteki dosayı kendinize göre düzenleyin

textboxın 123,50 formatı içinde

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(Val(TextBox7.Value), "#,##0.00")
End Sub

kodunu kullanın

 

[İsmail Küçükşengün]

Sn. Airborne,

İlgine teşekkür ederim.Verdiğiniz güzel bir örnek.

Fakat yukarıda da yazdığım gibi, birkaç TextBox.ta bir takım sayılar var.
Bu sayılar excel sayfasındaki belirli hücrelerden, kendiliğinden TextBox.lara gelmekte. Benim isteğim bu textBoxlardaki sayıların (herhangibir butona basmadan) kendiliğinden Toplam miktarı veya çıkarma miktarını (kendiliğinden) yazması.

 

[Levent Menteşoğlu]

Ekte class module kullanarak hazırladığım dosyayı inceleyin.

 

[İsmail Küçükşengün]

Sn. Leventm;

Cevabınıza çok teşekkür ediyorum. Bundan 8-10 ay evvel excel'e ilk başladığımda, bana exceli ilk sevdiren sizdiniz. (Yani excelde ilk göz ağrım.)

Yalnız, formatı mesela 12000,00 yerine, nasıl 12.000,00 olarak düzeltebiliriz. (Veriler "hesap" adlı sayfadan kendiliğinde geliyorsa, sayfayı nasıl tanımlarız.)

Selam ve saygılarımla,

 

[İsmail Küçükşengün]

Sn. Leventm;

Örneğinizi tabii ki acemilikten (bayağı uğraştıktan sonra) çalışmama uyguladım.

Format kısmını da hallettim.

Aşağıdaki kodları uyguladım:

Clas Modüle:

Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
If IsNumeric(txt) = False Then
SendKeys "{bs}"
Exit Sub
End If
For a = 9 To 13
deg = UserForm8.Controls("textbox" & a)
If UserForm8.Controls("textbox" & a) = "" Then deg = 0
topla = deg * 1 + topla
Next
UserForm8.TextBox14 = Format(topla, "#,##0.00")
End Sub

Userforma:

Private Sub txt_Change()
If IsNumeric(txt) = False Then
SendKeys "{bs}"
Exit Sub
End If
For a = 9 To 13
deg = UserForm8.Controls("textbox" & a)
If UserForm8.Controls("textbox" & a) = "" Then deg = 0
topla = deg * 1 + topla
Next
UserForm1.TextBox14 = Format(topla, "#,##0.00")
End Sub

kodlarını yazarak form.8 deki 1. sayfadaki sorunumu hallettim.


Sorum:

Form.8de 4 sayfam daha var. Bu sayfalarda da bu şekilde toplama
yaptırmam gerekli.

Her sayfa için ayrı ayrı mı clas modül kullanacağız.
Yani yukarıdakine benzer, 4 clas modül daha mı kullanayım, veya
bu clas modülün içine diğer sayfalara ait textboxları mı tanıtayım.

Şimdiden Teşekkürlerimi sunuyorum. :hey:

 

[Levent Menteşoğlu]

Her sayfa için ayrı ayrı mı clas modül kullanacağız.

Öyle gibi görünüyor. Ama kesin cevap için dosyanızı eklermisiniz.

 

[İsmail Küçükşengün]

Sn. Leventm.

Teşekkürler.

Dosya çok hacimli. 5. mb. gibi.

Nasıl göndereyim.

 

[Levent Menteşoğlu]

Dosyanızdaki tüm konu dışı kodları ve sayfaları silerek ekleyebilirsiniz.

 

[İsmail Küçükşengün]

Sn. Levent bey;

Dediğiniz gibi dosyanın ilgili formu ektedir.

Açıklama da dosyadadır.

Şimdiden teşekkürlerimle.

 

[İsmail Küçükşengün]

Sn. Leventm.

Özür dilerim. Bundan önce gönderdiğim dosyada, başka sayfalarla
irtibatı olduğu için form açılmıyormuş.

Yeniden düzenleyip ekte gönderiyorum.

Şimdiden Teşekkürlerimle...

 

[beykatip]

Levent bey zıp dosyasını çalışır durumda tekrar yüklerseniz biz acemilerde bir şeyler öğreniriz dosyanız çalışmıyor

 

[haldunc]

ekteki dosayı kendinize göre düzenleyin

textboxın 123,50 formatı içinde

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(Val(TextBox7.Value), "#,##0.00")
End Sub

kodunu kullanın

Buradaki dosya neden indirilemiyor? Bu dosya lazım bana!!

 

[Korhan Ayhan]

Foruma yapılan saldırıda 2008 ve önceki yıllardaki konulardaki linkler çalışmamaktadır.