VBA проверяет 2 столбца для текста
122
11
У меня есть лист, который имеет 2 столбца и 36 строк. Макрос должен делать следующее: 1) если ячейка в строке 1, столбец 1 не пуст, а ячейка в строке 1, столбец 2 - пустой, макрос должен остановиться, иначе он должен продолжаться и после проверки всех 36 строк он должен остановиться и сделать SaveAs, если такие значения не найдены. Я нашел этот код и немного изменил его, но он не работает, как я описал:
Sub CheckRows()
Dim i As Long
For i = 12 To 47
'Criteria search
If Sheets("Claims").Cells(i, 2).Value <> "" Then
If Sheets("Claims").Cells(i, 3).Value = "" Then
Exit Sub
Else
End If
End If
Next i
ActiveWorkbook.SaveAs Filename:="myFile.xlsx", FileFormat:=56
End Sub
Может ли кто-нибудь помочь мне и сказать, что случилось с кодом? благодаря
спросил(а)
2021-01-19T17:58:39+03:00
2 месяца, 3 недели назад
добавить комментарий
пожаловаться
Решение
75
ваш взгляд в столбцах 2 и 3, а не на колонки 1 и 2, как вы писали... также ваш запуск в строке 12, это правильно?
Sub CheckRows()
Dim i As Long
For i = 12 To 47
'Criteria search
If Sheets("Claims").Cells(i, 1).Value <> "" Then
If Sheets("Claims").Cells(i, 2).Value = "" Then
Exit Sub
End If
End If
Next i
ActiveWorkbook.SaveAs Filename:="myFile.xlsx", FileFormat:=56
End Sub
ответил(а)
2021-01-19T17:58:39+03:00
2 месяца, 3 недели назад
добавить комментарий
пожаловаться
Ваш ответ