Здравствуйте!
При написании макроса возникла такая проблема: нужно найти в таблице строку с определенным текстом (текст является частью формулы) и для этой строки выполнить некоторые действия.
Пишу в упрощенном варианте следующее:
iRow1 = 1
iRow2 = 100
For i = iRow1 To iRow2
Set Klass = Cells(i, 1).Find(What:="Фактического количество", LookAt:=xlPart)
If Klass Is Nothing Then
Cells(i, "L") = "K1"
Else
Cells(i, "L") = "K2"
End If
Next
и код ничего не находит... :-(
Причем структура кода скопирована из этого же макроса, где прекрасно работала, а тут почему-то оказывается... Подскажите, пожалуйста, в чем дело!
При написании макроса возникла такая проблема: нужно найти в таблице строку с определенным текстом (текст является частью формулы) и для этой строки выполнить некоторые действия.
Пишу в упрощенном варианте следующее:
iRow1 = 1
iRow2 = 100
For i = iRow1 To iRow2
Set Klass = Cells(i, 1).Find(What:="Фактического количество", LookAt:=xlPart)
If Klass Is Nothing Then
Cells(i, "L") = "K1"
Else
Cells(i, "L") = "K2"
End If
Next
и код ничего не находит... :-(
Причем структура кода скопирована из этого же макроса, где прекрасно работала, а тут почему-то оказывается... Подскажите, пожалуйста, в чем дело!
