Добрый день!, выдает ошибку Compile error: variable not defined
Я поменял местаим части кода
Подскажите корректно макрос будет работать ?
Код |
---|
For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row If Cells(i, 7) = "TNK" Or Cells(i, 7) = "RST" Or Cells(i, 7) = "TY" Then Cells(i, 10) = "SS" Next Dim i As Long Dim iLastRow As Long iLastRow = Cells(Rows.Count, "B").End(xlUp).Row For i = iLastRow To 1 Step -1 If Cells(i, 7) = 1 And Cells(i, 8) < 2500 Then Rows(i).ClearContents Next |
Я поменял местаим части кода
Код |
---|
Dim i As Long Dim iLastRow As Long iLastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = iLastRow To 1 Step -1 If Cells(i, 7) = "TNK" Or Cells(i, 7) = "RST" Or Cells(i, 7) = "TY" Then Cells(i, 10) = "SS" Next iLastRow = Cells(Rows.Count, "B").End(xlUp).Row For i = iLastRow To 1 Step -1 If Cells(i, 7) = 1 And Cells(i, 8) < 2500 Then Rows(i).ClearContents Next |
Подскажите корректно макрос будет работать ?