Private Sub CommandButton1_Click() 'кнопка выполнить поиск
Dim mstr$, currCell As Range
Dim i, n, M As String
mstr = TextBox1.Text 'ввод данные лекарства
If TextBox1.Text = "" Then
MsgBox "Введите данные!", vbCritical, "Ошибка"
Exit Sub
End If
With Sheets("Лист2")
Set currCell = .Cells.Find(What:=mstr, SearchFormat:=False, LookAt:=xlWhole) 'поиск Лекартсва
If Not currCell Is Nothing Then 'если найдено
mstr = currCell.Address(False, False)
currCell.Select
Worksheets("Raschet").Range(artikulRange.Addres).RemoveDuplicates Columns:=1, Header:=xlNo
i = Range("Лист2!A" & ActiveCell.Row).Value
n = Range("Лист2!D" & ActiveCell.Row).Value
M = Range("Лист2!H" & ActiveCell.Row).Value
Label8.Caption = i & ", " & n & ", " & M 'вывод остальных данные о лекарстве
Else 'если не найдено, вывод сообщения об ошибке
MsgBox "Такого лекарства в базе нет! Проверьте введеные данные, либо добавьте лекарство в базу", vbCritical, "Ошибка"
End If
End With
End Sub
Private Sub Forward_Click() 'кнопка перейти к заполнению
Unload UserForm3 'закрываем эту форму
With UserForm2 'заполняем данные в бланке
.TextBox1.Text = Range("Лист2!A" & ActiveCell.Row).Value
.TextBox2.Text = Range("Лист2!C" & ActiveCell.Row).Value
.TextBox3.Text = Range("Лист2!D" & ActiveCell.Row).Value
.TextBox4.Text = Range("Лист2!E" & ActiveCell.Row).Value
.TextBox5.Text = Range("Лист2!F" & ActiveCell.Row).Value
.TextBox6.Text = Range("Лист2!G" & ActiveCell.Row).Value
.TextBox7.Text = Range("Лист2!H" & ActiveCell.Row).Value
If Range("Лист2!B" & ActiveCell.Row) = "М" Then
OptionButton1.Value = True
Else
OptionButton2.Value = True
End If
End With
UserForm2.Show 'загружаем форму с бланком
End Sub
Private Sub CommandButton2_Click()
Unload UserForm3
UserForm1.Show
End Sub