Hi all,
It Is also possible to speed up this code? (see example)
At the moment, the running time is about 20 minutes.
I have a small example added.
Greetings,
Danielle
Hi all,
It Is also possible to speed up this code? (see example)
At the moment, the running time is about 20 minutes.
I have a small example added.
Greetings,
Danielle
Hi Danielle
I have run the code on the Macro worksheet as pere your sample and it took less than a second to run. Is this the same code you are having issues with?
Tony
Hi Tony,
The code in this example is very quickly. My original file had over the 40000 rows and is 3 MB.
Right now the code is running about 20 minutes (in the original file).
Maybe there is a solution to make the code slightly faster?
Greetings,
Danielle
You have over 20 codes. Which code are you referring to?
It is the code under the button in the sheet "macro". The name of the code is "KopieuitDownload" and it is in module 11.
Greetings,
Danielle
I do not know what other could execute it faster than filter.
I suspect the issue is not with the code but with the data type you have.
These data may be downloaded from an Accounting system, such as SAP. These data have lots of unseen- dirty data type, such as unprintable characters.
You can get rid of these characters by copying the data and paste them as VALUES ONLY. This will remove most of these dirty data.
You can also run trim and clean functions.
So, copy the data and convert them in to VALUES ONLY, then delete the original data from your book. You will see difference in speed.
Duplicate entry.
Last edited by ARGK; 10-28-2013 at 09:03 AM. Reason: Duplicate entry.
Hi Danielle
I have had a look at your sample document based on AB33s advice and I can find no issues with white spaces etc so this is not your issue. I have also looked at your code and a small section confuses me a little if I am understanding it correctly:
With Sheets("TariefDisplay").Columns(17)
Set r = .Find("PH")
If Not r Is Nothing Then
adr = r.Address
Do
You are searching for "PH" in column 17 and returning the address of the cell when it is found in the variable named adr. The cell address it is returning is Q2. However this cell is empty so I am not sure why it is finding this cell. Can you expand on what the macro is supposed to do?
Tony
Q2 isn't empty-it has a white font applied ;-)
you could remove the .autofilter line as there isn't really a need to clear the filter within the loop
Josie
if at first you don't succeed try doing it the way your wife told you to
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks