Excel VBA Formula в следующем ряду

Question

Итак, у меня есть вопрос, у меня есть лист Excel, в котором данные вменяются в пользовательскую форму, а затем после ввода этих данных переходят к следующему.

Мой вопрос: мне нужно поместить эту формулу в столбец A2

=IF(B2="","",IF(ISBLANK(I2()),"OPEN","CLOSED"))

и перейдите к следующей строке, например, к следующей строке A3 введите

=IF(B3="","",IF(ISBLANK(I3()),"OPEN","CLOSED"))

и так далее, если это имеет смысл.

Заранее спасибо.

Редактировать: код ниже для ввода данных в следующую доступную строку

'Submit MR and fill next available row in MR workbook
Private Sub buttonSend_Click()

Dim lRow As Long
Dim ws As Worksheet
Dim lValue As Date

Set ws = Worksheets("Maintance Report")
lRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
'Submit data
With ws
    .Cells(lRow, 3).Value = Me.textName.Value
    .Cells(lRow, 4).Value = Me.comboDepartment.Value
    .Cells(lRow, 5).Value = Me.comboPriority.Value
    .Cells(lRow, 6).Value = Me.textDescription.Value
    .Cells(lRow, 2).Value = Now

End Sub

Answer 1

Вы можете сделать что-то вроде этого:

With .Range("A3")
    .Formula = Replace("=IF(B#="""","""",IF(ISBLANK(I#()),""OPEN"",""CLOSED""))", _
                       "#", .Row)
End With