SumPer1 = 0
SumNed1 = 0
SumPer2 = 0
SumNed2 = 0
If bwbKontrol1 Then
For i = 25 To wbKontrol1.Worksheets("Total").UsedRange.Rows.Count
SumPer1 = SumPer1 + wbKontrol1.Worksheets.Item("Total").Cells(i, 6).Value
SumNed1 = SumNed1 + wbKontrol1.Worksheets.Item("Total").Cells(i, 5).Value
Next i
End If
If bwbKontrol2 Then
For v = 25 To wbKontrol2.Worksheets("Total").UsedRange.Rows.Count
SumPer2 = SumPer2 + wbKontrol2.Worksheets.Item("Total").Cells(v, 6).Value
SumNed2 = SumNed2 + wbKontrol2.Worksheets.Item("Total").Cells(v, 5).Value
Next v
End If
OPS.Worksheets.Item("Data input Wastes & Losses").Cells(30, 9 + (dDate - dFirstDate)).Value = SumPer1 + SumPer2
OPS.Worksheets.Item("Data input Wastes & Losses").Cells(31, 9 + (dDate - dFirstDate)).Value = SumNed1 + SumNed2


нули получаются, вместо значений из файла

я по F8 смотрела, нет значений в цикле, хотя фактически в файлах значения есть. причем цикл он не проходит даже, в чем причина понять не могу. то есть каждая строка по одному разу и спускается вниз по коду. поиск начинается со строки 25 до UsedRange.Rows.Count

это флаг, если файл существует

что вначале? обнуление?

откуда эти строки? bwbKontrol 1,2 это флаги, а wbKontrol 1,2 это сами файлы, тут все правильно.

это тоже работает, косяк где-то в самом цикле

Hugo121Хотя если не проходит цикл, значит wbKontrol1.Worksheets("Total").UsedRange.Rows.Count меньше 26 :)


первый раз он цикл проходит, но дальше благополучно из него выходит, а значение может быть в следующей строке. то есть получается, что по 25 строке он проходит в обоих файлах, там оказываются нули и в итоге он мне в отчет эти нули и заночит, хотя реально значения должны суммироваться по всем заполненным строкам по 5 и 6 столбцу

mКак для wbKontrol1(2) присвоено значение? Как объявлено? Есть ли On Error Resume Next в коде ?
Попробуйте в самой книге wbKontrol1(2) получить значение для
Worksheets.("Total").UsedRange.Rows.Count

Есть и обработка ошибок и с wbKontrol1(2) все в порядке, так как файлы открываются. почему-то не реагирует на Next i и Next j, поэтому и выводит нули. почему может не реагировать? может быть у меня сами циклы логически не правильно описаны?

Hugo121Так сколько wbKontrol1.Worksheets("Total").UsedRange.Rows.Count ?

а как посмотреть?

Oksana SlonevskayaHugo121Так сколько wbKontrol1.Worksheets("Total").UsedRange.Rows.Count ?

а как посмотреть?

первый проход как раз 25, второй раз цикл не проходит

так и должно быть 25, начинаем ведь с 25 строки, при втором проходе цикла была бы 26 и так далее, пока есть значения....

Hugo121wbKontrol1.Worksheets("Total").UsedRange.Rows.Count - это предел, к чему стремится i.
For i = 25 to 250
MsgBox i
Next


при всей отработке фойла выдавало сообщения, что i=25, опять же по тому, что цикл проходит только один раз. я не пойму - почему???? может быть next i,next v не в том месте стоит?