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