sayfalardaki veri toplamı

[marimar]

merhaba arkadaşlar userform'daki textbox'a excell dosyasında ne kadar sayfa varsa hepsinin a1 hücresindeki sayıların toplamını almak istiyorum.
nasıl yapabilirim
teşekkürler...

 

[Ayhan Ercan]

Merhaba

Private Sub CommandButton1_Click()
Dim i As Integer, x As Long
For i = 1 To Sheets.Count
x = x + Sheets(i).[a1].Value
Next
TextBox1.Value = x
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub UserForm_Initialize()
Dim i As Integer
TextBox1 = Empty
For i = 1 To Sheets.Count
TextBox1 = Val(TextBox1) + Sheets(i).Range("a1")
Next
End Sub

 

[marimar]

teşekkürler arkadaşlar peki belirli bir hücreyi değil de bir aralığı toplamak istersek ne yapmak gerekiyor.

Private Sub UserForm_Initialize()
Dim i As Integer
TextBox1 = Empty
For i = 1 To Sheets.Count
TextBox1 = Val(TextBox1) + Sheets(i).Range("a1:b10")
Next
End Sub

şeklinde yaptım ama olmadı
teşekkürler.

 

[Ayhan Ercan]

teşekkürler arkadaşlar peki belirli bir hücreyi değil de bir aralığı toplamak istersek ne yapmak gerekiyor.

şeklinde yaptım ama olmadı
teşekkürler.

Merhaba, Aşağıdaki gibi deneyiniz...

Private Sub UserForm_Initialize()
Dim i As Integer
TextBox1 = Empty
For i = 1 To Sheets.Count
[COLOR=blue]TextBox1 = Val(TextBox1) + WorksheetFunction.Sum(Sheets(i).Range("a1:b10"))
[/COLOR]Next
End Sub