In January a friend asked me to assist with a small Excel assignment.
Her company wanted to add a Calendar control to a worksheet so that people could interactively select a date. I have never understood why people like this as nothing is quicker than typing a date as 7/4/14 and letting excel sort it out. But hey, that’s what the client wants.
The issue was that it had to work in every version of Excel from Excel 2002/XP to Excel 2013.
As anybody who has used the Calendar controls in Excel VBA Knows, they rarely work between versions and often require VBA references to be added/changed and DLL’s downloaded to make them work.
This model had to be able to be opened across all the Excel versions from Excel 2002/XP to Excel 13 and even transferred from one version to another regularly.
After struggling with the concept a while I threw away the Calendar Control idea and decided to plagiarise Chandoo’s 2014 Calendar.
Hui’s Chandoo’s Calendar Tool
Every year Chandoo releases a Yearly Calendar as a small gift to his readers. The 2014 calendar is available here.
It has all the facilities of a calendar using simple worksheet functions and Named Formula, and it doesn’t use VBA.
So, why not add a bit of generic VBA and use this as a Calendar selection tool?
The Process
Chandoo’s 2014 Calendar was stripped down to its absolute basic being 2 worksheets and a number of named Formulas which controlled the calculations.
The idea was to:
- Let the user to Select a cell, where they want to enter a date, It can be any cell on any worksheet.
- Press a Calendar Button or or Double Click on the cell and be taken to a Calendar.
- Select a date in the Calendar.
- Have a level of validation/acceptance of certain dates and rejection of other dates.
- Be taken back to the original worksheet and have the date placed into the original cell.
The calendar should pop up and be hidden by VBA code and shouldn’t require the user to know how to do that.
The Calendar had to have a level of user ability to modify the selection criteria and obviously the active year.
The calendar shouldn’t be reliant on any Addins, DLL’s or other external files.
Lets have a look at the components.
The Components
The following description and images use a sample file which you can Download here.
The File is compatible with all PC Excel versions but your screens may look slightly different in different versions, mostly colors are rendered slightly differently.
If you use a Mac Excel version, please let us know how this goes?
The Interface
The Interface is simple, You select a cell where you want to insert a date and press the Calendar Button or Double Click the cell:
The calendar Button uses some simple VBA to store the names of the worksheet and cell where the cursor was when the button was pressed and then opens the Calendar sheet by un-hiding it (making it visible) as per below:
The above image shows the calendar.
This user wanted to only allow Fridays or Saturdays to be selected and so they are manually colored Yellow.
If you select any non-yellow cell – Nothing happens
If you select any yellow cell – That date is returned to your original location
Click on the Year and change it to another value to change years
Selecting the Close button closes the calendar and returns you to your original location with no changes.
You can change the Dates that are allowable to be selectable by either changing the VBA or Selecting Multiple cells and coloring as appropriate.
The Calendar
This Calendar tool in it’s most basic format consists of three Worksheets My Worksheet, Calendar and Mini
My Worksheet is a worksheet where I want to use the date and do my work
Mini is a Row by Row version of the calendar, it remains hidden at all times but it is busy in the background calculating the dates
Calendar is simply a display of the Mini Data in a convenient 12 Month layout
The Calendar worksheet is where the user can select a Date. If the date is Valid (Yellow), the user selected date is returned to the original worksheet and cell, otherwise the user remains on the Calendar worksheet
The relationship between the Mini and Calendar is all handled by Named Formula which the user doesn’t need to worry about
The VBA
My Worksheet
My Worksheet is a user area where the user is doing his work.
The user can invoke the Calendar Tool in two ways
- Select any Cell and press the Calendar Button; or
- Select any Cell and double click it
If the user uses method 1, pressing the calendar Button calls the Show_Calendar subroutine
If the user uses method 2, Double clicking a cell, the Worksheet_BeforeDoubleClick() event is triggered on the My Worksheet VBA Code Module
The Worksheet_BeforeDoubleClick() event simply calls the Show_Calendar subroutine
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Show_Calendar
End Sub
The Show_Calendar() subroutine in the Calendar_Modules VBA code module subroutine has 2 tasks to perform:
The 2 tasks are to store the location of the cell that the user wants the date in. It is stored in two variables mySht and myRng
These two variables are defined outside the Show_Calendar() subroutine and are declared as Public
This means they are available to all subroutines in the workbook.
Public mySht As String
Public myRng As String
Sub Show_Calendar()
mysht = ActiveSheet.Name
myRng = ActiveCell.Address
Sheets("Calendar").Visible = True
Sheets("Calendar").Select
End Sub
Calendar
Once on the Calendar two subroutines control the users interaction.
The Worksheet_SelectionChange() and Close_Calendar() subroutines control the users interactions as described below:
The main interaction is controlled by a Worksheet_SelectionChange() event in the calendar Worksheet VBA Code module.
Put simply it monitors when a selection changes and reacts accordingly
If a user selects multiple cells it is ignored
If a user selects a non-Yellow cell it is ignored
If a user selects a Yellow cell the subroutine sets the original users cell to the value of the selected date and formats the cell as appropriate
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Interior.Color = 65535 Then 'Set Cell Color requirement here
Sheets(mysht).Range(myRng) = Target
With Sheets(mysht).Range(myRng)
.NumberFormat = "m/d/yyyy" 'Set cells Date format here
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Sheets("Calendar").Visible = False
Sheets(mysht).Select
End If
End Sub
The Close_Calendar() subroutine is called when the Close Button is selected
It simply hides the Calendar Worksheet and returns the user to the Original worksheet he was working on
Sub Close_Calendar()
Sheets("Calendar").Visible = False Sheets(mysht).Select \
End Sub
If you want to enable a user to select any date you can either
1. Set all valid dates to have a color Yellow
2. Remove the date checking section of the code. Comment out the two Lines colored in Red Below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
'If Target.Interior.Color = 65535 Then 'Set Cell Color requirement here
Sheets(mysht).Range(myRng) = Target
With Sheets(mysht).Range(myRng)
.NumberFormat = "m/d/yyyy" 'Set cells Date format here
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Sheets("Calendar").Visible = False
Sheets(mysht).Select
'End If
End Sub
The Final Product
Other Calendar Posts
Chandoo has written a number of posts on calendars, some are shown below:
http://chandoo.org/wp/2013/11/13/pop-up-calendar-excel-vba/
http://chandoo.org/wp/2012/09/12/interactive-pivot-calendar/
http://chandoo.org/wp/tag/printable-calendar/
Conclusion
This workbook has been tested in all versions of PC versions of Excel from 2002 to 2013 and it works a treat.
It is an Excel XLS file and runs in compatibility mode in Excel 2007+
You are free to use and extend it as required.
40 Responses to “Looking up when the data won’t co-operate (case study)”
Nice Trick.. Clever use of cell references
Here is a formula I tried to create:
=SUMPRODUCT(((NOT(ISERROR(SEARCH(L5,B4:H14))))*1),(B5:H15))
It takes care of Caveat #1 (can handle text), but Caveat #2 remains.
In situations like this, I will often use VBA to restructure the data (2 columns: dates and values) on to a new worksheet. I can then use this 'clean' source for data analysis (formula or pivot table).
=SUMPRODUCT(((NOT(ISERROR(SEARCH(L5,B4:H14))))*1),(B5:H15)) and complex formulae in general are all very well but when you come back to them in a few weeks / months time, it is not at all easy to see what they do and what the limitations are.
Hi Chandoo,
I had used this type of cell ref. various times while calculating average.
But for the situation here try below formula . Note this is an array formula and must be confirmed with Ctrl+Shift+Enter.
=SMALL(IF(MMULT((L5=B4:H14)*IF(ISNUMBER(B5:H15),B5:H15),{1;1;1;1;1;1;1}),MMULT((L5=B4:H14)*IF(ISNUMBER(B5:H15),B5:H15),{1;1;1;1;1;1;1})),1)
Regards,
Hi, I think Using SEARCH in here will create a problem say there is a text like SUN and another text SUNLIGHT both result will be added by SUMPRODUCT.
Regards,
Array option.
=SUM(IF(MOD(ROW(B4:B14),2)=MOD(ROW(B4),2),IF(B4:H14=L5,B5:H15)))
Regards
@Elias,
Nice approach.
Although not requested - the formula I suggested closes all possibilities.
Criteria: _____ Value to retrieve:
Date__________ Numeric
Date__________Textual
Textual________Numeric
Textual________Textual
While your formula copes with only the 3 first combinations.
Michael (Micky) Avidan
“Microsoft® Answer” – Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2015)
ISRAEL
@Michael,
Sorry but I don’t understand your point. I believe the challenge was to return the summary of a given date. What is your really volatile formula doing that mine is not?
Regards
@Elias,
I didn't say that the challenge differs from what you just mentioned/aimed to nor that your formula doesn't provide the requested result.
Please read my previous comment again and focus on the last combination (TEXT / TEXT).
I, myself, always try to provide a global Formula that is capable to handle all sorts of data.
Michael (Micky) Avidan
“Microsoft® Answer” – Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2015)
ISRAEL
@Michael,
I see your point, but you are missing the below points if you are trying to cover all sorts of data.
What happened if the lookup value does not exist?
Do you want the first, second, summary, concatenation of the values if the look value is repeated?
See they are too many possibilities to be cover with just one formula.
Regards
1) The range: B4:H15 was named: RNG.
2) The following Array Formula was "retrieved from my sleeve" and I hope it can be shorten.
3) The formula seems to take care of BOTH(!) caveats.
-------------------------------------------------------------------------------
=OFFSET(INDIRECT(ADDRESS(SMALL(IF(RNG=L5,ROW(RNG),""),1),MOD(SMALL(IF(RNG=L5,(ROW(RNG))+COLUMN(RNG)/10),1),1)*10)),1,)
-------------------------------------------------------------------------------
Michael (Micky) Avidan
“Microsoft® Answer” – Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2015)
ISRAEL
@Michael,
Check what happened with your result if you type 41927 in D5.
Regards
Correct. Didn't predict that.
Will find time to work something out.
Michael (Micky) Avidan
“Microsoft® Answer” – Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2015)
ISRAEL
@Elias,
Let's hope the following Array Formula "closes all open doors".
Again - it has nothing to do with your formula which works fine as long as the 3 first mentioned combinations are concerned.
-------------------------------------------------------------------------------
=INDEX(RNG,LARGE(IF(RNG=L5,MOD(ROW(RNG)-1,2)*(ROW(RNG)),""),1)-2,(MOD(SMALL(IF(RNG=L5,(ROW(RNG))+COLUMN(RNG)/10),1),1)*10)-1)
-------------------------------------------------------------------------------
Michael (Micky) Avidan
“Microsoft® Answer” – Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2015)
ISRAEL
Ok, if you insist. The following will cover all the scenarios you listed. However, I’ll never recommend/use such of formula.
Defined names:
rDat = $B$4:$H$15
rRow =ROW(rDat)-MIN(ROW(rDat))+1
rCol =COLUMN(rDat)-MIN(COLUMN(rDat))+1
rInc =MOD(rRow,2)=MOD(MIN(rRow),2)
L6=INDEX(rDat,MAX(IF(rInc,IF(rDat=L5,rRow)))+1,MAX(IF(rInc,IF(rDat=L5,rCol))))
Array Enter
Regards
@Michael,
unfortunately, your array formula still seems to return wrong results (eg 3-Nov).
If data are organized like in the example, ie. looks like a calendar, the INDEX formula seems quite simple:
=INDEX($B$4:$H$15,ROUNDDOWN((L5-B4)/7,0)*2+2,MOD((L5-B4),7)+1)
Yours is effectively the same as what I just came up with, and I believe this is the optimal answer to this particular problem.
My solution, before I saw yours:
=OFFSET(B5,QUOTIENT(L5-B4,7)*2,MOD(L5-B4,7))
OFFSET will work for an arbitrary list size, but INDEX might be easier to read.
QUOTIENT does the round and division in a single step.
If there's an improvement over Elias's solution then I for one can't see it.
Perhaps a non-CSE version which would also mean that only two references (B4:H14 and B5:H15), as opposed to three (B4, B4:B14 and and B5:H15), would require manually amending should the data range change, i.e.:
=SUMPRODUCT((ISEVEN(ROW(B4:H14)-MIN(ROW(B4:H14)))*(B4:H14=L5)*B5:H15))
I suppose we could make it a single, uniform range reference:
=SUMPRODUCT((ISEVEN(ROW(B4:H14)-MIN(ROW(B4:H14)))*(B4:H14=L5)*OFFSET(B4:H14,1,,,)))
which might be more appropriate should we e.g. wish to use a Defined Name for our range, i.e.:
=SUMPRODUCT((ISEVEN(ROW(Rng)-MIN(ROW(Rng)))*(Rng=L5)*OFFSET(Rng,1,,,)))
though whether that compensates for the extra, volatile function call is something to be debated.
Regards
I have tried something and then my Excel workbooks got shut down. Maybe that was too much?
Anyway here is what I've tried:
=SUMPRODUCT(INDEX(B5:H15;IF(ISEVEN(ROW(B5:H15));ROW(B5:B15)-ROW(B5)+1);{1\2\3\4\5\6\7}))
Guess that was wrong? Would this approach work anyway?
Looking forward to learn something from you Excel Experts.
Sorry, I haven't took notice of XOR LX's answer. I guess that's kind of what I was looking for.
@Michael Avidan
As it stands that is not a very rigorous construction.
You say "I, myself, always try to provide a global Formula that is capable to handle all sorts of data", which is a wonderful philosophy, but isn't it at least as important that we ensure that our formulas are independent of the row and column references of the data range in question, so that, should that range change, we do not have to re-work our solution?
What happens with your formula, for example, if RNG is instead re-located one row down, from B4:H15 to B5:H16?
When a formula is reliant upon the addition/subtraction of certain constants within the formula, which themselves are necessarily dependent upon the specific rows/columns in which the data lies at any given time (e.g. the -1 in MOD(ROW(RNG)-1,2)), then that formula is not a very flexible one.
Hence the reason for my choice of a slightly longer construction:
ROW(B4:H14)-MIN(ROW(B4:H14))
which ensures that this part of the calculation is not dependent upon the precise location of the data range within the worksheet, and so will give correct answers even if that range is re-located.
Regards
{=OFFSET(B4,MAX((B4:H15=L5)*ISODD(ROW(1:12))*ROW(1:12)),MAX((B4:H15=L5)*ISODD(ROW(1:12))*COLUMN(A:G))-1)}
Non-array formula:
=INDEX(B4:H15,SUMPRODUCT((B4:H15=L5)*(ROW(B4:H15)-ROW(B4)+1)*ISODD(ROW(B4:H15)-ROW(B4)+1))+1,SUMPRODUCT((B4:H15=L5)*(COLUMN(B4:H15)-COLUMN(B4)+1)*ISODD(ROW(B4:H15)-ROW(B4)+1)))
Using one range (B4:H15), one reference (B4), one lookup value (L5) and no INDIRECT or OFFSET.
My trial with defined names:
DateRange
=$B$4:$H$4,$B$6:$H$6,$B$8:$H$8,$B$10:$H$10,$B$12:$H$12,$B$14:$H$14
Position
=RANK('lookup problem'!$L$5,DateRange,1)
L6
=OFFSET(B4,ROUNDUP(Position/7,0)*2- 1,IF(MOD(Position,7)=0,6,MOD(Position,7)-1))
I'd probably just run with something like:
=SUMPRODUCT((B4:H14=L5)*(MOD(ROW(B4:H14),2)=MOD(ROW(B4),2))*B5:H15)
...which is basically the same as Elias' but without the IFs
The opposite of elegant but it works...
=INDEX(B4:H15,IFERROR(MATCH(L5,B4:B14,0),0)+IFERROR(MATCH(L5,C4:C14,0),0)+IFERROR(MATCH(L5,D4:D14,0),0)+IFERROR(MATCH(L5,E4:E14,0),0)+IFERROR(MATCH(L5,F4:F14,0),0)+IFERROR(MATCH(L5,G4:G14,0),0)+IFERROR(MATCH(L5,H4:H14,0),0)+1,IFERROR(MATCH(L5,B4:H4,0),0)+IFERROR(MATCH(L5,B6:H6,0),0)+IFERROR(MATCH(L5,B8:H8,0),0)+IFERROR(MATCH(L5,B10:H10,0),0)+IFERROR(MATCH(L5,B12:H12,0),0)+IFERROR(MATCH(L5,B14:H14,0),0))
=INDEX(B4:H15,
IFERROR(MATCH(L5,B4:B14,0),0)+
IFERROR(MATCH(L5,C4:C14,0),0)+
IFERROR(MATCH(L5,D4:D14,0),0)+
IFERROR(MATCH(L5,E4:E14,0),0)+
IFERROR(MATCH(L5,F4:F14,0),0)+
IFERROR(MATCH(L5,G4:G14,0),0)+
IFERROR(MATCH(L5,H4:H14,0),0)+1,
IFERROR(MATCH(L5,B4:H4,0),0)+
IFERROR(MATCH(L5,B6:H6,0),0)+
IFERROR(MATCH(L5,B8:H8,0),0)+
IFERROR(MATCH(L5,B10:H10,0),0)+
IFERROR(MATCH(L5,B12:H12,0),0)+
IFERROR(MATCH(L5,B14:H14,0),0))
Named Range
rownum = SUMPRODUCT(('lookup problem'!$B$4:$H$14='lookup problem'!$L$5)*ROW('lookup problem'!$B$4:$H$14)*ISEVEN(ROW('lookup problem'!$B$4:$H$14)))
Formula
=OFFSET($A$1,rownum,MATCH(L5,INDIRECT("$B"&rownum&":$H"&rownum),0))
How about SUM(IF(B4:H14=L5,B5:H15)) with array..it should work
Sorry, Chandoo, you can't find stuff this way in every possible scenario.
What if 2014-10-01 sales would equal 41.927 ? Which is serial number for 2014-10-15 ? SUMIF would fail to retrive correct answer. And your example data suggest that such number is possible in your table.
It's better not to search through dates and numbers at the same time.
If I'd solve a problem like this, it'd reformat table first so I get one column with dates and the other with numbers.
In this case, formula to form date column would be:
=INDIRECT(ADDRESS((INT((ROW()-4)/COUNT($B$4:$H$4))+1)*2+2;MOD(ROW()-4;COUNT($B$4:$H$4))+2;4;1))
and numbers would be the same formula with sight adjustment (+3 instead of +2 at the end of first argument):
=INDIRECT(ADDRESS((INT((ROW()-4)/COUNT($B$4:$H$4))+1)*2+3;MOD(ROW()-4;COUNT($B$4:$H$4))+2;4;1))
And now you got two columns that you can safely use for searching!
Oops, sorry, you actually mentioned that it doesn't work if number=date! I missed that part 🙁
={OFFSET(A1,SUM((B4:H14=L5)*ROW((B4:H14))),SUM((B4:H14=L5)*COLUMN((B4:H14)))-1)}
Works for all data... the solution I got for indirect looks little lengthy
I want to count last 20 records of a person, whose marks is greater than 2 and grade "manager". ....
Assume A1 has got names (James, John...etc...)
A2 "Manager"
A3 "2"
Someone please reply
I want to count last 20 records of a person, whose marks is greater than "2" and grade "Manager"
Assume A1 "geroge" A2 "Michael" A3 "George" etc...name can found anywhere in the rows
B1 "Manager" B2" clerk"
C1 "2" C2, "4"
please reply
Simplest I can come up with. No limitations for either 1 or 2. This does assume dates are an ordered list with 7 per row, and 2 rows per set. Assuming this is always true this will work for an arbitrary long list of dates.
=OFFSET(B5,QUOTIENT($L$5-$B$4,7)*2,MOD($L$5-$B$4,7))
@Marc,
Nice approach - however, as there are no "Negative Dates" - try:
=OFFSET(B5,INT(L5-B4)/7)*2,MOD(L5-B4,7))
——————————————————————————-
Michael (Micky) Avidan
“Microsoft® Answer” – Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2015)
ISRAEL
=OFFSET(B4,ROUNDUP((L5-41911+1)/7,0)*2-1,MOD(L5-41911,7))
B4 has been used as reference cell for OFFSET().
FOR ROWS:
ROUNDUP(....,0) gives the integer value of a division. In case of presence of a remainder, ROUNDUP will add 1 to the Quotient.
As opposed to ROUNDUP(), the INT() or QUOTIENT() functions eliminate the remainder.
41911 = 01-Sept-2014, the first date in the data.
*2 has been used because there are 2 columns per set of data.
/7 has been used because there are 7 columns per set of data.
For columns
MOD(L5-41911,7))
Vijaykumar Shetye,
Panaji, Goa, India
This is how i did it
{=INDEX(B4:H15, MAX((L5=B4:H15)*ROW(B4:H15))-2, MAX((L5=B4:H15)*COLUMN(B4:H15))-1 )}
Here's my solution:
=INDEX(B4:H15,MATCH(1,MMULT(--(B4:H15=L5),TRANSPOSE(COLUMN(B4:H15)^0)),0)+1,MATCH(1,MMULT(TRANSPOSE(--(B4:H15=L5)),ROW(B4:H15)^0),0))
Sorry, forgot to mention Ctrl Shift Enter is needed.