Добрый день. Появилась задача вывода значения из формы авторизации из поля логин в определенную ячейку из определенного листа [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]
Добавляю к кнопке "Вход" этот код, но возникает ошибка. Пока не понимаю как оформить его
Добрый день. Появилась задача вывода значения из формы авторизации из поля логин в определенную ячейку из определенного листа [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
Сообщение отредактировал hunter75 - Воскресенье, 15.01.2023, 09:49