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

Question 1

У меня есть лист, который имеет 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

Может ли кто-нибудь помочь мне и сказать, что случилось с кодом? благодаря

Question 2

ваш взгляд в столбцах 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

Steven Martin · Answer 1 · 2021-01-19T17:58:39+03:00

ваш взгляд в столбцах 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

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

Еще в рубрике

Другие вопросы