• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

TextBox toplama işlemi

  • Konbuyu başlatan Konbuyu başlatan macay
  • Başlangıç tarihi Başlangıç tarihi
M

macay

Katılım
27 Ekim 2006
Mesajlar
119
Excel Vers. ve Dili
excel 2007-Türkçe
Sayın Üstadlar,
Ekte bu forumdan yararlanarak yaptığım başlangıç aşamasında bir userform var, bu formda txtmik1,txtmik2,.........txtmik10 alanlarını txtmik11 alanına toplatmak istiyorum ama beceremedim. ayrıca comboBox alanına girdiğim kodlarda sanırım çok acemice daha kısa nasıl yazılır bilmiyorum, dediğim gibi hepsini bu forumdan toplayıp yaptım, kendi yorumumla ancak bu çıktı değerli üstadlar bir bakıp nasıl düzeltebileceğimi kısaca söylermisiniz.

Saygılarımla,
 

Ekli dosyalar

macay' Alıntı:
Sayın Üstadlar,
Ekte bu forumdan yararlanarak yaptığım başlangıç aşamasında bir userform var, bu formda txtmik1,txtmik2,.........txtmik10 alanlarını txtmik11 alanına toplatmak istiyorum ama beceremedim. ayrıca comboBox alanına girdiğim kodlarda sanırım çok acemice daha kısa nasıl yazılır bilmiyorum, dediğim gibi hepsini bu forumdan toplayıp yaptım, kendi yorumumla ancak bu çıktı değerli üstadlar bir bakıp nasıl düzeltebileceğimi kısaca söylermisiniz.

Saygılarımla,
Genişletmek için tıkla ...

sorunuzun yanıtı
txtmik10'dan çıktığınız anda otomatik txtmik11'de toplayacaktır.
Kod: 
Private Sub TxtMik10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
diğer sorunuzun bu konu ile alakası yok lütfen yeni konu açarak sorunuz
 
Sayın ihsan Bey,

Yaptığım userform 10 tane textbox içeriyor ama her yapılan üretimde 10 tane malzeme kullanılmıyor, bazen 4 hammadde ile bitirilebiliyor üretim, o zamanda txtmik10 kutusuna kadar gitmekmi gerekiyor yani txtmik1 kutucuğuna miktar girilince ister 4 kutu ister 10 olsun aşağıda toplam almak için ne yapmak gerekiyor

Saygılarımla,
 
Son düzenleme:
şimdi şöyle söyliyeyim belli bir standartı yok ise bunu kod bir şekilde tanıtmak gerekiyor ya herbirine buna benzer bir kod yazacağız yada enson işlemi o textboxta yapacaksınız
 
macay' Alıntı:
Sayın ihsan Bey,

Yaptığım userform 10 tane textbox içeriyor ama her yapılan üretimde 10 tane malzeme kullanılmıyor, bazen 4 hammadde ile bitirilebiliyor üretim, o zamanda txtmik10 kutusuna kadar gitmekmi gerekiyor yani txtmik1 kutucuğuna miktar girilince ister 4 kutu ister 10 olsun aşağıda toplam almak için ne yapmak gerekiyor

Saygılarımla,
Genişletmek için tıkla ...

userform'un kod bölümüne
Kod: 
Private Sub TxtMik1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value)
End Sub
Private Sub TxtMik2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value)
End Sub
Private Sub TxtMik3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value)
End Sub
Private Sub TxtMik4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value)
End Sub
Private Sub TxtMik5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value)
End Sub
Private Sub TxtMik6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value)
End Sub
Private Sub TxtMik7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value)
End Sub
Private Sub TxtMik8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value)
End Sub
Private Sub TxtMik9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value)
End Sub
Private Sub TxtMik10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
bu kodu girerek dener misiniz
 
İhsan Tank' Alıntı:
şimdi şöyle söyliyeyim belli bir standartı yok ise bunu kod bir şekilde tanıtmak gerekiyor ya herbirine buna benzer bir kod yazacağız yada enson işlemi o textboxta yapacaksınız
Genişletmek için tıkla ...

Kod: 
Private Sub TxtMik1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub
Private Sub TxtMik10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TxtMik11 = Val(TxtMik1.Value) + Val(TxtMik2.Value) + Val(TxtMik3.Value) + Val(TxtMik4.Value) + Val(TxtMik5.Value) + _
Val(TxtMik6.Value) + Val(TxtMik7.Value) + Val(TxtMik8.Value) + Val(TxtMik9.Value) + Val(TxtMik10.Value)
End Sub

bu şekilde yaptım oldu ama doğrumu ?
 
İhsan Üstad, Siz cevabı vermişsiniz zaten çok teşekkür ederim

Saygılarımla,
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst