Private Sub CommandButton1_Click()
Dim i&, m&, n&
With ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
For i = 1 To 11
.Add , , Cells(1, i), 60
Next
End With
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
For m = 2 To [A65000].End(xlUp)
x = UCase(Cells(m, 3)) = "X2"
y = UCase(Cells(m, 9)) = "O"
If x And y Then
.ListItems.Add , , Cells(m, 1)
For n = 2 To 11
.ListItems(.ListItems.Count).ListSubItems.Add = Cells(m, n)
Next
End If
Next
End With
End Sub