Forum Discussion

Copper Contributor

Mar 30, 2022

Problem with ActiveSheet.Paste function

Hello All, I used for a long time a small code into a worksheet to avoid doing manual Copy/Paste. Since 2019 this code worked well until yesterday. This is te part of my code where the problem happ...

excel

Macros and VBA

HansVogelaar

MVP

Mar 30, 2022

cheickhamala

I don't know why it takes so long, but see if this works better:

    If ind > 5 Then 'Pour éviter de copier l'entête du tableau
        Range("A" & ind - 1 & ":M" & ind - 1).Copy Destination:=Range("A" & ind)
    End If

cheickhamala
Copper Contributor
Mar 30, 2022
HansVogelaar
Your code is very simple! Thank you for that.
I tested it but the result is similar. So, maybe the problem isn't ActiveSheet.Paste function.
- HansVogelaar
  MVP
  Mar 30, 2022
  cheickhamala
  
  Try adding the following lines at the beginning of your macro:
  
  Application.Cursor = xlWait Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False
  
  and at the end:
  
  Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.Cursor = xlDefault
  - cheickhamala
    Copper Contributor
    Mar 30, 2022
    I replaced ":=" by "=" for this line Application.Calculation:=xlCalculationManual because of an error.
    The cursor change at this previous line but when the copy and paste line is executed it continues to take longer