Skip MsgBox if found error

[Faridwahidi]

Hi,

Using Global Variable declaration and 2 sub functions, I am able to skip MsgBox if the call Macro name has triggered error message. However when call macro name has been transferred to UserForm platform, it will be no longer applicable due to variable (FindWhom) in UserForm has not recognized in the Module (Main Sub). The main purpose of using UserForm is to create progress indicator

Is there any alternative method? Here is a simple description of my problem..

Option Explicit
Dim FindWhom As Integer

Sub openFile()

  Call PopulateData
  If FindWhom <> 1 Then MsgBox "Data sucessfully updated"
End Sub




Sub PopulateData()
Dim i As Integer, j As Integer

If i <> j Then GoTo GetNext

    MsgBox "Found error due to data have not been added"
    FindWhom = 1
    Exit Sub

GetNext:
End Sub

[Richard Buttrey]

Hi,

Have you tried declaring it as a Public variable?

[Faridwahidi]

Hi Richard,

I have tested and it working fine

In a proper manner, public variable supposed to be declared in the Main Sub or UserForm or both?

or if without using this method, any best alternative method to skip MsgBox for such problem

[Richard Buttrey]

Hi,

By its very nature a Public variable can't be displayed in a procedure it needs to be placed at the Module level.
You can also choose to pass a value when you call another procedure and use that value in a variable that's declared in the second procedure.

i.e.

Call MyOtherProcedure("Yes")

Sub MyOtherProcedure(myVariable as String)
   Msgbox myVariable ' will result in "Yes"

End Sub

If you're interested in the full War and Peace story on the scope of variables then see here...https://support.microsoft.com/en-gb/kb/141693

[Faridwahidi]

Hi,

Thank you sir.