Match 1st element in 2d array, match 1st element in 2nd array

[Jandrew63]

Hi all,
I'm pretty green with vba and have spent some time trying to find a solution prior to posting here.
I have to 2 ( 2d) arrays( LiteArr and PlatArr) and would like to loop through the first dimension of the LiteArr and find a match in the first dimension of PlatArr. ( there is no possibility of a non match) Once match is found:
Test if the 1st element( value) of 2nd dimension of LiteArr is < 1st element( value) of 2nd dimension of PlatArr . (If true msgbox and exit sub) else ' minimum width
Continue loop : Test if the 2nd element( value) of 2nd dimension of LiteArr is > 2nd element( value) of 2nd dimension of PlatArr (If true msgbox and exit sub) else ' maximum width
Loop continues comparing remaining 3 elements for 3rd to 5th of both arrays
There is lots of examples of reading arrays back to a worksheet but i couldn't find anything comparing 2 arrays using offsets or lookups for 2 arrays.
All help would be greatly appreciated ... i tend to understand things better once I see the code and can use the watch /immediate windows to see what is happening .

Below is the code to populate arrays - i haven't attempted to write nested loop as i am unsure of how to code it

Dim LiteArr() As Variant
Sheet6.Activate
LiteArr = Range("A2", Range("A2").End(xlDown).End(xlToRight))
'Erase LiteArr

Dim PlatArr() As Variant
Sheet4.Activate
PlatArr = Range("BG3:BL24")

 

[AlphaFrog]

Dim i As Long, j As Long

For i = 1 To UBound(LiteArr, 1)
    For j = 1 To UBound(PlatArr, 1)
        If LiteArr(i, 1) = PlatArr(j, 1) Then
            If LiteArr(i, 2) <= PlatArr(j, 2) Then
                MsgBox LiteArr(i, 1), , "Minimum Width"
            ElseIf LiteArr(i, 2) > PlatArr(j, 2) Then
                MsgBox LiteArr(i, 1), , "Maximum Width"
            End If
            Exit For
        End If
    Next j
    If j > UBound(PlatArr) Then MsgBox LiteArr(i, 1), , "No Match Found"
Next i

 

[Jandrew63]

Hello AlphaFrog,
After trying your code I realized that i hadn't adequately articulated what I was attempting to do . However, the ability to run your code and view what happens in break mode. I was able to glean a lot and adapt the code to do what was intended! Which is the best way for me to learn and remember for the future.
Thank you so much for taking the time to help me !

Here is the adapted code:

Dim LiteArr() As Variant
Sheet6.Activate
LiteArr = Range("A2", Range("A2").End(xlDown).End(xlToRight))
Dim PlatArr() As Variant
Sheet4.Activate
PlatArr = Range("BG3:BL24")
Dim i As Long, j As Long
 For i = 1 To UBound(LiteArr, 1)
    If LiteArr(i, 1) = PlatArr(1, 1) Then
       If LiteArr(1, 2) < PlatArr(1, 2) Then
           MsgBox LiteArr(i, 1) & " Minimum width is " & PlatArr(1, 2)
         Exit For
       ElseIf LiteArr(1, 2) > PlatArr(1, 3) Then
            MsgBox LiteArr(i, 1) & " Maximum width is " & PlatArr(1, 3)
           Exit For
       ElseIf LiteArr(1, 3) < PlatArr(1, 4) Then
            MsgBox LiteArr(i, 1) & " Minimum height is " & PlatArr(1, 4)
          Exit For
       ElseIf LiteArr(1, 3) > PlatArr(1, 5) Then
            MsgBox LiteArr(i, 1) & " Maximum height is " & PlatArr(1, 5)
          Exit For
       ElseIf LiteArr(1, 4) > PlatArr(1, 6) Then
            MsgBox LiteArr(i, 1) & " Maximum sq.ft.is &  PlatArr(1,6).value"
          Exit For
       End If
    End If
Next i
Erase LiteArr
Erase PlatArr
End Sub