Sheets("Transaction Account").Range("v14").AutoFilter Field:=22, Criteria1:=Me.TextBox69.Value
Dim Ary As Variant
Dim r As Long, c As Long, nr As Long
With Sheets("Transaction Account").ListObjects("Table6")
r = .ListColumns(1).Range.SpecialCells(xlVisible).Count
If r = 1 Then Exit Sub
ReDim Ary(1 To r - 1, 1 To .ListColumns.Count)
For r = 1 To .DataBodyRange.Rows.Count
If .DataBodyRange.Rows(r).Hidden = False Then
nr = nr + 1
Ary(nr, 1) = .DataBodyRange.Cells(r, 1)
Ary(nr, 2) = .DataBodyRange.Cells(r, 2)
Ary(nr, 3) = .DataBodyRange.Cells(r, 3)
Ary(nr, 4) = .DataBodyRange.Cells(r, 4)
Ary(nr, 5) = .DataBodyRange.Cells(r, 5)
Ary(nr, 6) = .DataBodyRange.Cells(r, 6)
Ary(nr, 7) = .DataBodyRange.Cells(r, 7)
Ary(nr, 8) = .DataBodyRange.Cells(r, 8)
Ary(nr, 9) = .DataBodyRange.Cells(r, 9)
Ary(nr, 10) = .DataBodyRange.Cells(r, 10)
Ary(nr, 11) = .DataBodyRange.Cells(r, 11)
Ary(nr, 12) = .DataBodyRange.Cells(r, 12)
Ary(nr, 13) = .DataBodyRange.Cells(r, 13)
Ary(nr, 14) = .DataBodyRange.Cells(r, 14)
Ary(nr, 15) = .DataBodyRange.Cells(r, 15)
Ary(nr, 16) = .DataBodyRange.Cells(r, 16)
Ary(nr, 17) = .DataBodyRange.Cells(r, 17)
Ary(nr, 18) = .DataBodyRange.Cells(r, 18)
Ary(nr, 19) = .DataBodyRange.Cells(r, 19)
Ary(nr, 20) = .DataBodyRange.Cells(r, 20)
Ary(nr, 21) = .DataBodyRange.Cells(r, 21)
Ary(nr, 22) = .DataBodyRange.Cells(r, 22)
Ary(nr, 23) = .DataBodyRange.Cells(r, 23)
End If
Next r
End With
Me.ListBox9.List = Ary
Dim Ary As Variant
Dim r As Long, c As Long, nr As Long
With Sheets("Transaction Account").ListObjects("Table6")
r = .ListColumns(1).Range.SpecialCells(xlVisible).Count
If r = 1 Then Exit Sub
ReDim Ary(1 To r - 1, 1 To .ListColumns.Count)
For r = 1 To .DataBodyRange.Rows.Count
If .DataBodyRange.Rows(r).Hidden = False Then
nr = nr + 1
Ary(nr, 1) = .DataBodyRange.Cells(r, 1)
Ary(nr, 2) = .DataBodyRange.Cells(r, 2)
Ary(nr, 3) = .DataBodyRange.Cells(r, 3)
Ary(nr, 4) = .DataBodyRange.Cells(r, 4)
Ary(nr, 5) = .DataBodyRange.Cells(r, 5)
Ary(nr, 6) = .DataBodyRange.Cells(r, 6)
Ary(nr, 7) = .DataBodyRange.Cells(r, 7)
Ary(nr, 8) = .DataBodyRange.Cells(r, 8)
Ary(nr, 9) = .DataBodyRange.Cells(r, 9)
Ary(nr, 10) = .DataBodyRange.Cells(r, 10)
Ary(nr, 11) = .DataBodyRange.Cells(r, 11)
Ary(nr, 12) = .DataBodyRange.Cells(r, 12)
Ary(nr, 13) = .DataBodyRange.Cells(r, 13)
Ary(nr, 14) = .DataBodyRange.Cells(r, 14)
Ary(nr, 15) = .DataBodyRange.Cells(r, 15)
Ary(nr, 16) = .DataBodyRange.Cells(r, 16)
Ary(nr, 17) = .DataBodyRange.Cells(r, 17)
Ary(nr, 18) = .DataBodyRange.Cells(r, 18)
Ary(nr, 19) = .DataBodyRange.Cells(r, 19)
Ary(nr, 20) = .DataBodyRange.Cells(r, 20)
Ary(nr, 21) = .DataBodyRange.Cells(r, 21)
Ary(nr, 22) = .DataBodyRange.Cells(r, 22)
Ary(nr, 23) = .DataBodyRange.Cells(r, 23)
End If
Next r
End With
Me.ListBox9.List = Ary