Combine 2 functions into 1 macro (VBA)

I have a macro that does exactly what I need to do namely transpose some data from one sheet and copy it to an other sheet within the workbook.

Please Login or Register  to view this content.

I have a macro that loops true several excel files in one directory (open/close) them to perform an action. That code does exactly that namely open en close every workbook in that directoy.

Please Login or Register  to view this content.

My question is following;
How to consolidate the two functions into one macro.

Thanks for helping me.

Thanks, ill try it and let you know...
Tried it but it does not work, it gives an error on the transpose part, strange because in standalone it works!! I did swap transpose 1 line down because it had to open the workbook first.

Thanks snb, clean code to do just what i want. Got an error.
It seems to open the files 1 by 1 but then i receive an error. Only last workbook in directory got changed. Than i received a out of reach error on this line "with workbooks.open(.foundfiles(j))"

Ill reply tomorrow cause i have a meeting.

so! is it forbidden to ask for help on different forums?.
neither solution given solve my problem at present but i like the way i learn from you guy's.
Oh, next time i mention that i seek help on the different forums.

bingo, solution given works perfect except for a little error at the end of the cycle. All workbooks reflect the transpose and copy just as i wanted. Thank you very much snb.

I failed to read the rules thats true, yet i did learn from your samples so it was sure not waisting time from your part. next time i mention posting a question on diff; boards/forums.

dversa,
Please don't quote entire posts every time you reply to them - it serves no purpose, unless the post is not the one immediately above your reply, or if you wish to address a particular part of that post. Use the Reply button instead.