Отображение данных в TextBox1 UserForm2 из UserForm1 TextBox1.

Пользователь

Сообщений: 128 Регистрация: 23.11.2020

26.05.2021 16:46:37

Здравствуйте
Нашёл Ссилка. Как мне его доработать чтоб например дата в TextBox1 UserForm2 из UserForm1 TextBox1. вводилася при открытии самой формы без лишних нажатий на TextBox1 UserForm2 или другие дополнительно созданные кнопки управления

Код
TextBox1 = UserForm1.TextBox1.Value

Прикрепленные файлы

образец.xlsb (17.29 КБ)

Изменено: Ян Копко - 26.05.2021 17:07:42

Logistic

Пользователь

Сообщений: 747 Регистрация: 03.01.2013

26.05.2021 16:55:09

Код
Private Sub UserForm_Initialize() Me.TextBox1 = Format(Now, "dd.mm.yyyy") End Sub

Ян Копко Пользователь Сообщений: 128 Регистрация: 23.11.2020	#3 26.05.2021 16:56:35 благодарю Вас

RAN

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

26.05.2021 17:58:50

Код
' Код UserForm1 Private Sub CommandButton1_Click() With UserForm2 .TextBox1 = Me.TextBox1 .Show End With End Sub Private Sub UserForm_Initialize() Me.TextBox1 = Format(Now, "dd.mm.yyyy") End Sub