Translating records to right cells based on two criteria

[Grimmed]

Hello all!

I'm quite new to VBA though I can manage the basics.
I've stumbled on the next issue..

The following code does what I want it to do (translating the record to the rightly positioned Cell in a overview) though it's really slow.

The code:

Please Login or Register  to view this content.

How it works:
It searches for the given personnelnumber from a displaysheet.
Next, it tries to find a match in the recordsheet and if it exists copy the information to the matching date cell.

In the displaysheet:
Verticalle I've stored the personnelnumbers and horizontalle the dates.

The UID from de fieldrecord is based on the personnelnumber combined with the date in Long format.

I sincerely hope someone can give me advice how to speedup this process!

[event21]

Hi -

If you can attach the actual file then we can help.

Sounds like it can be done in one loop.

Regards,
Event

[Grimmed]

Will do!

Making a blank copy as we speak, deleting sensitive information..

[Grimmed]

See my attachment for the example worksheet.

[Grimmed]

Anyone?

[event21]

Hi -

See if this makes any difference.

Please Login or Register  to view this content.

Regards,
Event

[Grimmed]

Must say, that your code works faster than mine. Great!
It's a huge improvement compared to mine

A little edit (for autom.) using lastlow and lastcolumn:

Please Login or Register  to view this content.