Very slow code....

[espenskeie]

Hello

Is there anyone who could tell my why this code is very slow? I copy columns from one book to another:

Sub KopierProdukter()

    Windows("Produktliste.xlsm").Activate
    Sheets("Produktliste").Select
    Range("C:C, L:L, U:U, AD:AD, AM:AM, AV:AV, BE:BE, BN:BN").Select
    Selection.Copy
    
    Windows("Prisliste.xlsm").Activate
    Sheets("Sheet2").Select
    Range("C1").Select
    ActiveSheet.Paste
        
    Workbooks("Prisliste.xlsm").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
End Sub

Regards
Espen

 

[espenskeie]

Hello Norie

I have tried to open the book that I thought was small. It took 28 seconds.

BUT I did check the filesize, and its huge, 16,8 MB. I think there is something stored into this book that shouldn't be there. The other books I have been working with userforms and pictures. Maybe I have filled this book with those pictures?

Regards
Espen

 

[Norie]

Espen

What pictures?

I can't recall you mentioning anything like that.

 

[espenskeie]

I have three books, one is privat (Produktliste), one shared (Prisliste), and one for my customer (with lots of pictures attached to the userforms imagebox.)

The Pricelist-book should be extremely smallsized, as it only have numbers in few cells. But now it is 19MB ++. I will try to delete the book and create a new one.

Then I will check if this one also grow and become an elephant too

 

[espenskeie]

I deleted the old Prisliste, and created a new one. It is now 12kb in size!!! And superfast

Thank you very much for your time. I really appreciate that you spend so much time on projects and problems that I have, thats really nice of you!

Have a great day