sayfaları toplama

[quesh]

arkadaşlar merhaba.

a=sheets.count
for i=2 to a

tüm aktif sayfalardaki a1 hücrelerini topla
sonucu sayfa1'in a1 hücresine yazdır


bu kodu nasıl yazabilrim? teşekkürler

 

[Ömer]

Merhaba,

Toplamadan önce Sayfa1 A1 hücresi silinmeyecekse mavi satırı silersiniz.

Sub Topla()
Dim i As Integer, S1 As Worksheet
Set S1 = Sheets("Sayfa1")
[COLOR=blue]S1.[A1].ClearContents
[/COLOR]For i = 1 To Worksheets.Count
    With Sheets(i)
        If .Name <> "Sayfa1" Then
            S1.[A1] = S1.[A1] + .[A1]
        End If
    End With
Next i
End Sub

.

 

[quesh]

Ömer Bey, teşekkür ederim .
ben çok iyi bilmediğim için aşağıdaki kod gibi birşeyler düşünmüştüm. ama bu olmadı tabi ki . peki eğer bu şekilde bu mantıkla hareket etmiş olsaydımn. kodu nasıl düzenleyebilirdim ?

Private Sub CommandButton1_Click()
a = Sheets.Count
For i = 2 To a
b=SUM(Sheets(i):sheets(a)!RC)
Sheets(1).Range("a1") = b
Next i
End Sub

 

[Ömer]

Bu şekilde olabilir.

Private Sub CommandButton1_Click()
sonsyf = Sheets(Sheets.Count).Name
ilksyf = Sheets(2).Name
Sheets(1).[A1] = "=SUM(" & "'" & ilksyf & ":" & sonsyf & "'!A1)"
End Sub

.

 

[Ömer]

Tek sayfada hata vermemesi için, sayfa kontrolü de yapmakta fayda var.

Private Sub CommandButton1_Click()
[COLOR=blue]If Not Sheets.Count > 1 Then Exit Sub[/COLOR]
sonsyf = Sheets(Sheets.Count).Name
ilksyf = Sheets(2).Name
Sheets(1).[A1] = "=SUM(" & "'" & ilksyf & ":" & sonsyf & "'!A1)"
End Sub