Задача Exel VBA

[Bufallo81]

Добрый день. Помогите пожалуйста написать правильно код. Выдает ошибку.
Есть программа для расчета электроэнергии за сутки с вводом данных в пустые ячейки соответственно. Расчет ведет правильно (написан самый первый код вверху).Как сделать так чтоб программа сохраняла введенные данные, т.е. мы вводим значения в ячейки "Настоящее" и "Предыдущее". Надо сделать так, чтоб при закрытии программы и листа EXEL или самой книги, значения сохранялись, причем при открытии программы, данные из колонки "Настоящее" перенеслись в колонку "Предыдущее". Тем самым пользователь может вводить при следующем открытии программы только в колонку "Настоящее" новые значения, а в колонке "Предыдущее" значения должны быть сохранены уже.
Вот скрины
https://ibb.co/xgBRnkB
https://ibb.co/Z2rCXhF

И код

Private Sub CommandButton1_Click()
    Me.TextBox25 = CDbl(Me.TextBox1 - Me.TextBox2) * 20000 + CDbl(Me.TextBox3 - Me.TextBox4) * 20000 + CDbl(Me.TextBox5 - Me.TextBox6) * 20000 + CDbl(Me.TextBox7 - Me.TextBox8) * 20000 + CDbl(Me.TextBox9 - Me.TextBox10) * 8000 + CDbl(Me.TextBox11 - Me.TextBox12) * 8000 + CDbl(Me.TextBox13 - Me.TextBox14) * 8000 + CDbl(Me.TextBox15 - Me.TextBox16) * 8000 + CDbl(Me.TextBox17 - Me.TextBox18) * 20000 + CDbl(Me.TextBox19 - Me.TextBox20) * 20000 + CDbl(Me.TextBox21 - Me.TextBox22) * 20000 + CDbl(Me.TextBox23 - Me.TextBox24) * 20000
    TextBox25 = CInt(Me.TextBox25)
End Sub

Private Sub UserForm_Close()
    Range("H1") = TextBox2
    Range("H2") = TextBox4
    Range("H3") = TextBox6
    Range("H4") = TextBox8
    Range("H5") = TextBox10
    Range("H6") = TextBox12
    Range("H7") = TextBox14
    Range("H8") = TextBox16
    Range("H9") = TextBox18
    Range("H10") = TextBox20
    Range("H11") = TextBox22
    Range("H12") = TextBox24
End Sub

Private Sub UserForm_Activate()
    Me.TextBox2 = Range("G1")
    Me.TextBox4 = Range("G2")
    Me.TextBox6 = Range("G3")
    Me.TextBox8 = Range("G4")
    Me.TextBox10 = Range("G5")
    Me.TextBox12 = Range("G6")
    Me.TextBox14 = Range("G7")
    Me.TextBox16 = Range("G8")
    Me.TextBox18 = Range("G9")
    Me.TextBox20 = Range("G10")
    Me.TextBox22 = Range("G11")
    Me.TextBox24 = Range("G12")
End Sub

[Bufallo81]

Вот файл,нужно вводить числа в полях дробные через запятую. Если поле пустое-значит ноль.

[Aleksandr H.]

при закрытии формы - сохранять значения левых контролов, при открытии - выводить сохраненку в правые контролы

[Bufallo81]

А как в коде это осуществить?

[Aleksandr H.]

кодом VBA

Private Sub UserForm_Close()
    Range("H1") = TextBox1
...........
Private Sub UserForm_Activate()
     TextBox2 = Range("H1")
............

[Bufallo81]

Не выходит, не правильно считает, и не сохраняет. Нужно чтоб программа кроме запоминания и еще выводила визуально значения в колонке "Предыдущее" введенные ранее при запуске программы.

[Matyr]

Меняем

sub UserForm_Close полностью на:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Range("H1") = TextBox1
    Range("H2") = TextBox3
    Range("H3") = TextBox5
    Range("H4") = TextBox7
    Range("H5") = TextBox9
    Range("H6") = TextBox11
    Range("H7") = TextBox13
    Range("H8") = TextBox15
    Range("H9") = TextBox17
    Range("H10") = TextBox19
    Range("H11") = TextBox21
    Range("H12") = TextBox23
End Sub

В самой книге пишем:

Private Sub Workbook_Open()
    Columns("H").Copy Columns("G")
    Columns("H").ClearContents
End Sub

[IgorGO]

' и вот такую простынь
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Range("H1") = TextBox1
    Range("H2") = TextBox3
    Range("H3") = TextBox5
    Range("H4") = TextBox7
    Range("H5") = TextBox9
    Range("H6") = TextBox11
    Range("H7") = TextBox13
    Range("H8") = TextBox15
    Range("H9") = TextBox17
    Range("H10") = TextBox19
    Range("H11") = TextBox21
    Range("H12") = TextBox23
End Sub
'
' замените на цикл в одну строку
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Dim r&
  For r = 1 To 12
    Cells(r, 8) = Me.Controls("TextBox" & r * 2 - 1)
  Next
End Sub

[Bufallo81]

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

Меняем

sub UserForm_Close полностью на:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Range("H1") = TextBox1
    Range("H2") = TextBox3
    Range("H3") = TextBox5
    Range("H4") = TextBox7
    Range("H5") = TextBox9
    Range("H6") = TextBox11
    Range("H7") = TextBox13
    Range("H8") = TextBox15
    Range("H9") = TextBox17
    Range("H10") = TextBox19
    Range("H11") = TextBox21
    Range("H12") = TextBox23
End Sub

В самой книге пишем:

Private Sub Workbook_Open()
    Columns("H").Copy Columns("G")
    Columns("H").ClearContents
End Sub

Спасибо Вам огромное, все работает.

[Bufallo81]

Только не много не понятно, где вторая часть кода, в какой самой книге посмотреть?