You could create an add-in (".xla"), that you load it every time you open excel, with formulas you use often that are not defined by Microsoft but by you.
e.g. function Quarter(date, type)
What the below code does is to take the date and convert it into a string with a certain format:
if type is 0, then it will be e.g. CY14Q1
if type is 1, then it will be e.g. FY14Q1
Function Quarter(datDate As Date, intType As Byte) As String
Dim strQ As String
Dim strType As String
'strType = 0 for CY (Calendar Year) or 1 for FY (Fiscal Year)
'datDate = 01.01.2014
If intType = 0 Then strType = "CY" & Right(Year(datDate), 2)
If intType = 1 Then
If Month(datDate) > 3 Then
strType = "FY" & Right(Year(datDate) + 1, 2)
Else
strType = "FY" & Right(Year(datDate), 2)
End If
End If
If intType <> 0 And intType <> 1 Then Err.Raise (vbObjectError + 513)
Select Case Month(datDate)
Case 1 To 3
If intType = 0 Then strQ = "Q1"
If intType = 1 Then strQ = "Q4"
Case 4 To 6
If intType = 0 Then strQ = "Q2"
If intType = 1 Then strQ = "Q1"
Case 7 To 9
If intType = 0 Then strQ = "Q3"
If intType = 1 Then strQ = "Q2"
Case 10 To 12
If intType = 0 Then strQ = "Q4"
If intType = 1 Then strQ = "Q3"
End Select
Quarter = strType & strQ
End Function
Good luck
Bookmarks