Спаси алермо

[sereggga]

произошла невероятнейшая вещь, менял нормально работающий макрос, предварительно скинув код в текстовый файл, добавил массив что то не пошло решил вернуться, вставил код из блокнота макрос перестал работать, либо зависает и пише Runtime error 1004 либо cann't exute code in break mode
вот исходник

Sub Macros()



pplan = 0 ' planovuy rasxod
pfact = 0 ' factucheskiy rasxod
dplan = 0 ' planovuy doxod
dfact = 0 ' factucheskiy doxod

i = 4

m = Range("B3").Value
fin = Cells(i, 6).Value

Do While fin <> "Итог"

If m = "р" Then pplan = pplan + Cells(i, 10).Value
If m = "р" Then pfact = pfact + Cells(i, 11).Value
If m = "д" Then dplan = dplan + Cells(i, 10).Value
If m = "д" Then dfact = dfact + Cells(i, 11).Value

i = i + 1

m = Cells(i, 2).Value
fin = Cells(i, 6).Value

Loop


Worksheets("Лист2").Activate


Range("K2").Value = pplan



End Sub




указывает на строку

m = Cells(i, 2).Value

если ее закоментить то на
fin = Cells(i, 6).Value

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

разрешал доступ к VBA

[Hugo121]

В 6-ом столбце активного листа точно есть "Итог"?
Посмотрите, что в i при зависании - может уже дошло до конца листа.

[VictorM]

Глянуть бы на сам файл, что там за данные.

[sereggga]

есть там итог, и в остальных столбцах все символы искомые есть