Вывод данных из формы авторизации

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вывод данных из формы авторизации (Макросы/Sub)

hunter75

Дата: Воскресенье, 15.01.2023, 09:41 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Добрый день. Появилась задача вывода значения из формы авторизации из поля логин в определенную ячейку из определенного листа
[vba]

Код

Private Sub CommandButton1_Click()
Dim i As Byte
If TextBox1.Text = "" And TextBox2.Text = "" Then Exit Sub
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox "Введены неполные данные для авторизации", vbInformation, "Авторизация"
Exit Sub
End If
With Лист12
For i = 1 To 9
If .Cells(i, 1) = TextBox1.Text And .Cells(i, 2) = TextBox2.Text Then
Лист2.Visible = xlSheetVisible
Лист13.Visible = xlSheetVisible
Лист1.Visible = xlSheetVeryHidden
Unload UserForm1
Exit Sub
End If
Next i
End With
TextBoxValue = TextBox1.Value
Sheets("Лист2").Range("G11").Value = TextBoxValue
MsgBox "Не верен логин или пароль", vbInformation, "Ошибка данных"

End Sub

[/vba]

Добавляю к кнопке "Вход" этот код, но возникает ошибка. Пока не понимаю как оформить его

Сообщение отредактировал hunter75 - Воскресенье, 15.01.2023, 09:49

Ответить

Pelena

Дата: Воскресенье, 15.01.2023, 10:29 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19281

Репутация: 4446 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Какая именно ошибка возникает?
Предположу, что вместо Лист1 надо писать Sheets("Лист1") и для остальных листов аналогично.

Файл с примером формы помог бы в понимании проблемы

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816