Private Sub CommandButton1_Click()
Dim C As Range
ListBox1.Clear
For Each C In Range("A2:A500")
If C.Value >= ComboBox1.Text And C.Value <= ComboBox2.Text Then
ListBox1.AddItem C
End If
Next
End Sub
Private Sub CommandButton1_Click()
Dim C As Range
Dim i As Long
i = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
ListBox1.Clear
For Each C In Range("A2:A" & i)
If C.Value >= ComboBox1.Text And C.Value <= ComboBox2.Text Then
ListBox1.AddItem C
End If
Next
End Sub
Private Sub CommandButton1_Click()
Dim C As Range
ListBox1.Clear
ListBox1.ColumnCount = 4
For Each C In Range("A2:A500")
If C.Value >= ComboBox1.Text And C.Value <= ComboBox2.Text Then
ListBox1.AddItem C
ListBox1.List(ListBox1.ListCount - 1, 1) = C.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = C.Offset(0, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = C.Offset(0, 3).Value
ListBox1.List(ListBox1.ListCount - 1, 4) = C.Offset(0, 4).Value
End If
Next
End Sub
کامنت