Snasui Excel Forum

Code: Select all

Private Sub CommandButton2_Click()

Dim i As Long, j As Long
Dim arr(1, 7) As Variant
Me.ListBox1.Clear
Me.ListBox1.AddItem

For a = 0 To 7
    arr(0, a) = Sheet2.Cells(1, a + 1).Value
    arr(1, a) = Sheet2.Cells(2, a + 1).Value
Next a

Me.ListBox1.ColumnCount = 7
Me.ListBox1.List = arr
ListBox1.ColumnWidths = "40,100,100,100,100,100"
    For i = 3 To Sheet2.Range("A1000000").End(xlUp).Row
        If Sheet2.Cells(i, 2).Value = Sheet1.Cells(4, 9).Value Then
            Me.ListBox1.AddItem
            For x = 1 To 7
                Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet2.Cells(i, x)
            Next x
        End If
    Next i

End Sub

Code: Select all

    For i = Sheet2.Range("A1000000").End(xlUp).Row To 3 Step -1

Code: Select all

Me.ListBox1.Locked = True