Private Sub Label1_Click()

End Sub

Private Sub ListBoxSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Master.TB_Code.Text = Me.ListBoxsearch.Column(0)
Master.NaimenovanieMateryal.Text = Me.ListBoxsearch.Column(1)
Master.NaimenovanieMateryal.SetFocus
Unload Me
End Sub
Private Sub ListBoxsearch_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Master.TB_Code.Text = Me.ListBoxsearch.Column(0)
Master.NaimenovanieMateryal.Text = Me.ListBoxsearch.Column(1)
Master.NaimenovanieMateryal.SetFocus
Unload Me
End Sub
Private Sub TextBoxSearchc_Change()
'Me.TextBoxSearchc.Text = StrConv(Me.TextBoxSearchc.Text, vbProperCase)
Dim i As Long
Me.ListBoxsearch.Clear
For i = 3 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
B = Len(Me.TextBoxSearchc.Text)
If Left(Sheet1.Cells(i, 4).Value, B) = Left(Me.TextBoxSearchc.Text, B) Then
Me.ListBoxsearch.AddItem Sheet1.Cells(i, 1).Value
Me.ListBoxsearch.List(ListBoxsearch.ListCount - 1, 0) = Sheet1.Cells(i, 1).Value
Me.ListBoxsearch.List(ListBoxsearch.ListCount - 1, 1) = Sheet1.Cells(i, 4).Value
Me.ListBoxsearch.List(ListBoxsearch.ListCount - 1, 2) = Sheet1.Cells(i, 11).Value 'тест
End If
Next i
End Sub
Private Sub UserForm_Initialize()
Me.TextBoxSearchc.Text = "1"
Me.TextBoxSearchc.Text = ""
End Sub