как сделать так, чтоб при открытии формы она считывала информацию из строки

[Kizim]

Помогите решить задачу. Есть программа с уже введёнными данными. Нужно внести изменение в уже имеющиеся данные в строках. Для этого столбец =Е= Двойным кликом вызывает форму для ввода данных. Но она открывается пустой и все данные нужно переписывать заново. А можно сделать так , чтоб при открытии формы - она считывала уже имеющиеся данные в нужной строке. Мы вносили одно изменение и строка переписывалась со всеми данными. Встроенная форма в Ексель не подходит, так как в моей программе ввод данных полностью автоматизирован и используются одинаковые шаблоны слов для ввода данных. Помогите пожалуйста....

[Aleksandr H.]

тебе ж в другой теме показал как сделать.

Сообщение от Kizim

А можно сделать так , чтоб при открытии формы - она считывала уже имеющиеся данные в нужной строке.

Private Sub UserForm_Initialize()
    Me.TextBox1 = ActiveSheet.Cells(ActiveCell.Row, 1)
    Me.TextBox2 = ActiveSheet.Cells(ActiveCell.Row, 2)
    Me.TextBox3 = ActiveSheet.Cells(ActiveCell.Row, 3)
    Me.TextBox4 = ActiveSheet.Cells(ActiveCell.Row, 4)
End Sub

Мы вносили одно изменение и строка переписывалась со всеми данными.

Private Sub CommandButton1_Click()
    Dim iLastRow As Long
    iLastRow = ActiveCell.Row
    Cells(iLastRow, 1) = Me.TextBox1
    Cells(iLastRow, 2) = Me.TextBox2
    Cells(iLastRow, 3) = Me.TextBox3
    Cells(iLastRow, 4) = Me.TextBox4
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
    Me.TextBox4 = ""
    MsgBox "Добавлено!", vbInformation, "Введено"
End Sub

[Kizim]

Сообщение от Aleksandr H.

Private Sub UserForm_Initialize()
    Me.TextBox1 = ActiveSheet.Cells(ActiveCell.Row, 1)
    Me.TextBox2 = ActiveSheet.Cells(ActiveCell.Row, 2)
    Me.TextBox3 = ActiveSheet.Cells(ActiveCell.Row, 3)
    Me.TextBox4 = ActiveSheet.Cells(ActiveCell.Row, 4)
End Sub

Private Sub CommandButton1_Click()
    Dim iLastRow As Long
    iLastRow = ActiveCell.Row
    Cells(iLastRow, 1) = Me.TextBox1
    Cells(iLastRow, 2) = Me.TextBox2
    Cells(iLastRow, 3) = Me.TextBox3
    Cells(iLastRow, 4) = Me.TextBox4
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
    Me.TextBox4 = ""
    MsgBox "Добавлено!", vbInformation, "Введено"
End Sub

Спасибо огромное. Понял где ошибся. Всё идеально работает.