VBA Exсel В одной и той-же ячейке на каждом листе есть определенная цифра, нужно сделать подсчет за последние семь дней, то есть за последние семь листов.

[2dm]

Дано: куча листов (каждый лист это день недели) в одной книге.
Много формул.
В одной и той-же ячейке на каждом листе есть определенная цифра,
нужно сделать подсчет за последние семь дней, то есть за последние семь листов.
всё что нашел на просторах рунета это:
Sub Заработок()
Dim x, i As Long
For i = 1 To Sheets.Count
x = x + Sheets(i).[A29]
Next
MsgBox (x)
End Sub

но он считает по всем листам(

[Aleksandr H.]

For I = sheets.count -7 to sheets.count ....

[2dm]

Aleksandr H., Святой вы человек! Спасибо работает)
а нельзя ли сделать так что бы оно считало от активной страницы минус 7 дней?

[Elixi]

Сообщение от 2dm

а нельзя ли сделать так что бы оно считало от активной страницы

от активного листа...

Sub Заработок()
    Dim x, i As Long, AShO As Long
    
    '   определяем очередь активного листа
    For i = 1 To Sheets.Count
        If Sheets(i).Name = ActiveSheet.Name Then
            AShO = i
            Exit For
        End If
    Next
    
    '   считаем
    If AShO - 6 < 1 Then
        MsgBox "наверно знаете почему непосчитать..."
        Exit Sub
    Else
        For i = AShO - 6 To AShO
            x = x + Sheets(i).[A29]
        Next
        MsgBox (x)
    End If
    
End Sub

[Aleksandr H.]

Сообщение от Elixi

' определяем очередь активного листа

 For i = 1 To Sheets.Count
        If Sheets(i).Name = ActiveSheet.Name Then
            AShO = i
            Exit For
        End If
    Next

=

AShO = Activesheet.Index

Не?

[Elixi]

Сообщение от Aleksandr H.

Код:

AShO = Activesheet.Index

Не?

Вот видите, об этом не знал, так что спасибо за уроки Aleksandr H.