VBA excel Passing back parameter

Question

Okay I want to add something to this macro

Sub Search()
  Inputbox myInput                      
  found = false
  loop
     Call getInput (myInput)            '~> check multiple files
  end loop
  If found = false
    'DO something   
  End if
End sub

Sub getInput(ByVal inputVar As String, ByVal Input as Boolean)
  If a = inputVar Then                  
      found = true                      '~> I want to pass this parameter back to search
  End If
End sub

The case is like, I want my sub to pass the found parameter from Search() to getInput() and then getInput() return the found parameter to Search()

Should I add something like search(ByVal found as boolean) ?

what is a in your getInput Sub? and your loop syntax is invalid.. — Sam
– Sam, Commented Nov 23, 2013 at 18:20

Sam · Accepted Answer · 2013-11-23 18:36:18Z

4

if you want to return a value, then you should change the getInput Sub to a function as they can return values.

Sub Search()
  Dim found As Boolean

  InputBox myInput

  found = checkInput(myInput)

  If found = False Then
    'DO something
  End If
End Sub

Function checkInput(inputVar As String) As Boolean

    Dim result As Boolean

    'do your checking here and set result

    'return the result
    checkInput = result

End Function

edited Nov 23, 2013 at 18:36

answered Nov 23, 2013 at 18:23

Sam

7,3333 gold badges27 silver badges37 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA excel Passing back parameter

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related