Function If 2 array = value

[Infine]

Hello,

So I have created an array with 2 values in it SEE: KMyarray = Application.Transpose(Range(rngArray1, rngArray2))
In my other variable I have StrLookForString = <code here> (see below).

I want to see if the value in MyArray1 and the value in MyArray2 = StrLookForString .

So basically
MyArray(1) & MyArray(2) = Variable


How do I do this? See some of the code below:

Set rngArray1 = Range(Sheets("Köpunderlag").Range("B2"), Sheets("Köpunderlag").Range("B2").End(xlDown))
Set rngArray2 = Range(Sheets("Köpunderlag").Range("G2"), Sheets("Köpunderlag").Range("G2").End(xlDown))

KMyarray = Application.Transpose(Range(rngArray1, rngArray2))


 StrLookForString = Sheets("OFIC Köp").Cells(i, 5) & Sheets("OFIC Köp").Cells(i, 12)
        BoolHit = FindLoop(KMyarray, StrLookForString)

If BoolHit = True Then
SomeCodeHere
Else
Something else

And this is the function which is not working - my guess:

Function FindLoop(arr, val) As Boolean
' Function to find matching value in array.
    Dim r As Long
    For r = 1 To UBound(arr, 1)
        If CStr(arr(r, 1)) & CStr(arr(r, 2)) = val Then
            FindLoop = True
            arr(r, 1) = "OK"
            arr(r, 2) = "OK"
            Exit Function
        End If
    Next r
End Function

This is what is not working (my guess): If CStr(arr(r, 1)) & CStr(arr(r, 2)) = val Then


Would really appreciate if anyone can help me, I am stuck here.

 

[Fluff]

This line

If CStr(arr(r, 1)) & CStr(arr(r, 2)) = val Then

should be

If CStr(arr(r, 1)) =val And CStr(arr(r, 2)) = val Then

But your KMyarray will be 6 columns of data not 2, so that will be looking at col B & col C

 

[Infine]

If CStr(arr(r, 1)) = val And CStr(arr(r, 2)) = val Then

Did not work.

I can explain in words what the variables are:
KMyarray(1) = LU193329292
KMarray(2) = 3403,32

StrLookForString = LU1933292923403,32

(So StrlLookForString is Kmarray1 and 2 together).

And I want to "If it's true, then write code. Else. Write some other code here.

 

[Fluff]

Ok, as you are concatenating them, then your code was correct, other than your possibly looking at the wrong columns.

 

[Infine]

Which one was correct, the one you gave me or the initial that I gave you? I don't seem to make it work. It doesn't say it is correct. They do not match.

Whenever If BoolHit = True Then runs it doesn't give the correct values.

 

[Fluff]

Your version was correct, but you are probably looking at the wrong columns.

 

[Infine]

I tested the code now, and it is not correct.

KMyarray(1) = LU193329292
KMarray(2) = 3403,32

StrLookForString = LU1933292923403,32

The

If CStr(arr(r, 1)) & CStr(arr(r, 2)) = val Then

Makes LU193329292 & LU193521701 = val

But it should be

LU193329292 & 3403,32 = val


so if all


MkArray(1) MkArray(2)
LU193329292 3403,32
LU193521701 5552,142


It takes only from MkArray(1)

 

[Fluff]

Have you actually read any of my posts? I have made the same observation in them all & you seem to have totally ignored it.

 

[Infine]

Okey I apologize, I didn't understand But I see now. It's 1, r instead of r, 1. Thank you for your help once again!

 

[Fluff]

Your array is getting data from columns, B, C, D, E, F & G, not just columns B & G.
As I cannot see your data this is a guess, but try

       If CStr(arr(1, r)) & CStr(arr(6,r)) = val Then