List Object - Add Columns into array - certain conditions

[neodjandre]

Hi all, I have a listobject as seen on the screenshot.

I am looking to add items in an array provided that column "On/off" has value "On" and column "§" does not contain the letters "I" or "T".

So in my example the array would contain a single column with just the values:

Kiwis
Strawberries

So far I have come up with this code:

Sub mytable_to_array()

Dim myTable As ListObject
Dim myArray As Variant
Dim x As Long

  Set myTable = ActiveSheet.ListObjects("Table1")
  myArray = myTable.DataBodyRange

  For x = LBound(myArray) To UBound(myArray)
   Debug.Print myArray(x, 2)
  Next x
 
End Sub

But I am not sure how to loop through both of the requirements at the same time. Any ideas would be much appreciated!

 

[neodjandre]

I thought about creating a second array like this:

Private Sub nominals_array()
Dim myTable As ListObject
Dim myArray As Variant
Dim ary As Variant
Dim x As Long
Dim r As Long, nr As Long


Set myTable = x_ledger.ListObjects("accounts_table")
myArray = myTable.DataBodyRange


For x = LBound(myArray) To UBound(myArray)
   If myArray(x, 5) = "On" Then
   If myArray(x, 4) <> "T" Or myArray(x, 4) <> "I" Then
   nr = nr + 1
   ary(nr) = myArray(x, 1)
   End If
   End If
  
Next x

But I am geting a mismatch error.

 

[Fluff]

How about

Set myTable = x_ledger.ListObjects("accounts_table")
myArray = myTable.DataBodyRange
ReDim ary(1 To UBound(myArray))

For x = LBound(myArray) To UBound(myArray)
   If myArray(x, 5) = "On" Then
   If myArray(x, 4) <> "T" And myArray(x, 4) <> "I" Then
   nr = nr + 1
   ary(nr) = myArray(x, 1)
   End If
   End If
  
Next x