Macro slow on update

Someone helped me out with this macro to copy information from one sheet to another.
However I have been able to move things around and now have every thing on one page
but the macro had slowed right down. I thought perhaps because it was referring to
to itself so I changed this line; With Sheets("this worksheet") I also tried Active Worksheet.
Can anyone tell me what it should be? Thanks in advance.

Please Login or Register  to view this content.

It needs to be the name of the sheet your data is on.
How many rows of data do you have?

Probably 250 rows at most. Was it you who game me the above? I couldn't remember.

If it's only 250 rows, then it should be virtually instant (under a second).
Do you have any event code running on that sheet?

What I have found is that if the name in column J had no entry in column G that week then it is slow. Once I removed the names with no entry it is instant.
However the name could be there the next week, if that makes sense?

Whether a name is there or not should make no difference.
Please supply a sample workbook showing the problem.

Thanks for that, but it only takes ~.03 seconds to run for me.
If you want to get rid of the names in J, try

Please Login or Register  to view this content.

Hi,

according to this poor attachment the result is instant !
Could be a little bit quicker if results are updated at once rather than looping cell by cell …

Is the issue at the first run ?
Any chance you attach the workbook which you have the issue ? …

I forgot to mention : with such few data it can be easily achieved without any dictionary - but as fast - and just with a single loop …

a little faster

Please Login or Register  to view this content.

Another option if you have dynamic arrays

Please Login or Register  to view this content.

All the ideas work guys, thanks so much.

Is there an easy way to make them run in earlier versions?

You're welcome & thanks for the feedback.

The code from post#13 won't work unless you have dynamic arrays, but the other codes should work in any version.

They are giving a run-time error 13 "mismatch" but I cant see how.

Which code & which line?

The one you gave me in post 9 is returning two rows of 0s and no names. This one runs but only gives the 0s
The one in post 12 fails at this line. .Value = Application.Transpose(Array(d.Keys, d.Items)) This is the mismatch one

Is that on your sample file, or your real workbook?

Hi Fluff13, sorry on the real workbook. Not sure why as the sample is identical.

Do the codes work on the sample file?

Hi Fluff13, yes perfect on the sample and just the two rows of 0s in the actual workbook.
I think its just going to have to suffer the slow speed?

In that case there is obviously something different with your real data.

Fluff13, thanks again. Can you think of anything that would allow it to run fine in 365 version 2007 but not in earlier versions?

Fraid not.