VBA. Нужно прокрутить цикл для нескольких листов книги

[Julit]

Всем привет!!! Вот моя задачка. Я скинула в архиве папочку 180 форма. В ней находится файлик prog_ter1.xls. В этом файлике 51 лист. Работает все это безобразие следующим образом:
1. На втором листе нажимаем кнопку "загрузить", и листы 3-48 заполняются данными. Данные находятся в файликах, которые лежат в папочке 180 форма:\temp
2. Нажимаем там же кнопочку "рассчитать", происходит расчет итоговой формочки, которая находится на первом листе, т.е. все данные с листов 3-48 помещаются на первый лист и там суммируются.
3. Нажимаем кнопочку "проверка". Происходит проверка правильности загруженных данных первого листа.
4. "выгрузка". Эта кнопочка нам не нужна.

А теперь сама задача:

1. Создать кнопку "проверка_овд" и к ней привязать макрос, который будет выполнять проверку не первого листа, а каждого листа с 3 по 48 и выдавать ошибки в следующем виде:
"Ошибка в столбце 1 раздела 1. Значение в строке 1 должно быть = строка1 + строка3 - строка10
Лист Самарский"
"Ошибка в столбце 1 раздела 1. Значение в строке 1 должно быть = строка1 + строка3 - строка10
Лист Ленинский"
и т. п.
И помещать все эти ошибки на лист 51.

2. Я пробовала создавать уже этот макрос. Его можно посмотреть в макросах. Это "proverka_ovd" или "proverka1_ovd" или "proverka2_ovd" - там разные варианты моих попыток.

3. Главная фишка, очень облегчающая задачу в том, что макрос "proverka" - это тот, который работает для первого листа одинаков для всех остальных листов также и в нем ничего не стоит менять, кроме того, что удалить проверку для 9 и 10 разделов, т.к. в листах овд этих данных нет!!!

4. Мне нужно прокрутить макрос "proverka" с 3 по 48 лист и выдать все ошибки на лист 51, или, если ошибок нет, то там бы появилась запись: "ошибок нет".

Т.е. на мой скромный взгляд юзера цикл должен работать следующим образом:
Выбрали лист 3 => проверили на наличие ошибок => выписали найденные ошибки на лист 51 => написали имя листа => перешли к следующему листу.

Если кто-то может помочь - напишите, пожалуйста!!! Задача очень срочная и важная. Если необходимо материальное вознаграждение, то в этом вопросе тоже проблем никаких нет. Только помогите!!!

Еще была идея создания такого простенького макроса. Т.к. макрос proverka у нас уже есть и он адекватно работает, то может быть стоит создать цикл, в котором эта процедура будет вызываться такое число раз, сколько листов в нашей книге. Т.е. получилось у меня в итоге следующее:

Sub proverka_ovd()
errStr = 1
For Each iList In Worksheets
Call Module1.proverka
i = i + 1
If Worksheets(51).Cells(errStr, 1).Value = 0 Then
Worksheets(51).Cells(errStr, 2).Value = "Ошибка на листе " & iNameList & Chr(10) & iList.Name
End If
Next
' proverka_ovd Макрос
' Макрос записан 20.12.2010 (adm)
'
' Сочетание клавиш: Ctrl+Shift+Y
'
End Sub

Но этот макрос не работает. В чем я ошибаюсь??? Что мне еще нужно учесть??? И кроме того этот макрос писался для каждого листа книги, а нужно, чтобы он выполнялся только для 3-48 листов...

[VictorM]

так можно перебрать нужные листы

Sub proverka_ovd()
    For iList = 3 To 48
        Worksheets(iList).Activate
        'Необходимые действия
    Next
End Sub

скорее всего, можно обойтись и без Activate, не вникал в работу кода проверки

[Julit]

Спасибо огромное за такой совет...

Теперь смотрите, что у меня получилось. Я переписала макрос. Во-первых, чтобы не исправлять работающий макрос proverka (proverka выводит данные на второй лист, а нам же ошибки нужны на 51), я создала макрос proverka1 и переписала код макроса proverka:

Sub proverka_ovd()
errStr = 1 'номер строки ошибки
For iList = 3 To 48
Worksheets(iList).Activate
Call Module3.proverka1 'выполняем проверку для каждого из листов с 3 по 51
If Worksheets(51).Cells(errStr, 1).Value <> 0 Then 'Начинаем заполнять имя листа. Если
'появилась ошибка, т.е. в строке 1 в столбце 1 есть данные, то надо писать название листа.
Worksheets(51).Cells(errStr, 2).Value = "Ошибка на листе " & iList.Name 'этой строчкой как раз
'название листа и задаем и в ней ошибка.
End If
Next
' proverka_ovd Макрос
' Макрос записан 20.12.2010 (adm)
'
' Сочетание клавиш: Ctrl+Shift+Y
'
End Sub

Выдает ошибку в строке, где я пытаюсь выдать название листа... В чем я неправа???

[VictorM]

Worksheets(51).Cells(errStr, 2).Value = "Ошибка на листе " & Worksheets(iList).Name

[Julit]

Код выполняется, ошибок по коду не выдает, но и ошибки на листах совсем даже не пытается искать. ПОЧЕМУ??? Никак не могу понять этот вопрос. Я же вызываю процедуру проверки, в которой все четко указано: что и где писать надо. А в завершении выдает ошибку на 48 листе. Я понимаю, что он на нем остановился и поэтому его и написал, а как-нибудь можно избежать этого???
Прикрепила последний вариант того, что у меня в итоге вышло окончательно:

[shanemac51]

вы темр то каждый раз не гоняйте, ждать скачки 15 минут -- не .....

[Julit]

Довела до ума свой макросик. Осталась одна маленькая проблемка. Смотрим, что у нас получается на листе, где мы выводим ошибки - лист 51. В строке 1 столбец 1 у нас записываются ошибки, которые пороверка находит на листе, в 2 строке столбец 1 у нас выдается название листа, на котором эти ошибки сделаны. Проблема в том, что в 1 столбце у нас под ошибки выделяется только одна строчка на лист, если же на листе больше 1 ошибки, то записывается только та, которая найдена последней - как эту проблему решить??? Помогите, пожалуйста, довести задачку до конца!!!!
Кстати, на втором листе появилась кнопочка "ошибки райотделов", к которой привязан мой многострадальный макросик )))

[shanemac51]

читабельность не более 2 баллов
если оставить вашу схему смещений, то посмотрите вариант

Dim diffKol, diffStr, errStr
'''''''''''''''''''''''''''''''
Function zc(zstr, zkol)
Dim ss
ss = Cells(zstr + diffStr, zkol + diffKol).Value
If ss = "" Then ss = 0
End Function
'''''''''''''''''''''''''''''''
Function fpech(n1z)
 errStr = errStr + 1
 Worksheets("zpech").Cells(errStr, 1) = Excel.ActiveSheet.Name
Worksheets("zpech").Cells(errStr, 2).Value = "Ошибка в строке " & Str(i - diffStr) & " раздела 3. Значение в столбце 1 должно быть >= значения в столбце 2"
       
End Function
''''''''''''''''''''''''''''''''''''''''''''
Sub proverka()

'............................
'раздел 3
raz = 3
diffKol = 5
diffStr = 139

For i = 1 To 13
    If zc(i, 1) < zc(i, 2) Then
        fpech "Ошибка в строке " & Str(i ) & " раздела 3. Значение в столбце 1 должно быть >= значения в столбце 2"
    End If
Next i
For kol = 1 To 2
    For str2 = 2 To 9
     If zc(1, kol)  < zc(str2, kol) Then
        fpech "Ошибка в " & Str(kol) & " столбце " & Str(raz) & " раздела. Значение в строке " & Str(str1) & " должно быть >= Значению в строке " & Str(str2)
      End If
      Next str2
     If zc(10, kol) <> zc(11, kol) + zc(12, kol) + zc(13, kol) Then
        fpech "Ошибка в " & Str(kol) & " столбце 3 раздела. Значение в строке 10 должно быть = сумме строк c 11 по 13"
     End If
Next kol

'раздел4

[Julit]

Спасибо за код, но можно объяснить его словами??? А то я с функциями что-то запуталась совсем... (((

[shanemac51]

функция zc -значение ячейки со смещениями
функцмя fpech -печать некого текста в ячейке листа ошибок, которому дала имя zpech, и имя проверяемого листа

и пара объявления переменных