Textboxlarda Toplama

[memduh]

Arkadaşlar 1 den 20 ye kadar olan textboxtan sadece son dolu 6 tanesinin toplamını textbox21 re aldıran makro var mı? saygılar.

 

[hamitcan]

Aşağıdaki şekilde toplam alabilirsiniz.

TextBox21 = TextBox15.Value+TextBox16.Value+.......+TextBox20.value

 

[memduh]

sayın hamitcan cevabınız için teşekkür ederim. Yalnız bu 20 textbox ın hepsi her zaman dolu olmıyacak ki 20 sinin hepsi her zaman dolu olsa haklısısnız
tekxboxlar içinde ilk 6 sı olabilir aradada olabilir son altı olabilir. saygılar.

 

[hamitcan]

sadece son dolu 6 tanesinin toplamını textbox21 re aldıran makro var mı? saygılar.

Sorunuzu son altı diye sorduğunuz için böyle bir kod yazdım.

Eğer bütün "textbox" değerlerini toplamak istiyorsanız, aşağıdaki şekilde deneyebilirsiniz.

Private Sub CommandButton1_Click()
For i = 1 To 20
TextBox21 = Val(Controls("textbox" & i)) + Val(TextBox21)
Next
End Sub

 

[Seyit Tiken]

Şöyle bir şeyde yapabilirsiniz, ne derece faydalı olacağını bilemeyecem. TextBoxlarınızı hücrelere bağlayın. Bunların toplamlarını bir hücrede gösterin ve TOPLAM'ın olduğu hücreyi de ilgili textboxa getirin.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim Toplam As Double
    Say = 0
    For X = 20 To 1 Step -1
    If Say = 6 Then GoTo Son
    If Controls("TextBox" & X) <> "" Then
    Toplam = Toplam + Controls("TextBox" & X).Value
    Say = Say + 1
    End If
    Next
Son: TextBox21 = Format(Replace(Toplam, ".", ","), "#,##0.00")
End Sub

 

[memduh]

Tüm cevap veren arkadaşlara teşekkür edrim. Sayın COST_CONTROL cevabınız tam istediğim gibi. birde bu textboxlardaki en son değeri nasıl balabiliriz. iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Yine üstteki mesajımdaki cevabımdaki mantıkla bulabilirsiniz.

Private Sub CommandButton1_Click()
    For X = 20 To 1 Step -1
    If Controls("TextBox" & X) <> "" Then GoTo Son
    Next
Son: TextBox21 = Controls("TextBox" & X)
End Sub

 

[celine]

Peki toplamın olduğu hücreyi textbox a nasıl getirebiliriz??

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde hücredeki bilgiyi TextBoxa alabilirsiniz.

TextBox1=Sheets("Sayfa1").Range("A1").Value

 

[slymn_ern]

Sorunuzu son altı diye sorduğunuz için böyle bir kod yazdım.

Eğer bütün "textbox" değerlerini toplamak istiyorsanız, aşağıdaki şekilde deneyebilirsiniz.

Private Sub CommandButton1_Click()
For i = 1 To 20
TextBox21 = Val(Controls("textbox" & i)) + Val(TextBox21)
Next
End Sub

butona değilde enter ve tab tuşuna basınca değişmesini istiyorsak nasıl yazmamız gerekiyor acaba bu kodu??

 

[hamitcan]

Anladığım kadarıyla, TextBox içinden çıkıldığında toplam almak istiyorsunuz.
Bunun için; TextBox_Exit olayını kullanmalısınız.

 

[poetisch]

Excel de yeni bir program yapmak istiyorum.Güzel bi projem var amaVBA da yeniyim uzman arkadaşlardan rica etsem bana yardımcı olabilirmi aceba? Hazır bişey istemiyorum..Birlikte yapalım çözmek istiyorum bu olayı...

 

[hamitcan]

Aşağıdaki linki incelemenizi öneririm.
http://www.excel.web.tr/forumdisplay.php?f=157

 

[poetisch]

inceledim hocam.Zaten VBA olayını da ilk oradan öğrendim.. Adres defteri yapımı çok güzeldi insanlar bişeyler yapınca haz duyuyo bende çok keyif aldım.
Yalnız benim projem biraz farklı birazda karmaşık bu yüzden yardım istemiştim..

 

[slymn_ern]

Anladığım kadarıyla, TextBox içinden çıkıldığında toplam almak istiyorsunuz.
Bunun için; TextBox_Exit olayını kullanmalısınız.

evet Textbox_Exit olayını diyorum fakat mesela textbox boş olunca hata veriyor, hata vermesin sadece uyarı versin ( boş geçemezsin gibi )

 

[hamitcan]

inceledim hocam.Zaten VBA olayını da ilk oradan öğrendim.. Adres defteri yapımı çok güzeldi insanlar bişeyler yapınca haz duyuyo bende çok keyif aldım.
Yalnız benim projem biraz farklı birazda karmaşık bu yüzden yardım istemiştim..

Siz projenize başlayın, yardımcı olacak arkadaşlar çıkacaktır.

 

[hamitcan]

evet Textbox_Exit olayını diyorum fakat mesela textbox boş olunca hata veriyor, hata vermesin sadece uyarı versin ( boş geçemezsin gibi )

Dosyanızı ekleyin.Bu şekilde cevap vermek zor.

 

[slymn_ern]

Konuyu Taşıdım

 

[poetisch]

Teşekkür ederim

Siz projenize başlayın, yardımcı olacak arkadaşlar çıkacaktır.

Teşekkür ederim hocam.Kolay gelsin..