Userform ile toplama işlemi - yardım

[Emre Çinkılınç]

Herkese iyi çalışmalar, kolay gelsin. Ekte sunduğum excel listesinde B4 hücresinden başlayarak aşağıya doğru inen sayıların (ne kadar ineceği belli değil mümkünse sonu olmasın) userform ile ekrana gelen pencerede topla dediğimizde aşağısında küçük bir yere toplam sonucunu verebilecek şekilde yapabilecek bilgili abilerimizden yardım istiyorum. Yapabilen olursa çok sevinirim ve teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
TextBox1.Value = 0
TextBox1.Value = WorksheetFunction.Sum(Range("B4:B" & Cells(Rows.Count, "B").End(xlUp).Row))

End Sub

 

[Emre Çinkılınç]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
TextBox1.Value = 0
TextBox1.Value = WorksheetFunction.Sum(Range("B4:B" & Cells(Rows.Count, "B").End(xlUp).Row))

End Sub

Ellerinize sağlık üstad. İnanın çok makbule geçti. Allah razı olsun

 

[Orion1]

Ellerinize sağlık üstad. İnanın çok makbule geçti. Allah razı olsun

Rica ederim.
İyi çalışmalar.

 

[Emre Çinkılınç]

Rica ederim.
İyi çalışmalar.

Üstad yeni bir şey daha istiyorum müsaitsen eğer. O verdiğin çok güzel oldu ancak başka toplamlarda gerekti.. Ben yine ekte sunuyorum userformu biraz daha genişlettim. Bu sefer her sütundaki bölümleri yine tek tık ile toplayabilmek mümkün mü acaba? Userform da yerlerini açtım ama yapamadım..

 

[Orion1]

Üstad yeni bir şey daha istiyorum müsaitsen eğer. O verdiğin çok güzel oldu ancak başka toplamlarda gerekti.. Ben yine ekte sunuyorum userformu biraz daha genişlettim. Bu sefer her sütundaki bölümleri yine tek tık ile toplayabilmek mümkün mü acaba? Userform da yerlerini açtım ama yapamadım..

Dosya ektededir.

Private Sub CommandButton1_Click()
Dim i As Byte, sonsat As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To 18
    Me.Controls("TextBox" & i) = WorksheetFunction.Sum(Range(Cells(4, i + 2), Cells(sonsat, i + 2)))
Next
End Sub

 

[Emre Çinkılınç]

Dosya ektededir.

Private Sub CommandButton1_Click()
Dim i As Byte, sonsat As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To 18
    Me.Controls("TextBox" & i) = WorksheetFunction.Sum(Range(Cells(4, i + 2), Cells(sonsat, i + 2)))
Next
End Sub

Gerçekten harikasınız.. Söylenecek söz yok. Böyle bilgilerinizi bizlere aktardığınız için ayrıca çok teşekkür ediyorum. Allah razı olsun. İyi çalışmalar.

 

[Orion1]

Gerçekten harikasınız.. Söylenecek söz yok. Böyle bilgilerinizi bizlere aktardığınız için ayrıca çok teşekkür ediyorum. Allah razı olsun. İyi çalışmalar.

Rica ederim.
İyi çalışmalar.