найти следующую пустую строку, а затем добавить формулу

Question

У меня есть пользовательская форма, которая вставит значение combobox1 в следующую доступную строку в столбце B. Справа есть 3 столбца (C, D & E), которые имеют формулы vlookup, которые я хотел бы заполнить как combobox1. значение вставляется в столбец B.

Это формула vlookup, а B123 будет значением combobox1 для этой конкретной строки. = IFERROR (ВПР (B123, 'Лист1' $ A $ 3: $ C $ 370,2,0), 0) / * +1000000 1003 *

Это то, что я пробовал до сих пор

  Dim nextrow As Long 
  Dim nextrow1 As Long
  Dim nextrow2 As Long
  nextrow = Cells(Rows.Count, "C").End(xlUp).Row + 1
        .Range(rows.count, nextrow - 1).FillDown
  nextrow1 = Cells(Rows.Count, "D").End(xlUp).Row + 1
        .Range(rows.count, nextrow - 1).FillDown
  nextrow2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
        .Range(rows.count, nextrow - 1).FillDown
  End Sub

Этот код вставит значение комбинированного списка в следующую доступную строку в столбце B

Private sub CommandButton1_click()

    With Worksheets("sheet")
        .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) = ComboBox1.Value 
        .Cells(.Rows.Count, "B").End(xlUp).Offset(1, 0) = ComboBox2.Value 
    End With
ActiveWorkbook.RefreshAll
Unload Me

Answer 1

Я добавил строку в ваш код, она должна автоматически заполняться при каждом нажатии кнопки.

Private sub CommandButton1_click()

With Worksheets("sheet")
    .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) = ComboBox1.Value 
    .Cells(.Rows.Count, "B").End(xlUp).Offset(1, 0) = ComboBox2.Value
    .Cells(Rows.Count, "B").End(xlUp).Offset(-1, 1).Resize(, 3).AutoFill .Cells(Rows.Count, "B").End(xlUp).Offset(-1, 1).Resize(, 3).Resize(2)

    With .Cells(Rows.Count, "B").End(xlUp).Offset(-1, 1).Resize(, 3).Resize(2)
        .Borders.LineStyle = xlContinuous
    End With                   

End With
ActiveWorkbook.RefreshAll
Unload Me