Exit from main sub

[Chandrasheka]

Hi,

I have main sub and I am checking conditions in another sub how to exit main sub. Please help me out on this.

Please find attached file.

Thanks

Chandra Shekar

[Bob Phillips]

Use a function, along these lines


Sub First_Proc()

If fnTest Then

'do some stuff
End If
End Sub

Function fnTest()

'some code to do the test and return True if conditions met
End Function

[slamet Harto]

Do you want to filter between date ? how about this

Sub Filterdate()
Dim Frmdt As Date, todt As Long
Frmdt = DateSerial(Day(Range("C3")), Month(Range("C3")), Year(Range("C3")))
todt = DateSerial(Month(Sheets(2).Range("C4")), Day(Sheets(2).Range("C4")), Year(Sheets(2).Range("C4")))
If Worksheets(2).AutoFilterMode = True Then
Worksheets(2).Range("A1").AutoFilter
End If
If ThisWorkbook.Worksheets(1).Cells(3, 3) <> "" Or ThisWorkbook.Worksheets(1).Cells(4, 3) <> "" Then
ThisWorkbook.Worksheets(2).Range("B1").AutoFilter field:=2, Criteria1:=">=" & todt
Else

Exit Sub

End If
End Sub

[Chandrasheka]

Hi,

I need this task to be done without using Fuction.

Thanks

[Bob Phillips]

Why?

[Chandrasheka]

Sometime I want to return more than one value.

Thanks

Chandra Shekar

[Bob Phillips]

Functions can return multiple values.

[Chandrasheka]

Hi,

I am not aware of this. Please can you give a small example like this.

Thanks

Chandra Shekar

[Bob Phillips]

Sub Caller()
Dim x, y

x = 17
y = 18
Call fnCalled(x, y)
MsgBox x & ", " & y
End Sub

Function fnCalled(ByRef arg1, ByRef arg2)

arg1 = 99
arg2 = 101
End Function

[mikerickson]

Using End rather than Exit Sub will halt the entire process.
Sub Main()
' ...
Call otherRoutine()
' ...
End Sub

Sub otherRoutine()
' ...
If condition Then
End
End If
' ...
End Sub

[Chandrasheka]

Thanks a lot for all.