Userformdaki textboxlarda toplamların alınması

[sedat2161]

Hayırlı sabahlar arkadaşlar ekli dosyamda bulunan puantaj sayfasındaki ilgili toplamları textboxta görünmesi mümkün mü acaba. Yardımlarınızı bekliyorum.

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim sonsat As Long, sh As Worksheet
Set sh = Sheets("Puantaj")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
TextBox1.Value = Format(WorksheetFunction.Sum(sh.Range("AM9:AM" & sonsat)), "##0.00")
TextBox2.Value = Format(WorksheetFunction.Sum(sh.Range("AO9:AO" & sonsat)), "##0.00")
TextBox3.Value = Format(WorksheetFunction.Sum(sh.Range("AP9:AP" & sonsat)), "##0.00")

End Sub

 

[sedat2161]

Buyurun.

Private Sub UserForm_Initialize()
Dim sonsat As Long, sh As Worksheet
Set sh = Sheets("Puantaj")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
TextBox1.Value = Format(WorksheetFunction.Sum(sh.Range("AM9:AM" & sonsat)), "##0.00")
TextBox2.Value = Format(WorksheetFunction.Sum(sh.Range("AO9:AO" & sonsat)), "##0.00")
TextBox3.Value = Format(WorksheetFunction.Sum(sh.Range("AP9:AP" & sonsat)), "##0.00")

End Sub

Sayın orion hocam kodu denedim toplam aldı çok teşekkür ederim.
-- Bu toplamı unutmuşum bunuda alabilirse çok iyi olur.
--- B9 da bulunan kişilerin sayısının toplamı almam gerekiyor. Excel hücresindeki formül şekildi =BAĞ_DEĞ_DOLU_SAY(B9:B150) yardımlarınızı bekliyorum.

 

[Orion1]

Kodların en altına yazınız.

TextBox4.Value = Format(WorksheetFunction.CountA(sh.Range("B9:B" & sonsat)), "##0")

 

[sedat2161]

Kodların en altına yazınız.

TextBox4.Value = Format(WorksheetFunction.CountA(sh.Range("B9:B" & sonsat)), "##0")

Hocam emeğinize sağlık kodu uyguladım çok iyi oldu. Çok teşekkür ederim.