View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Ben Antonio Ben Antonio is offline
external usenet poster
 
Posts: 1
Default New to functions, 'If' isn't working for me

Hi,
I am trying to write my first function. Tha aim is to add an extra column
and populate it with categories for each record. Hopefully the code below
will help in understanding:

Function undispatched_age_bucket(ByVal business, ByVal Paper_vs_Elec, ByVal
dispatch_age, ByVal credit_paper_benchmark, _
ByVal rates_paper_benchmark, ByVal gme_paper_benchmark, ByVal
other_paper_benchmark) As Variant

If IsNull(business) Or IsNull(Paper_vs_Elec) Or IsNull(dispatch_age)
Then credit_paper_benchmark = ""

If PapervsElec = "p" Then

If business = "Credit" And dispatch_age credit_paper_benchmark Then
undispatched_age_bucket = "" & credit_paper_benchmark
Else
undispatched_age_bucket = "<=" & credit_paper_benchmark
End If

If business = "Rates" And dispatch_age rates_paper_benchmark Then
undispatched_age_bucket = "" & rates_paper_benchmark
Else
undispatched_age_bucket = "<=" & rates_paper_benchmark
End If

If business = "GME" And dispatch_age gme_paper_benchmark Then
undispatched_age_bucket = "" & gme_paper_benchmark
Else
undispatched_age_bucket = "<=" & gme_paper_benchmark
End If

If business = "Other" And dispatch_age other_paper_benchmark Then
undispatched_age_bucket = "" & other_paper_benchmark
Else
undispatched_age_bucket = "<=" & other_paper_benchmark
End If

Else
IsNull (undispatched_age)
End If

End Function


I select the values for 'paper vs elec', 'business' and 'dispatch age' and
type in the values for the benchmarks. When I try to drag the field down it
simply repeats the first value it generates over and over and doesn't seem to
caculate a value.
Can anyone help??
Many thanks in advance.
-Ben