Textboxta Islem Yapma

[pelin5353]

Merhaba,

Textbox182'ye, 8 textbox degeri arasinda islem yapip toplam aldiriyorum. Ancak bu toplam isleminin sadece textbox96_exit olayi ile olmasi yerine; textboxlarin hangisinde degisiklik yaparsam yapayim textbox182 degeri aninda degismesi gerekiyor.


Private Sub TextBox96_exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next

TextBox182 = (Val(TextBox95) * Val(TextBox96) + Val(TextBox95) * Val(TextBox98) + Val(TextBox99) * Val(TextBox100) + Val(TextBox101) * Val(TextBox102))

Simdiden yardimlariniz icin cok tesekkurler..,!!

 

[Orion1]

toplama yaptığınız diğer textbox'ların exit olayına textbox96 'nın exit olayında yazdığınız kodları yazınız.

 

[pelin5353]

Aslinda bahsettigim, textbox ( 95-96-97-98-99 vs ) de degisiklik yaparsam textbox 96 ya gerek kalmadan islemin sonucunun textbox182'de degismesi..Mesela yukardaki makroda diger textboxlarda degisiklik yapsam bile degisikligin yansimasi icin textbox96'ya girip cikmam gerekiyor..Buna gerek kalmamasi ve degisikligin yapildigi textboxtan cikar cikmaz sonucun degismesi gerekiyor..

 

[Orion1]

Dağa önce belirttiğim mesajımdaki cevap aynen geçerlidir.

toplama yaptığınız diğer textbox'ların exit olayına textbox96 'nın exit olayında yazdığınız kodları yazınız.

 

[pelin5353]

200 textbox var !! Biraz uzun surecek ama baska bi yolu yoksa mecburum sanirim..Tesekkur ederim.

 

[Orion1]

Ama 200 textbox var !! Biraz uzun surecek .. baska bi yolu yok mu ?

yalnızca toplama yaptığınız textbox'lara kodu yazınız.200 textbox'ıda topluyormusunuz?

 

[pelin5353]

Hayir hepsini toplamiyorum ama deger girdigim 200 textbox var.. girdigim her degerin yansimasi gerekiyor..Neyse tesekkur ederim .. Cok sagolun

 

[abtani]

Orion2 hocam,
User form üzerinde bulunan numaraları 1,4,7,10,...61,64,67,70 numaralı toplam 24 tane textboxda bulunan 0.00,00 formatındaki sayıları toplayıp textbox74 içerisinde 0.00,00 formatında gösterebilmem için nasıl bir makroyu nereye yazmalıyım.

 

[Orion1]

Orion2 hocam,
User form üzerinde bulunan numaraları 1,4,7,10,...61,64,67,70 numaralı toplam 24 tane textboxda bulunan 0.00,00 formatındaki sayıları toplayıp textbox74 içerisinde 0.00,00 formatında gösterebilmem için nasıl bir makroyu nereye yazmalıyım.

Aşağıdaki kodları kendi dosyanıza göre uyarlayınız.

dim sayi1,sayi2,sayi3,sayi4 as single
sayi1=textbox1.value
sayi2=textbox2.value
sayi3=textbox3.value
sayi4=textbox4.value
Textbox5.value=format(sayi1+sayi2+sayi3+sayi4,"#,##0.00")

 

[abtani]

Makroyu dediğiniz gibi düzenledim de,bunu nereye neyin içine yazmalıyım.
Dim sayi1, sayi4, sayi7, sayi10,...., sayi67, sayi70 As Single ye kadar gitmelimidir.:yardim:

 

[Orion1]

Makroyu dediğiniz gibi düzenledim de,bunu nereye neyin içine yazmalıyım.
Dim sayi1, sayi4, sayi7, sayi10,...., sayi67, sayi70 As Single ye kadar gitmelimidir.:yardim:

Evet gitmelidir.
Bu kodları bir commandbuton'a atayabilirsiniz.

 

[abtani]

Private Sub CommandButton1_Click() ve End Sub içine dediğinizi uyguladım ve
" Run-time error '13' Type mismatch " şeklinde bir hata veriyor.

 

[Orion1]

Private Sub CommandButton1_Click() ve End Sub içine dediğinizi uyguladım ve
" Run-time error '13' Type mismatch " şeklinde bir hata veriyor.

Textbox'larda yazarken bir hata yapmış olablirsiniz.Kontrol ediniz.Ve olmazsa dosyanızı ekleyiniz.

 

[abtani]

Ekledim Sayın Orion2;

 

[Korhan Ayhan]

Selamlar,

Sn. abtani aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    For X = 1 To 70 Step 3
    If Not IsEmpty(Controls("TextBox" & X)) And IsNumeric(Controls("TextBox" & X)) Then
    TOPLAM = TOPLAM + CDbl(Controls("TextBox" & X))
    End If: Next
    TextBox74 = Format(TOPLAM, "#,##0.00")
End Sub

 

[Levent Menteşoğlu]

Hayir hepsini toplamiyorum ama deger girdigim 200 textbox var.. girdigim her degerin yansimasi gerekiyor..Neyse tesekkur ederim .. Cok sagolun

Sorunuz için class module en uygun çözümdür, uygulama için dosyanızı ekleyin. Birde 200 textboxun isimlerinin sıralı gitmeside kodlamayı kısaltacaktır.

 

[abtani]

Sayın COST_CONTROL verdiğiniz kod ile toplam alabiliyorum,teşekkür ederim.Müsade ederseniz bir şey daha öğrenmek istiyorum.Bu textboxların isimleri üçer üçer artmasa idi ,gelişigüzel textboxlar olsaydı ise bu durumda toplam alma işi nasıl olabilirdi? Saygılarımla

 

[pelin5353]

Merhaba,

Dosyanin bir ornegi ekte..Veriler sol tarafta toplamlar ise sag tarafta yer aliyor.. en son dolar kuruna bolunuyor..

 

[Korhan Ayhan]

Selamlar,

Sn. pelin5353,

Ekte Sn. leventm beyin bahsettiği Class Modules uygulamasını bulabilirsiniz. Sanırım kendi dosyanıza uyarlayabilirsiniz. Eğer sorun yaşarsanız bildirin yardımcı olmaya çalışırız.

 

[pelin5353]

Sn. Cost Control,

Oncelikle ilginiz icin sagolun..Acikcasi Class module hakkinda hic bilgim yok.. burdakileri sadece toplama islemi olsaydi benim dosyama uyarlardim ama carpma ve bolme islemleri de yapmak zorunda oldugum icin biraz karistirdim sanirim. en azindan 1 toplam formulunu gosterebilirseniz onun uyarlamasini yaparim ama.