Simple Array Script help

Hi there

Just need to insert 19 different arrays into my script, but still having trouble. Its unique serial numbers with a name to each.

Code:

---

SALGA = Array("0301/4535/0000", "0550/4535/0000") 'Salga
       
        Sec = Array("0301/4213/0000", "0550/4213/0000", "0700/4213/0000")
       
        TarW = Array("0101/4515/0000", "0401/4515/0000") 'Target Women
       
        TarY = Array("0003/4517/0000", "0401/4517/0000") 'Target Youth
       
        Train = Array("0211/4523/0000", "0501/4523/0000") 'Training

---

And i want to insert them into this:

Code:

---

                myAry = Array("0003/3857/0000", "0101/3857/0000", "0201/3857/0000", "0301/3857/0000", "0401/3857/0000", _
                "0550/3857/0000", "0601/3857/0000", "0700/3857/0000", "0003/6063/0000", "0101/6063/0000", "0201/6063/0000", _
                "0301/6063/0000", "0401/6063/0000", "0550/6063/0000", "0601/6063/0000", "0700/6063/0000")
            For i = LBound(myAry) To UBound(myAry)
            If Range("B" & RowNumbr) = myAry(i) Then
                Qs = MsgBox("The current vote you created is allocated on Vehicle. Is This Correct?", _
                    vbYesNo + vbQuestion, "VALIDATE")
                If Qs = vbNo Then
                    Range("C" & RowNumbr) = "No"
            ElseIf Qs = vbYes Then
            Range("C" & RowNumbr) = "Yes"
        End If
    Exit For
End If
    If i = UBound(myAry) Then MsgBox "Vote Number Not found", vbCritical, "WARNING"
Next

---

This code works perfectly. My aim is to let the user insert the serial number via input box, then this code should run and display under which name it falls, and then display the name of the serial number, followed by an interaction with the MsgBox commands as seen in the example above. Then when no values are found, it should display the last message in the above script..

Is there any advise? I am very new to VBA scripts

you want to check if one serial number, input by user, is in the array?

Yes, within all those arrays

you can try like this to see if it suits your needs

Code:

---

salga = Array("0301/4535/0000", "0550/4535/0000") 'Salga
       
        sec = Array("0301/4213/0000", "0550/4213/0000", "0700/4213/0000")
       
        tarw = Array("0101/4515/0000", "0401/4515/0000") 'Target Women
       
        tary = Array("0003/4517/0000", "0401/4517/0000") 'Target Youth
       
        train = Array("0211/4523/0000", "0501/4523/0000") 'Training
ReDim myarr(4)  ' change to suit if more arrays are used
myarr(0) = salga
myarr(1) = sec
myarr(2) = tarw
myarr(3) = tary
myarr(4) = train

spec = InputBox("enter value", "Serial No", "0101/4515/0000")

For i = 0 To UBound(myarr)
    For j = 0 To UBound(myarr(i))
        If myarr(i)(j) = spec Then fnd = True: Exit For
    Next
    If fnd Then Exit For
Next
If fnd Then
    MsgBox "The current vote you created is allocated on Vehicle."
    Else
    MsgBox "Vote Number Not found", vbCritical, "WARNING"
End If

---

Now that is what i was trying to accomplish :D. Thank you for that. Now i just need to create a script to justify exactly which array was located within this input box.

Once again, thank you

try like

Code:

---

salga = Array("0301/4535/0000", "0550/4535/0000") 'Salga
       
        sec = Array("0301/4213/0000", "0550/4213/0000", "0700/4213/0000")
       
        tarw = Array("0101/4515/0000", "0401/4515/0000") 'Target Women
       
        tary = Array("0003/4517/0000", "0401/4517/0000") 'Target Youth
       
        train = Array("0211/4523/0000", "0501/4523/0000") 'Training
ReDim myarr(4)  ' change to suit if more arrays are used
redim alist(4)
myarr(0) = salga: alist(0) = "salga"
myarr(1) = sec: alist(1) = "sec"
myarr(2) = tarw: alist(2) = "tarw"
myarr(3) = tary: alist(3) = "tary"
myarr(4) = train: alist(4) = "train"

spec = InputBox("enter value", "Serial No", "0101/4515/0000")

For i = 0 To UBound(myarr)
    For j = 0 To UBound(myarr(i))
        If myarr(i)(j) = spec Then fnd = True: location = alist(i): Exit For
    Next
    If fnd Then Exit For
Next
If fnd Then
    MsgBox "The current vote you created is allocated on Vehicle. at " & location
    Else
    MsgBox "Vote Number Not found", vbCritical, "WARNING"
End If

---