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

[Julit]

Если я правильно поняла, что надо делать, то я написала макрос, который называется proverka_ovd55. Посмотрите его, пожалуйста, что-то ругается на вторую функцию. Я сделала только для 3 раздела по Вашему примеру. Если я Вас правильно поняла, то подобным образом надо переделать для всех разделов???

[shanemac51]

исправьте
For str2 = 2 To 9
If zc(1, kol) < zc(str2, kol) Then
fpech "Ошибка в " & Str(kol) & " столбце " & Str(raz) & " раздела. Значение в строке " & Str(str2) & " должно быть >= Значению в строке " & Str(str2)

замените модуль 4

[Julit]

Чувствую себя полной блондик0 ((((

[shanemac51]

Public diffKol, diffStr, errStr
Public i, ilist, raz, kol, str2, summ, c
 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(51).Cells(errStr, 1) = Worksheets(ilist).Name
Worksheets(51).Cells(errStr, 2).Value =n1z
End Function
Sub proverka_ovd55()
errStr = 1 'номер строки ошибки
For ilist = 3 To 48

Worksheets(ilist).Activate
  fpech "----------------------"
Call Module3.proverka1 'выполняем проверку для каждого из листов с 3 по 48
  
 Next
' proverka_ovd Макрос
' Макрос записан 20.12.2010 (adm)
'
' Сочетание клавиш: Ctrl+Shift+Y
Worksheets(51).Activate
End Sub

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

Чувствую себя полной блондик0 ((((

зря , идея со смещением очень не плохая

[Julit]

Спасибо огромное за помощь... Сейчас пойду экспериментировать и проверять ошибки по листам. Если что - позже выйду снова...