Toplama

Katılım
21 Mart 2005
Mesajlar
200
Excel Vers. ve Dili
Ofiice 2013
selam arkadaşlar.
B sutununda bulunan sayılardan son altı tanesinin toplamınaltıya bölümünden çıkan sonucu textbox a nasıl alırım. makrosunu bir türlü bulamadım. saygılar
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Aşağıdaki örneği inceler misiniz?

Private Sub CommandButton1_Click()
son = [b65536].End(3).Row
If son <= 6 Then
topla = WorksheetFunction.Sum(Range("b1" & ":" & "b" & son))
Else
topla = WorksheetFunction.Sum(Range("b" & son - 5 & ":" & "b" & son))
End If
TextBox1 = topla/6
End Sub
 
Son düzenleme:
Üst