Makro koduna sayfa sınırı konulabilir mi?

[assenucler]

Dostlar iyi geceler.

Ekli dosyanın makro koduyla "Sayfa2,Sayfa3,Sayfa4,Sayfa5,Sayfa6 ve Sayfa7" altı adet sayfadaki verilerin sütun ve satırlarındaki kayıtları Sayfa8 (Toplam) sayfasındaki sütun ve satırları içinde toplatıyorum.

İstediğim, yukarıdaki sayfalara daha sonra eklediğim (örneğin 9,10,11,12 vb. diğer tüm sahifelerdeki) verilerin kesinlikle Sayfa8(Toplam) sayfasındaki toplama dahil edilmemesidir.

Makro kodunda nasıl bir düzenleme yapmak gerekiyor?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub Toplam()
Dim syf As Worksheet, tpl As Worksheet
Dim bak As Range
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer
Set tpl = Worksheets("TOPLAM")
tpl.Range("C7:O91").ClearContents
For Each syf In Worksheets
    For a = 7 To 90
        For b = 3 To 14
[COLOR=red]            If syf.Index < 7 Then
[/COLOR]                If syf.Name <> "TOPLAM" Then
                    tpl.Cells(a, b).Value = tpl.Cells(a, b).Value + Sheets(syf.Name).Cells(a, b).Value
                End If
[COLOR=red]            End If
[/COLOR]        Next b
    Next a
Next syf

For c = 3 To 14
    For d = 7 To 90
        tpl.Cells(91, c).Value = tpl.Cells(91, c).Value + tpl.Cells(d, c).Value
    Next d
Next c

For e = 7 To 91
    For f = 3 To 14
        tpl.Cells(e, 15).Value = tpl.Cells(e, 15).Value + tpl.Cells(e, f).Value
    Next f
Next e
MsgBox "İşlem Tamamlandı.", 64, "Bilgi"
End Sub

 

[assenucler]

Değerli üstadım iyi geceler.

Sorunum bu ekleme ile çözüldü. İlginiz ve yanıtınız için teşekkürler.

Sevgi ve saygılar.