Auto-populate input box with array value

[jgscanlon]

Good morning!

Using VBA I am creating a dynamic array using the values present in a text file. Users are then prompted to type in a value via an input box; if the value entered in the input box is not in the array, an error message appears, prompting them to cancel or retry their entry.

In some instances, there is only one value in the array; in those cases, I'd like to auto-populate the input box entry. How can I accomplish this?

Thank you!

 

[jgscanlon]

Solved it! If the number of values in my array is equal to 1, then I set the value of my input box equal to Array(1), otherwise I require an input.

Section of code: GroupCode is my Dynamic Array, defined in another section of code.

    NumberOfGroups = UBound(GroupCode) - LBound(GroupCode) + 1
    If NumberOfGroups = 1 Then RunGroup = GroupCode(1): GoTo Begin Else
        RunGroup = Application.InputBox(prompt:="Enter the group code for this 3D run.", Type:=2)
        If IsInArray(RunGroup, GroupCode) = False Then
            If MsgBox(RunGroup & " is not a valid entry. Try again?", vbRetryCancel) = vbRetry Then GoTo DefineGroup
            GoTo Cancel
        Else
            GoTo Begin
    End If