makro ile seçilen hücrelerin toplanması

[senel34]

Merhaba,

oluşturduğum userform dan girilinen tarihe göre sorgu yapıldığında
bulunan kayıtlardan N sutununda bulunan rakamları toplayıp, sonucu
textbox a yazdırmak istiyorum.

Toplatma işlemini bir türlü yapamadım.
Ligilenen tüm Arkadaşlara teşekkürler..
Saygı ile....

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.
Private Sub CommandButton1_Click()
TextBox1 = WorksheetFunction.Sum([n1:n1000])
End Sub

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub

 

[senel34]

burda n kolunundaki sayıların tamamını topluyor.
Ama bana buda lazımdı. İlginize Teşekkür ederim.
Asıl yapmak istediğim n kolonunda seçilen hücrelerin
değerlerini makro ile toplatıp textbox a yazdırmak istiyorum.
(Yani sayfa içerisinde formül olarak "Alttoplam" ın yaptığı gibi
seçilen hücre değerlerini toplatmak istiyorum.)
Teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Private Sub CommandButton1_Click()
Range(RefEdit1).Select
TextBox3 = WorksheetFunction.Sum(Selection)
End Sub
Private Sub TextBox3_Change()
TextBox3 = Format(TextBox3, "#,##0.00")
End Sub

 

[senel34]

Teşekkür Ederim