Userformda Toplam Nasıl Yapılır?

[metbes]

Arkadaşlar user form üzerindeki 3 adet textbox a (G1:G400) , (H1:H400) , (I1:I400) Toplamlarını alıp göstermek istiyorum. Bunu nasıl yapabiliriz?


Saygılarımla,

 

[mami68]

Denermisiniz.
TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)

 

[mami68]

Yoksa her textbox ayrı toplam mı yapacak.

 

[metbes]

Sayın Mami,

Benim istediğim Sayfa1 deki I2 ile I400 arasındaki tüm sayıların toplamının Commandbuttona basarak TextBox1 e getirilmesi. Umarım anlatabildim. Ve aynısı G ve H dede olacak onlarda textBox2 ve textbox3 e gelecek.

 

[mami68]

Ornek 1:Siz önce G2-de =Toplam(G3:G1000)

H2-de=Toplam(H3:H1000)


I2-de=Toplam(I3:I1000) Yazdıktan doğrudan formda toplamlar görünecek.
Siz bunu denerken ben ikinci bir formül gönderecem.

Private Sub UserForm_Initialize()
TextBox1.Text = Sheets("Sayfa1").Range("G2")
TextBox2.Text = Sheets("Sayfa1").Range("H2")
TextBox3.Text = Sheets("Sayfa1").Range("I2")
End Sub

 

[fedeal]

Istediginiz bumu

Private Sub CommandButton1_Click()
TextBox1 = WorksheetFunction.Sum(Sayfa1.Range("ı2:ı400"))
TextBox2 = WorksheetFunction.Sum(Sayfa1.Range("g2:g400"))
TextBox3 = WorksheetFunction.Sum(Sayfa1.Range("h2:h400"))
End Sub

 

[fedeal]

Private Sub CommandButton1_Click()
TextBox1 = WorksheetFunction.Sum(Sayfa1.Range("ı2:ı400"))
TextBox2 = WorksheetFunction.Sum(Sayfa1.Range("g2:g400"))
TextBox3 = WorksheetFunction.Sum(Sayfa1.Range("h2:h400"))
End Sub

TextBox1 = WorksheetFunction.Sum(Sayfa1.Range("ı1:ı400"))
TextBox2 = WorksheetFunction.Sum(Sayfa1.Range("g1:g400"))
TextBox3 = WorksheetFunction.Sum(Sayfa1.Range("h1:h400"))

kırmızı olan yerleri düzeltin soruyu yalnış okumuşum.

 

[metbes]

Private Sub CommandButton1_Click()
TextBox1 = WorksheetFunction.Sum(Sayfa1.Range("ı2:ı400"))
TextBox2 = WorksheetFunction.Sum(Sayfa1.Range("g2:g400"))
TextBox3 = WorksheetFunction.Sum(Sayfa1.Range("h2:h400"))
End Sub

sayın fedeal,

tam istediğim buydu elinize kolunuza ve beyninize sağlık.
verdiğim uğraştan dolayı tekrardan özür dilerim.


Saygılarımla,

 

[fedeal]

ricaederim yardım edebildiysem ne mutlu iyi calışmalar.

 

[cihan41]

TextBox1 = WorksheetFunction.Sum(Sayfa1.Range("ı1:ı400"))
TextBox2 = WorksheetFunction.Sum(Sayfa1.Range("g1:g400"))
TextBox3 = WorksheetFunction.Sum(Sayfa1.Range("h1:h400"))

kırmızı olan yerleri düzeltin soruyu yalnış okumuşum.

Hocam benzer bir soruda ben sorsam?
exel içerisinde a19:a5000 arası satırları labele nasıl alt toplam olarak
(bu satırların alttoplamını alacak) yazdırabilirim?
şimdiden teşekkürler

 

[fedeal]

textboxa degilde labellemi yazdırmak istiyorsunuz.öyleyse

Label1.Caption = WorksheetFunction.Sum(Sayfa1.Range("a19:a5000"))

birde arkasına şu şekilde notta ekleyebilirsiniz.

Label1.Caption = WorksheetFunction.Sum(Sayfa1.Range("a19:a5000")) & " sütunların toplamı "

 

[metbes]

Private Sub CommandButton1_Click()
TextBox1 = WorksheetFunction.Sum(Sayfa1.Range("ı2:ı400"))
TextBox2 = WorksheetFunction.Sum(Sayfa1.Range("g2:g400"))
TextBox3 = WorksheetFunction.Sum(Sayfa1.Range("h2:h400"))
End Sub

Hocam başka bir dosya daha bu toplamı kullanmak istedim ama malesef çalışmadı hata veriyor neden olabilir.
Verdiği hata run time error '424'
object required

 

[fedeal]

TextBox1 = WorksheetFunction.Sum(data.Range("ı2:ı400"))

kırmızı olan bölgeyi sayfaya sizin verdiginiz ismi girmeyin

microsoft excel objects
Sayfa1(data)
Sayfa2(veri)
Sayfa3(satış)

toplama yapacagınız sayfa dataysa örnegin sayfa1 diye yazın.
TextBox1 = WorksheetFunction.Sum(sayfa1.Range("ı2:ı400"))

sorun büyük ihtimalle bundan

 

[metbes]

TextBox1 = WorksheetFunction.Sum(data.Range("ı2:ı400"))

kırmızı olan bölgeyi sayfaya sizin verdiginiz ismi girmeyin

microsoft excel objects
Sayfa1(data)
Sayfa2(veri)
Sayfa3(satış)

toplama yapacagınız sayfa dataysa örnegin sayfa1 diye yazın.
TextBox1 = WorksheetFunction.Sum(sayfa1.Range("ı2:ı400"))

sorun büyük ihtimalle bundan

Evet hocam sorun oradan deneme yaparak bulmuştum ama gene de cevap verdiğiniz için çok teşekkür ederim.

 

[fedeal]

Ricaederim iyi çalışmalar

 

[metbes]

Ricaederim iyi çalışmalar

Hocam siteyi ve diğer siteleri inceledim ama istediğimi bulamadım. Ben sayfa 1 e girdiğim tüm verileri bir tane commandbutton ile silmek istiyorum ama button şifreli olacak. Buna göre elinizde veya bilginizde bir kod varmı?

 

[fedeal]

işinizi görür umarım kullanıcı: 1 şifre:1

 

[fedeal]

buformu formunuz üzerindeki butona baglarsanız istediginizi yapar. bu soruyu başka bir konuda acsaydınız diger arkadaşlarda ulaşabilirdi iyi calışmalar.

 

[metbes]

işinizi görür umarım kullanıcı: 1 şifre:1

Hocam Saol inan bunu bulabilmek için Tam bir gün boyunca sorgu ve sayfa karıştırdım. Şimdi bunu benim userformu ma yerleştirmek kaldı. Ama onu yaparım diye düşünüyorum. Eline beynine sağlık hocam.

 

[fedeal]

rica ederim iyi calışmalar