textbox'ta toplama işlemi

[ferhatgurbuz]

textbox42'ye toplam alsın textbox31 ila textbox 41 deki değerleri

 

[hamitcan]

Bir düğme oluşturun. Aşağıdaki kodu içine ekleyin. Yada hangi olaya bağlamak istiyorsanız kodu o olayın içine ekleyin.

Private Sub CommandButton2_Click()
For i = 31 To 41
topla = Val(Controls("textbox" & i)) + topla
TextBox42 = topla
Next
End Sub

 

[ferhatgurbuz]

ya ben formda sorgu çalıştır diyorum 41 tane textbox açılıyor. sorgudan sonra acılan textboxları buton olmadan toplayamaz mıyız

 

[Korhan Ayhan]

Selamlar,

Bu işlemi Class Modüle uygulaması ile rahatlıkla yapabilirsiniz.


Çalışmanızdaki Class2 modülüne aşağıdaki kodu uygulayın.

Public WithEvents Txt As MSForms.TextBox

Private Sub Txt_Change()
    Dim TOPLAM As Double
    For X = 31 To 41
    If UserForm3.Controls("TextBox" & X) <> "" Then TOPLAM = TOPLAM + UserForm3.Controls("TextBox" & X)
    Next
    UserForm3.TextBox42 = Format(TOPLAM, "#,##0.00")
End Sub

UserForm3 isimli formunuzun kod sayfasının en başına aşağıdaki kodu uygulayın.

Bu satır kodların en üstünde olmalıdır.

Dim Txt() As New Class2

Alttaki kodlarıda yine formunuzun kod sayfasında alt tarafa uygulayın.

Private Sub UserForm_Initialize()
    ReDim Preserve Txt(45)
    For X = 31 To 41
    Set Txt(X).Txt = Controls("TextBox" & X)
    Next
End Sub

 

[ferhatgurbuz]

teşekkür ederim. ellerinize sağlık.

 

[ferhatgurbuz]

ya arkadaşlar textbox44 te arama yapmak için değer giriyorum. bu textbox boş iken bir uyarı versin istiyorum

 

[ferhatgurbuz]

ya arkadaşlar taksit taksit oluyor ama kusura bakmayın. Kendim bakarak uyarlarım diye düşünmüştüm. Bu kez textbox43'e toplam alsın textbox15 ila textbox 30 daki değerleri

 

[ferhatgurbuz]

arkadaşlar bir el atalım lütfenn

 

[ferhatgurbuz]

textbox toplamında hata veriyor

textbox43 teki toplama formülünde hata veriyor. birde ondalıklı gözükmüyor

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[ferhatgurbuz]

sanırın yanlış olmuş. Tekrar bir bakabilirmiyiz. Ele geçenle bürüt tutar karışmış sanırım. Yani ele geçen 851,66 brüt tutar 1262 olacaktı

 

[Korhan Ayhan]

Selamlar,

Yanlış olan nedir? Açıklarmısınız.

 

[ferhatgurbuz]

Ele geçen formülü ile Brüt tutar formülleri yer değiştirecek. Yani ele geçen 851 bürüt tutar 1262 olacak

 

[Korhan Ayhan]

Selamlar,

Üsteki mesajımdaki dosyada gerekli düzeltmeleri yaptım. İncelermisiniz.

 

[ferhatgurbuz]

dosyayı göremedim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyayı yeniden üstteki mesajıma ekledim. İncelermisiniz.

 

[ferhatgurbuz]

TeŞekkÜr Ederİm. Sİzlerede Zahmet Oldu. Hayirli ÇaliŞmalar