считать последнюю строку из истории в tt1()

[Andrey3055]

Привет!
Помогите, пожалуйста, записать правильно макрос:

Я сначала записываю данные в историю

'запоминаем изменения из TextBox'ов
For i = 1 To 36
tt2(i - 1) = CSng(UserForm1.Controls("TextBox" & i))
Next i

'произошли ли изменения в TextBox'ах
For i = 0 To 35
If tt1(i) <> tt2(i) Then Exit For
Next i
If i = 36 Then GoTo Конец 'т.е. если изм-ий нет


With Application.Workbooks.Open(Filename :=ThisWorkbook.Path & "\История изменения параметров.xls")
With Sheets(1)
'записываем историю
j = .Cells(Rows.Count, 4).End(xlUp).Row + 1
For i = 1 To 36
.Cells(j, i + 3) = tt2(i - 1)
Next i
End With
.Close saveChanges:=True
End With


А теперь мне нужно считать самую последнюю строчку из истории и записать в tt1() и потом циклом заполнить боксы, типа
.Controls("TextBox" & i) = tt1(i - 1)

Помогите правильно записать, пожалуйста!

[nilem]

Андрей, почему Ваш пример - один в один с примером Натальи? Ну, не важно.
Если добавить на форму кнопку "История", то можно так (без массива, наверное, даже быстрее):

Private Sub btnИстория_Click()
Dim j As Long
With Application.Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга1.xls")
    With Sheets(2) 'у меня это осталось на 2-м листе
    j = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To 36
            UserForm1.Controls("TextBox" & i) = .Cells(j, i + 3).Value
        Next i
    End With
.Close SaveChanges:=False
End With
End Sub

[Andrey3055]

Спасибо! Понял принцип! А такой же пример, как у Натальи,так как искал принцип решения подобной задачи,но не нашел, нашел только задачу Натальи,правда там решение этого вопроса не был выложено,а придумывать свой пример на эту тему не хотел, но принцип нужен,то скопировал у нее! Извините,пожалуйста!

[nilem]

Извиняться не за что. Просто было интересно.