VBA проверяет 2 столбца для текста

126
12

У меня есть лист, который имеет 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 6 месяцев назад
1
Решение
78

ваш взгляд в столбцах 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 6 месяцев назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема