Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdtransfer_Click()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
Cells(i + 1, 1) = ListBox1(i)
Next i
End Sub
Private Sub ComboBox1_Change()
Dim database(1 To 100, 1 To 4)
Dim My_Range As Integer
Dim colum As Byte
On Error Resume Next
Ark3.Range("A2").AutoFilter field:=1, Criteria1:=Me.ComboBox1.Value
For i = 2 To Ark3.Range("A100000").End(xlUp).Row
If Ark3.Cells(i, 1) = Me.ComboBox1 Then
My_Range = My_Range + 1
For colum = 1 To 4
database(My_Range, colum) = Ark3.Cells(i, colum)
Next colum
End If
Next i
Me.ListBox1.List = database
End Sub
Private Sub CommandButton1_Click()
ComboBox1 = ""
ListBox1 = ""
'Dim ctl As Control
'For Each ctl In UserForm1.Controls
'If TypeName(ctl) = "combobox1" Or TypeName(ctl) = "listbox1" Then
'ctl.Value = ""
'End If
'Next ctl
End Sub
Private Sub UserForm_Click()
End Sub