VBA Coding - any ideas why this UDFs not working?
 

Function MyStatus(Status1 As Variant, Status2 As Variant)

If (Status1 = "n/a") And (Status2 = "n/a") Then
Result = "Authorised"

Else

If (Status1 = "n/a") And (Status2 < " ") Then
Result = "Misc"

Else

If (Status1 = "Pending") And (Status2 = "n/a") Then
Result = "Pending"

Else

If (Status1 = "Waiting Auth") And (Status2 = "n/a") Then
Result = "Pending"




End If
End If
End If
End If

Result = MyStatus


End Function

Mystatus invloved status1 and status2, which are lookup into different
sheets, basically if the lookup is #n/a then it brings back "n/a"

The result is coming back 0??

Any ideas? Thanks.


--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=475038

VBA Coding - any ideas why this UDFs not working?
 

Use MyStatus instead of Result

The Result syntax is not VBA

Niek Otten

"harpscardiff"
wrote in message
...

Function MyStatus(Status1 As Variant, Status2 As Variant)

If (Status1 = "n/a") And (Status2 = "n/a") Then
Result = "Authorised"

Else

If (Status1 = "n/a") And (Status2 < " ") Then
Result = "Misc"

Else

If (Status1 = "Pending") And (Status2 = "n/a") Then
Result = "Pending"

Else

If (Status1 = "Waiting Auth") And (Status2 = "n/a") Then
Result = "Pending"




End If
End If
End If
End If

Result = MyStatus


End Function

Mystatus invloved status1 and status2, which are lookup into different
sheets, basically if the lookup is #n/a then it brings back "n/a"

The result is coming back 0??

Any ideas? Thanks.


--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile:
http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=475038

VBA Coding - any ideas why this UDFs not working?
 

harpscardiff wrote:



Result = MyStatus


The other way around? MyStatus = Result...

/impslayer

VBA Coding - any ideas why this UDFs not working?
 

You never assign a value to MYSTATUS. Try replacing the last statemen
with MYSTATUS=resul

--
MrShort
-----------------------------------------------------------------------
MrShorty's Profile: http://www.excelforum.com/member.php...fo&userid=2218
View this thread: http://www.excelforum.com/showthread.php?threadid=47503

VBA Coding - any ideas why this UDFs not working?
 

Cheers guys - wors a treat

--
harpscardif
-----------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...fo&userid=2596
View this thread: http://www.excelforum.com/showthread.php?threadid=47503

VBA Coding - any ideas why this UDFs not working?
 

Hi guys,

In my vba code I want to add another statement to say to say somethin
like:


Code
-------------------


If (Status1 = "n/a") And Status2 = "System Error" Like "?System*" Then

MyStatus = "System Error"


-------------------


Basically if status2 contains System error then MyStatus = "Syste
Error"

Thanks for your help

--
harpscardif
-----------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...fo&userid=2596
View this thread: http://www.excelforum.com/showthread.php?threadid=47503