Найти ячейку рядом с ячейкой, в которой находится значение

Question

Я вставляю значение TextBox1 (в пользовательской форме) в первую пустую ячейку в нижней части столбца А на листе («Информация»).

Я пытаюсь изменить этот код так, чтобы значение в TextBox2 переходит в ячейку в столбце B рядом с ячейкой, в которую был добавлен TextBox1.

Я не могу использовать одну и ту же формулу, поскольку все ячейки в столбце A будут иметь значения, а соответствующие ячейки в столбце B могут быть пустыми .

Public Function FindNextEmpty(ByVal rCell As Range) As Range

On Error GoTo ErrorHandle

With rCell
   If Len(.Formula) = 0 Then
      Set FindNextEmpty = rCell
   ElseIf Len(.Offset(1, 0).Formula) = 0 Then
      Set FindNextEmpty = .Offset(1, 0)
   Else
      Set FindNextEmpty = .End(xlDown).Offset(1, 0)
   End If
End With

Exit Function
ErrorHandle:
MsgBox Err.Description & ", Function FindNextEmpty."
End Function


Private Sub CommandButton2_Click()
Dim rCell As Range

Set rCell = FindNextEmpty(ThisWorkbook.Sheets("Info").Range("A1"))

rCell.Value = TextBox1.Value

Set rCell = Nothing

End Sub

Answer 1

Добавление

rCell.Offset(0, 1) = TextBox2.Value

после того, как

rCell.Value = TextBox1.Value

привело меня туда, где мне нужно было.