VBA выводит значение ComboBox в следующую свободную ячейку в столбце

Я пытаюсь вывести значение из текстового поля Userform в следующую пустую ячейку в столбце:

Private Sub CommandButton2_Click() Dim LastRow As Long With ThisWorkbook.Sheets("Output") LastRow = .Cells(.Rows.Count, "H").End(xlUp).Row With .Range("H" & LastRow) .Value2 = TextBox1.Value End With End With End Sub 

Однако это не сработает, и я не получаю сообщений об ошибках.

Любые идеи, в которых я ошибаюсь?

благодаря

Попробуйте это * Изменено для CommandButton2

  Private Sub CommandButton2_Click() Dim LastRow As Long With ThisWorkbook.Sheets("Output") LastRow = Cells(.Rows.Count, "H").End(xlUp).Offset(1, 0).Row Range("H" & LastRow).Value = TextBox1.Value End With End Sub 
  • Excel VBA; UserForm, запуск одного фрагмента кода для разных значений TextBox
  • Как перенести данные из TextBox в формулу в другом текстовом поле
  • Текстовое поле ActiveX на листе листа Excel заменяет границу и шрифт при утрате фокуса
  • Добавление переменного количества символов в строку, основанная на текущей длине строки
  • Код устранения неполадок для макросов и текстовых полей
  • Очистка текстового поля при нажатии кнопки VBA
  • Разница между двумя датами для заполнения текстового поля в VBA
  • VBA - Как я могу дать код ошибки на основе суммы моих значений текстового поля в форме пользователя?
  • Ярлык, связанный с значением текстового поля
  • Как установить имя текстового поля как переменную и разрешить изменять имя в цикле?
  • Как загрузить значения ячейки Excel в пустые текстовые поля в графическом интерфейсе tkinter после того, как файл был выбран и «Открыть файл» и загружен?
  • Давайте будем гением компьютера.