I Made this VBA Code 2,880,952% faster

Подписаться 84 тыс.

Просмотров 24 тыс.

50% 1

I Made this VBA Code 2,880,952% faster
A user recently sent me Excel VBA code that was taking 6 hours to run and asked if I could somehow improve the speed. In this video I show how I made this code run in mere milliseconds with a few changes. If you want to avoid having slow VBA code in the future then this video is a must watch.
💻🔧 #VBA #VBAFast #VBASpeed
Join my course
Effective Excel VBA
▸bit.ly/3wDYEnX
SUBSCRIBE TO THE CHANNEL: bit.ly/36hpTCY
DOWNLOAD THE CODE: shorturl.at/ltxLZ
Useful VBA Shortcut Keys
========================
Debugging:
Compile the code: Alt + D + L OR Alt + D + Enter
Run the code from the current sub: F5
Step into the code line by line: F8
Add a breakpoint to pause the code: F9(or click left margin)
Windows:
View the Immediate Window: Ctrl + G
View the Watch Window: Alt + V + H
View the Properties Window: F4
Switch between Excel and the VBA Editor: Alt + F11
View the Project Explorer Window: Ctrl + R
Writing Code:
Search keyword under cursor: Ctrl + F3
Search the word last searched for: F3
Auto complete word: Ctrl + Space
Get the definition of the item under the cursor: Shift + F2
Go to the last cursor position: Ctrl + Shift + F2
Get the current region on a worksheet: Ctrl + Shift + 8(or Ctrl + *)
To move lines of code to the right(Indent): Tab
To move lines of code to the left(Outdent): Shift + Tab
Delete a Line: Ctrl + Y(note: this clears the clipboard)

Наука

Опубликовано:

6 май 2024

Ссылка:

Скачать:

Готовим ссылку...

Добавить в:

Мой плейлист

Посмотреть позже

Комментарии : 99

@Excelmacromastery Месяц назад

Let me know in the comments below if you would like more videos like this👇

@mikheilchigogidze4224 Месяц назад

This is great. Thanks a lot! Can you please do a video, on how would you schedule an excel macro? Macro to run without opening an excel.

@jastonkong1409 Месяц назад

Your work is very inspiring. You keep me interested in learning VBA. Thank you so much for such selfless sharing! Also, never in a million year i would have thought that simple line of clearing contents could cause that much trouble! lol

@sweetdreams6697 Месяц назад

I loved it

@luiss.l7904 Месяц назад

There is still one thing to work on: combined = data(i,2) & data (i,3) e data(i,4) has a N level of complexity This concatenation operation is done N(loop size) times unecessarily. Use worksheet function to vectorially create a single array with the already concatenated values of all rows.

@markd.9538 Месяц назад

This idea would have come in very handy for me about 4 years ago. I had to write complex (similar to this, but but non-trivial) scripts that ran across invoice support templates that checked and updated columns to the customer's very specific demands. The code had to look across about 120 columns of data, and the spreadsheets contained hundreds of thousands of rows. In the end it all worked but we had the same problem: the constant updates to the sheet during the process slowed it down to a crawl. Come due day, it would eat a huge chunk of the day for the person running and checking it. If I ever have to implement (or refactor) anything like this in the future, I'm going to be doing it your way! Thank you for the great advice here.

@HSkraekelig Месяц назад

Paul, I've been using your web site for hints and tricks for years now. I probably would have stopped at the first fix, but the second is 200% more brilliant. Don't change what doesn't need changing! More please.

@Excelmacromastery Месяц назад

Glad you liked it

@Info-God Месяц назад

The most efficient combination. Dictionaries+Arrays.

@barrygeldham390 Месяц назад

Very interesting Paul. Just a rather pedantic point, 2.8 million percent is not 2.8 million times faster, only a mere 28,000 times faster. Still quite impressive.

@BrittKinsler Месяц назад

Excellent video and looking forward to more! Thanks!

@RobertWoodman 16 дней назад

That was quite impressive, Paul. I use your RU-vid site often for ideas, tips, and tricks.

@janezklun 27 дней назад

Thank you Paula for such useful videos, yes more

@eshaich Месяц назад

Pro as usual. btw I believe you can do it even faster with the "evaluate" VBA function. no loops and it does the calculation for all the range ows at once.

@hammeedabdo.82 Месяц назад

Thank you Paul, we need more videos like this.

@Excelmacromastery Месяц назад

Glad you like it

@stevegarside5026 Месяц назад

Fantastic coding and described in a way that people can understand. Thanks for sharing!

@Excelmacromastery Месяц назад

You're welcome

@user-xx5et3fj7b Месяц назад

That was splendid indeed! Thank you very much!

@Excelmacromastery Месяц назад

Thanks

@Tocotronic000000 Месяц назад

Fantastic tutorial. We need more like this. Keep up the excelent Work. Greetings from germany

@Excelmacromastery Месяц назад

Glad you like it

@RobGijrath Месяц назад

That is very efficient. Please show us more videos like this.

@Excelmacromastery Месяц назад

Thanks Rob

@nadermounir8228 Месяц назад

Brilliant video Thank you very much for your effort and for showing us a real world example. I am currently enrolled in your course (just started)

@Excelmacromastery Месяц назад

Thanks. Glad you like it.

@dantealighieri8031 Месяц назад

You make excel coding very enjoyable to learn. i dont even know half of what you did but it was intriguing.

@Excelmacromastery Месяц назад

Thanks. Glad you like it.

@Info-God Месяц назад

Dictionaries are a just like that: an array organised as you look at a ... dictionary. Try to organise a set of data as a ... dictionary....unique items.

@iincitr Месяц назад

Amazing. Thank you.

@Excelmacromastery Месяц назад

You're welcome

@kapibara2440 Месяц назад

Smart and clean. Great work Paul! Your videos are valuable 🎉

@Excelmacromastery Месяц назад

Thanks

@Excelmacromastery Месяц назад

Thanks

@Elesario Месяц назад

An alternative solution would be to set up a temporary column with a function that can detect whether the item is the first of the group or not, and then use that column to filter the data and clear the visible cells in the first column. Then it's simple to remove the filter and the helper column. It would work best with the calculation mode set manual and triggering the calculation for only the point prior to filtering. In the example provided it's unlikely to be faster, but it might scale better (haven't tested). The reason I suggest this is because moving data between the Excel and VBA engines can be slow, so sometimes you get better performance directly from the Excel calculation system (which is multithreaded), and you're only pushing a few commands at it from VBA's side.

@sudheerallamuri7132 Месяц назад

Thank you Sir.. I like your Vedios ❤❤

@benlinford_work Месяц назад

Love it, Paul!

@Excelmacromastery Месяц назад

Thanks Ben

@mylife1131 Месяц назад

Harika video için teşekkür ederim Paul.

@Excelmacromastery Месяц назад

You're welcome

@brianminder2561 Месяц назад

Excellent! I vote for more.

@Excelmacromastery Месяц назад

Thanks Brian

@rajuhubli2 Месяц назад

Great video sir

@Excelmacromastery Месяц назад

Thanks

@joeburkeson8946 Месяц назад

Easier & faster what's not to like? Another fine tutorial with real world application, thanks.

@Excelmacromastery Месяц назад

You're welcome

@sandeepkothari5000 Месяц назад

SURE, WE LIKE YOUR VIDEOS immensely & wany more

@Excelmacromastery Месяц назад

Thanks Sandeep

@sriranga188 Месяц назад

Yes we need more videos

@Excelmacromastery Месяц назад

Thanks

@daves4026 Месяц назад

Bravo

@dermotbalson Месяц назад

My preference is never to overwrite any original data, both because making an error may lose it forever, and also because in business, work needs to be checked, and you can't do that without the original data.

@notaras1985 Месяц назад

There's zero reason the data will be lost

@sasifexcelsolutions4509 25 дней назад

Hi, thanks for this, question, how would I force only xlsb when the user want to save as a file, I want the dialog picker or with 365 only show xlsb to show, this was possible before 365 but don't know how to do it in 365

@Bhuvan_C_Paranji Месяц назад

Hi Paul, I have one issue from Power Bi data, Its taking long time to execute. please give me any idea to lessthan 1 minute to get the power bi data with filter options.

@egozMaster Месяц назад

you should remove the With statement as well

@stevetatterton Месяц назад

Do you need to use LBound of the arrays when it will be 1 unless you specify otherwise, which you don't do here as it's not needed? Or is iterating from LBound to UBound seen as more elegant? I would find 1 easier to use as the For statement is then less cumbersome.

@Excelmacromastery Месяц назад

Using lbound is a defensive measure in case a zero based array used. But you'll get away using 1 in most cases.

@strannostrannovasrr Месяц назад

Is it possible to dump only 1 column from a multi column variant array on a worksheet at once? I mean without using a for-next-loop?

@Excelmacromastery Месяц назад

You can only do it with the first column. Resize the output range to the size of this column. Range(rowCount,1) = arr

@kofigyebiadusei2205 Месяц назад

When will make an introductory video for us who are beginners. Thank you

@Excelmacromastery Месяц назад

Good suggestion.

@JithinDevan Месяц назад

Thank you Paul - is there any way to speed up below requirement? I need to list all filenames from a folder and their last modified dates into a table. The folder has over 20,000 files and it’s taking ~5 mins to run the macro.

@sinus2220 Месяц назад

You can call Shell and run DIR command from there.

@Excelmacromastery Месяц назад

I think that would be fast. You can easily send to a file

@Back1Ply Месяц назад

Power query has from folder connector that lists files and last modified date

@JithinDevan Месяц назад

Thank you all for suggestions

@PIESvcs Месяц назад

When I see this, I'm reminded that the Data, Advanced Filter allows Unique data items to be filtered in place or copied to another location (using header rows, I think). I am wondering if this may be faster using the native Excel operability. One question I had (and benefit to using Paul's method) is if we want to know the number of occurrences for each Unique entry, an additional array may be useful, for example, if all of those monitors were to be assigned their serial numbers, assigned to users, maintained and depreciated. I needed to do this for network hardware in 1988 using QuickBASIC before VBA.

@pupazzetti2680 Месяц назад

Yet you could make it even faster by using `Value2` (as you have previously taught in other videos). Just for curiosity, how much faster?

@Excelmacromastery Месяц назад

It would only make a difference if you had a large number of writes.

@wizardofaus8473 Месяц назад

More videos like this please. Also, more videos not like this please. Basically, I would like more videos, as long as they are you teaching VBA. Thank you Paul

@Excelmacromastery Месяц назад

You're welcome.

@rahul7rock Месяц назад

Dictionary and Array is a deadly combination as always

@Excelmacromastery Месяц назад

Absolutely

@richardgreves6161 Месяц назад

tried to download the code and I get Web server is returning an unknown error

@Info-God Месяц назад

Type it. This way you learn.

@nivrin13 Месяц назад

How do you calculate the speed of the macro?

@Excelmacromastery Месяц назад

Using the Windows api timer

@Info-God Месяц назад

Define TStart and TEnd, then the difference is the TLapse

@YO-BIZZY Месяц назад

MATT PARKER OPTIMISES CODE

@mback3713 Месяц назад

Try using Collection instead of Dictionary. ;)

@Excelmacromastery Месяц назад

Why? They won't be faster.

@nivrin13 Месяц назад

Collection allows double entries, dictionary doesn't, so it's already filtering the data

@mback3713 Месяц назад

@nivrin13 um.... collection will error if you try to retrieve an element from it that is not in the collection. you use `on error resume next` then in your loop check the collection `_ = col[key]`, then switch to do something `if err.number then` and don't forget to `err.clear` after failing to retrieve a value. it works... a little hokey, but is faster than `if key in dict`

@mback3713 Месяц назад

@Excelmacromastery collection is "native" and doesn't require an import - and is more lightweight and faster than dictionary. It is a little "hokey" as you need to use error handling (the native "Err" object) to detect if a key/value pair exists in the collection, but... try it... sounds like you may be a little surprised at the result.

@nivrin13 Месяц назад

@@mback3713 Alright. I actually wanted to use the collection method in the past. This is a better approach. Will save it. Cheers!

@saketmishra1470 17 дней назад

Paul, please help me to make my code as faster you have shown here

@user-gj3kz7cm3x Месяц назад

How to improve it further: use literally anything but VBA.

@junkertom7766 Месяц назад

Tell me you are a clueless VBA hater without telling that you are a clueless VBA hater.

@user-gj3kz7cm3x Месяц назад

@@junkertom7766 it is literally ranked the worst programming language. Personally I don’t think that is fair because it isn’t a real programming language.

@laurentbosc2896 Месяц назад

@@user-gj3kz7cm3x ok and what else ? in the real World Vba is probably one of the most used. So this is a very simple view to tell that. And it should ont be taken alone but as one element of the Excel toolbox. With Power Query and power pivot, it gives powerful possibilities very easily, without any extra installation. This is why it is very used and so popular.

@laurentbosc2896 Месяц назад

And it is a programming language, literally speaking… not comparable to others ok, but it is powerful for other reasons as explained