In this post we will learn how to use the Advanced Filter option using VBA to allow us to filter our data on a separate sheet. This has been requested by a lot of our readers and here is how we will use them.
What we need to get this done.
1. Some data that we need filtering on.
2. Define what options we need as drop down lists
3. A cup of coffee
In the sample data, I have defined 4 options to be available as drop down list; this has been done by creating a new sheet called as “Master”. I then copied the existing columns data into this sheet and used the Remove Duplicates feature to get the unique list of items that was required for the drop downs.
The named ranges were created using the INDEX function as shown below
Named Range | Formula |
prd | =Master!$A$2:INDEX(Master!$A:$A,COUNTA(Master!$A:$A)) |
rgn | =Master!$B$2:INDEX(Master!$B:$B,COUNTA(Master!$B:$B)) |
cust | =Master!$C$2:INDEX(Master!$C:$C,COUNTA(Master!$C:$C)) |
agnt | =Master!$D$2:INDEX(Master!$D:$D,COUNTA(Master!$D:$D)) |
Now we need to setup the sheet where we need the filtered data to be displayed. Headings were put in cells B5 to B8 and the drop down (using the Data Validation—List) feature was put in cells C5 to C8. Now we need to create or criteria fields in the RawData sheet, this is a requirement and cannot be any place else. When you use the Advanced Filter dialog box and try to place the output onto another sheet Excel will display a message saying “You can only copy data to the Active Sheet”. We will overcome this limit by using VBA and telling Excel where to put the filtered data. I used the cells M1 to P1 to define the headings and cells M2 to P2 to get the actual options from the “Filter Sheet”
Cells | Formula |
M2 | =Filter!C5 |
N2 | =Filter!C6 |
O2 | =Filter!C7 |
P2 | =Filter!C8 |
Macro to run advanced filter and extract data
Sub FilterData()
Sheets("Filter").Select
Range("B10").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear
Sheets(“RawData”).Range(“Table1[#All]”).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets(“RawData”).Range(“M1:P2”), CopyToRange:=Sheets(“Filter”).Range(“B10”), Unique:=True
Columns.AutoFit
Range(“B10”).Select
End Sub
First we ensure the current filtered data (in any) is cleared out before we run the code again and then we get the new filtered data from cell B10 onwards. Now let’s understand the actual code that filters our data here.
Sheets("RawData").Range("Table1[#All]").AdvancedFilter
Action:=xlFilterCopy,
CriteriaRange:=Sheets("RawData").Range("M1:P2"),
CopyToRange:=Sheets("Filter").Range("B10"),
Unique:=True
We converted our raw data into an excel table (Structured Reference Structured Reference), by doing this we no longer need to know how many rows our data actually goes down to, the “Table1[#All]” takes care of that for us.
We also need to specify that our data is in another sheet and we are trying to run Advanced Filter on that data range, this is done using the first line ” Sheets(“RawData”).Range(“Table1[#All]”).AdvancedFilter “.
Next we specify the action that we need which is Copy in our case, the other option is “xlFilterInPlace” which would filter right on our data itself.
Then we have specified the Criteria Range (which needs to be on the same sheet where the data is).
And finally we have specified where the output has to be sent to by using : “CopyToRange:=Sheets(“Filter”).Range(“B10″)”
We have also made sure that only Unique records are returned to us by turning Unique:=True.
Download Advanced Filter Demo File
Click here to download the demo file & use it to understand this technique.
Do you use Advanced filters to extract sub-sets of data?
Advanced filters are very powerful and very simple to setup. I use them often to quickly extract what I want.
What about you? Do you use them often? Please share your experiences, techniques & ideas using comments.
Learn more about extracting / consolidating data using VBA
Data extraction and consolidation are one of the most common activities done by reporting professionals & analysts. No wonder we speak about these areas a lot here too. Please check out these pages to learn more:
- Split an excel file in to many using Advanced Filters & VBA [with video]
- Move data from one sheet to many using VBA
- Split text on new line using VBA
- Consolidate data from multiple files in to one using VBA Macros
Want to lean more? Consider joining our VBA Classes
If you would like to learn more about VBA programming, Excel automation, creation of user forms, manipulating data in Access thru Excel etc., consider joining our online VBA Classes. This step-by-step program helps you become awesome in VBA.
27 Responses to “How to Embed Youtube videos in to Excel Workbooks?”
Thank you!!
The trick is to get that URL for video. Some videos have this feature disabled... hmm...
very cool. how did you record what you do on Excel? it didn't seem like you was using a camcorders.
This is a great tip. Is it possible to insert a PDF on an excel worksheet? I usually receive quotations in pdf format, and would like to show the quote on a worksheet, rather than using hyperlinks. Any and all help would be greatly appreciated.
Your instructions didn't work for me, ether in Excel 2010 or 2007, and I tried several times, following the instructions very carefully and to the letter.
What I found out is that, for some odd reason, copying the YouTube URL then adding the ?fs=1&hl=en_US to the end would not work at all for me.
But if I went to the Embed code in YouTube and copied value parameter (minus quotes) and pasted it into the movie property, the movie would play. The Embed code value parameter includes the link and the extra bit you included at the end. No need to copy that as an extra step.
Best feedback on here. Worked like a charm after removing extra YT code. Thanks..
@Gregory,
Thanks your instructions.
I have carefully followed the Instructions mentioned by you and still i am unable to do embed the video in excel.
Please help and your immedate reply will be higly appreceiable.
Regards
Sonu Monga
A Chartered Accountant
If you are using excel 2010 or higher. then there is nothing like Shockwave flash player.
In that case you have to use windows media player.
There is a control naming Windows Media Player in that list.
Insert that contol and then open properties and insert link in URL.
It will work.
@Gregory,
Thanks your instructions.
I have carefully followed the Instructions mentioned by you and still i am unable to do embed the video in excel.
Please help and your immedate reply will be higly appreceiable.
Regards
Sonu Monga
Chartered Accountant
It wouldn't play because you need to indicate the exact location of flash file....by 'Embedding' the file, you get the the exact URL, so it can be played....some videos can't be 'embedded' that's why it won't work....
My developer tools does not list a control for "Shockwave flash object". Where/How do I find it?
Hi Chandoo,
why don't use OCX Window media player ???
you can play your own local video or music
just indicate exact location (Full path or URL)
i.e :
C:\Users\Public\Music\Sample Music\Kalimba.mp3
C:\Users\Public\Videos\Sample Videos\Wildlife.wmv
with macro and userform :
Sub PlayMedia()
On Error Resume Next
UserForm1.WindowsMediaPlayer1.URL = ThisWorkbook.Path & "/" & ActiveCell.Value
' ----- or
' ----- UserForm1.WindowsMediaPlayer1.URL = Exact location
End Sub
Very cool. I also could not get the instructions to work, but was able to use Gregory's suggestion about the embed code. Thanks for posting!
Thanks Chandoo. This is very cool. I was able to make it work using the embed code copying from http: up to _US as you indicated. This is a great way to provide additional training or message as you package your deliverable.
[...] Trying to become a bit flashier with your dashboards? Maybe you’re just looking to include additional material. Take a look at this quick tool to embed YouTube videos in excel workbooks. [...]
Hi Chandoo,
Excellent tip. Very useful.
Is there anyway to link the path in the properties to a cell value so that the user can select the video from a drop down and then have the video play?
Thanks Myles.... to link the path to a cell, I guess you need to use macros..
nothing happend in Embed Youtube videos in to Excel Workbooks, it shows only white blank screen.
Hi Chandoo, How Do I put more than one URL in movie field?
Hi Chandoo,
very good tip.
But how do I start the embeded video in an xlsm file once the tab is selected or through VBA programming?
Appreciating your answer
Steve
Query:
I have created 4 sheets excel file, but when i print this file to PDF it generates two sheets one PDF and two Sheets one PDF … can i know the setting which i had to change. because i want all 4 sheets in one PDF
while Printing i did setting as "Print Entire Workbook"
Awaiting for your reply.
Help!! THis works great, but I'm trying to use VBA to change the URL, which I can do. The problem I am having is getting it to play via VBA.
The object has both .play and .playing = true properties, but neither will actually play the video after updating the .movie url. The correct video appears within the object, but I can't get it to play from VBA... which I really need it to do.. Thoughts?
Hello
Go to Developerr tab and select more control then find windows media player just click it.
after that you have to right click on the embeded object and select properties there you need to add your video file path.(dont forget to include extension like .avi, .mov etc.) in URL field. Then Press Alt+11 and deselct design mode. Once you close the module your video start playing.....
For the life of me, I cannot get this to work. I have followed Chandoos instructions to the letter and also tried using the embed code as Gregory suggested, all I get is a blank white box where the video should be. Is there any other reason that this might not work? Flash version perhaps? Quite frustrating.
Hi I was wondering if was a way after adding a video if one could save to HTML format and it would work?
Hi Chandoo,
This is very helpful, however, is there a way to auto-play the embedded youtube video as soon as somebody opens the excel file? Can you share the macro for the same?
Hi,
Very cool, how is it possible to start automatically the video when the excel sheet is open?
I would like to start the video when i open the worksheet :).
Best regards.
Hello
When trying this method, I got Flash-embedded videos are no longer supported. Is there a solution for this problem?