Сохранение, введенного пользователем, значения в поле TextBox, при повторном вызове формы

[Denis Ch]

Здравствуйте.Столкнулся с такой проблемой- как сохранить данные, введенные пользователем в поле TextBox при первом вызове пользовательской формы, при повторном вызове пользовательской формы.
В поле TextBox, пользовательской формы, прописывается название документа(а именно в моем случае объекта), затем эти данные записываются в текстовое поле Excel с именем TextBox 7.Мне нужно чтобы при повторном вызове пользовательской формы в поле TextBox сохранилось то название, которое я ввел при первом вызове.
Вот часть кода:

Private Sub Name_Objekt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Name_Objekt.SetFocus
ActiveSheet.Shapes.Range(Array("TextBox 7")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Name_Objekt
End Sub

[VictorM]

ИМХО самое простое - сохранять это значение в какой-нибудь ячейке рабочего листа, любой.
И затем считывать значение из этой ячейки
При запуске файла очищать эту ячейку. При первом вызове формы текстбокс будет пустой.

[doober]

Самый прстой и менее надежный способ хранить в переменной
Как вариант ячейка листа

Модуль
Public  My_Peremennaja  As String

Форма

Private Sub UserForm_Activate()
 Name_Objektþ.Text = My_Peremennaja
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
My_Peremennaja = Name_Objektþ.Text
End Sub

[Denis Ch]

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

Самый прстой и менее надежный способ хранить в переменной
Как вариант ячейка листа

Модуль
Public  My_Peremennaja  As String

Форма

Private Sub UserForm_Activate()
 Name_Objektþ.Text = My_Peremennaja
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
My_Peremennaja = Name_Objektþ.Text
End Sub

Спасибо огромное, попробую отпишусь чуть позже что из этого получилось.

[Denis Ch]

Попробовал метод хранения в переменной, но ничего не вышло.Наверное что-то не так сделал.Изменил код следующим образом:

Private Sub CancelButton_Click()
    Unload Тип_КП
End Sub

Private Sub Name_Objekt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Name_Objekt.SetFocus
ActiveSheet.Shapes.Range(Array("TextBox 7")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Name_Objekt
End Sub

Private Sub Тип_КП_Activate()
 Name_Objekt.Text = My_Peremennaja
End Sub

Private Sub Тип_КП_QueryClose(Cancel As Integer, CloseMode As Integer)
My_Peremennaja = Name_Objekt.Text
End Sub

В модуль добавил код:

Public  My_Peremennaja  As String

В результате при каждой вызове получается что форма остаётся пустой.
Имя пользовательской формы Тип_КП.Подскажите что я неправильно делаю?

[Hugo121]

Попробуйте явно указать, какого модуля переменная. Мне помогало.
Module1.My_Peremennaja = Name_Objekt.Text
Name_Objekt.Text = Module1.My_Peremennaja

[kuklp]

А не выгружайте форму. Прячьте:

Private Sub CancelButton_Click()
  me.Hide
End Sub

[kuklp]

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

Попробуйте явно указать, какого модуля переменная. Мне помогало.
Module1.My_Peremennaja = Name_Objekt.Text
Name_Objekt.Text = Module1.My_Peremennaja

Игорь, при выгрузке формы переменная очищается.

[Hugo121]

Сергей, а если переменная глобальная из модуля? Не должна очищаться.

[doober]

смотрите вложение