Last seen: Jun 12, 2026
You could also do this with a UDF: Function ColourShape(theValue As Double, ShapeName As String) With Application.Caller.Worksheet.Shapes(Shap...
You should remove the bold line completely. The path is supplied when you call that routine - the routine should not change it.
What happens if you get to ZA99?
It's Velouria, not Velouris. 😉 Given the name of the sample file you posted, do you have a folder called: H:PROJECT-OPSMultipleUsersI...
FWIW, you could simplify E2 to: =LEFT(A2,FIND("-",A2&"-")-1)
You're still missing a backslash on the end of your FileControllerFolder constant.
You'll probably need a menu system for running those macros, since macros in an add-in do not appear in the macros dialog.
Your Const line is completely wrong. It should be: Const FileControlFolder As String = "C:DatabaseFilesInUse"
What result do you want for dates that are not within any of the term periods?
To cater for either format you could use: =IFERROR(VLOOKUP(TEXT(J4,"0"),C:D,2,0),VLOOKUP(J4,C:D,2,0))
For what it's worth, you could also do this: =IF(MONTH(T2)=1,YEAR(T2)-1,IF(TEXT(T2,"mmdd")>="0915",YEAR(T2),"Out of season"))
They should work, assuming you enable content when opening the attachment from the email. However, any code in the Workbook_Open event that uses Appli...
I'd do something like this: =IF(AND(MONTH(T2)>1,TEXT(T2,"mmdd")<"0915"),"Outside Season",IF(MONTH(T2)<9,YEAR(T2)-1,YEAR(T2))) By for...
You could use: =LOOKUP(2,1/SEARCH(H4,$D$3:$D$8)/SEARCH(H3,C3:C8),E3:E8) which doesn't require wildcards to be entered for a partial match.
Just FYI, that would treat the whole of September as part of your season, not just 15th onwards. I don't know how important that is? There is at least...